Yeni bir başlık gönderCevap gönder 1. sayfa (Toplam 1 sayfa)   [ 6 mesaj ]
Yazar Mesaj
 Mesaj Başlığı: ICAD Komut Dizisi
MesajGönderilme zamanı: 17 Eyl 2005 17:25 

Kayıt: 15 Oca 2003 17:37
Mesajlar: 27
Konum:
ICAD'te sürekli olarak ardarda kullanmak durumunda olduğum komutları tek bir komut altında toplayabilmenin basit bir yolu var mı?
Örneğin, ICAD'te hazırlanan modeli LightWave'e atabilmek için sırasıyla UNDO / PEEL / SAVE AS ASCII DXF / UNDO komutlarını kullanmak yerine bu dört komutu tek bir komutun altında toplama imkanı var mı? Tabii ki ileri düzey LISP bilgisi olmadan.


Başa Dön
 Profil  
 
 Mesaj Başlığı:
MesajGönderilme zamanı: 17 Eyl 2005 19:28 
Site Admin

Kayıt: 07 Oca 2002 13:14
Mesajlar: 1085
Konum: Turkey
Yordam (makro veya script de denir) kullanabilirsiniz:

<ol type="1">
<li>Klavyeden girdiğiniz tüm adımları tamamen aynı sırada bir metin dosyasına yazın ve .scr uzantısı ile kaydedin.</li>
<li><b>Araçlar > Çalıştır</b> menüsünden bu dosyayı çalıştırın.</li>
</ol id="1">

SAVEAS komutunun diyalog açmasını engellemek bunun yerine klavyeden giriş yapmak için FILEDIA değişkenin kapalı durumuna getirin.


Başa Dön
 Profil  
 
 Mesaj Başlığı:
MesajGönderilme zamanı: 21 Eyl 2005 15:21 

Kayıt: 15 Oca 2003 17:37
Mesajlar: 27
Konum:
Peki bu scripti sürekli kullanabilinen ve kısayol da tanımlanabilen bir komut haline dönüştürmenin bir yolu var mı?


Başa Dön
 Profil  
 
 Mesaj Başlığı:
MesajGönderilme zamanı: 22 Eyl 2005 18:37 
Site Admin

Kayıt: 07 Oca 2002 13:14
Mesajlar: 1085
Konum: Turkey
Bu durumda küçük bir lisp programı yazmak daha yerinde olacaktır. Lisp programlamak sandığınızdan daha basittir. Parantezler biribirini kapatsın yeter.

Örneğin PEEL ve DXFKAYDET yapan bir program örneği:
[code]
(defun c:lwsave () <font color="green">;Klavyeden girilecek komutun adı: <b>lwsave</b></font id="green">
(command "c:peel" <font color="green">;Komuta gir</font id="green">
"_all" <font color="green">;Tümünü seç</font id="green">
"" <font color="green">;3 kere Enter'a bas</font id="green">
""
""
)

(setvar "FILEDIA" 0) <font color="green">;Save Diyaloğunun çıkmasını engelle</font id="green">

(command "_DXFOUT" <font color="green">;Orjinal komutu başına alt çizgi koyarak çağırabilirsiniz.</font id="green">
"TEST.DXF" <font color="green">;DXF dosyasının adı</font id="green">
"" <font color="green">;Çıkan mesaja Enter'la cevap ver</font id="green">
)

(setvar "FILEDIA" 1) <font color="green">;Save Diyaloğunun çıkmasını tekrar sağla</font id="green">
)[/code]

Not yazılarını ayıklarsak aynı kodu şöyle de yazabilirsiniz:
[code](defun c:lwsave ()
(command "c:peel" "_all" "" "" "")
(setvar "FILEDIA" 0)
(command "_DXFOUT" "TEST.DXF" "")
(setvar "FILEDIA" 1)
)[/code]

Bu kodu IntelliCAD dizinindeki icad.lsp dosyası içine ekleyin (böyle bir dosya yoksa notepad ile oluşturun).


Başa Dön
 Profil  
 
 Mesaj Başlığı:
MesajGönderilme zamanı: 23 Eyl 2005 10:12 

Kayıt: 15 Oca 2003 17:37
Mesajlar: 27
Konum:
Teşekkürler. Yanıtınız şimdilik işimi görecek.
ICAD eklentisi hazırlamak için önereceğiniz dil hangisi?
Bu dille ve Lisp ile ilgili önerebileceğiniz Türkçe kaynak var mı?


Başa Dön
 Profil  
 
 Mesaj Başlığı:
MesajGönderilme zamanı: 23 Eyl 2005 14:57 
Site Admin

Kayıt: 07 Oca 2002 13:14
Mesajlar: 1085
Konum: Turkey
Başlangıç ve yarı profesyonel seviye için LISP, profesyoneller için C++ / Delphi'yi öneririm.

C++ ve LISP karşılaştırması
[code]
C++ LISP
Güvenlik + -
Çalışma hızı + -
Öğrenme süreci - +
Büyük programlar + -
Küçük programlar - +
[/code]

Lisp'le ilgili bildiğim bir kaynak yok. Piyasada bulunan bazı otoket kitapları lisp'i de anlatıyor ama maalesef benim önerebileceğim içerikte değiller.


Başa Dön
 Profil  
 
Eskiden itibaren mesajları göster:  Sırala  
Yeni bir başlık gönderCevap gönder 1. sayfa (Toplam 1 sayfa)   [ 6 mesaj ]


Kimler çevrimiçi

Bu forumu gezen kullanıcılar: Hiç bir kayıtlı kullanıcı yok ve 9 misafir


Bu foruma yeni başlıklar gönderemezsiniz
Bu forumdaki başlıklara cevap veremezsiniz
Bu forumdaki mesajlarınızı düzenleyemezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu foruma eklentiler gönderemezsiniz

Aranacak:
Geçiş yap:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
610nm Style by Daniel St. Jules of Gamexe.net


Türkçe çeviri: phpBB Türkiye