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 16 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