ADeko Technologies
http://www.adeko.com/phpBB3/

Lisp proğramı
http://www.adeko.com/phpBB3/viewtopic.php?f=7&t=1445		 1. sayfa (Toplam 1 sayfa)
Yazar:  osahinoglu@ttnet [ 19 Nis 2006 13:06 ]
Mesaj Başlığı:  Lisp proğramı
AutoCAD ortamında örnek proğram olarak yer alan aşağıdaki proğramı ;
(defun c:kanal ()
(setvar "cmdecho" 0)
(setvar "osmode" 512)
(setq bp1 (getpoint "\nBirinci daireden bir nokta secin:")
bp2 (getpoint "\nYkinci daireden bir nokta secin:")
)
(setvar "osmode" 0)
(setq mn1 (osnap bp1 "cen")
mn2 (osnap bp2 "cen")

aci1 (angle mn1 mn2)
aci2 (+ (* 0.5 3.14) aci1)
rad (distance mn1 bp1)
lp1 (polar mn1 aci2 rad)
lp2 (polar lp1 aci1 (distance mn1 mn2))
)
(command "line" lp1 lp2 ""
)


ADeko IntelliCAD4 +SR Eğitim ortamında aşağıdaki gibi yazıyorum;

(defun c:kanal ()
(setvar "cmdecho" 0)
(setvar "osmode" 512)
(setq bp1 (getpoint "\nBirinci daireden bir nokta seçin:")
bp2 (getpoint "\nİkinci daireden bir nokta seçin:")
)

(setvar "osmode" 0)
(setvar "osmode" 4)
(setq mn1 (osnap bp1 "cen")
mn2 (osnap bp2 "cen")
aci1 (angle mn1 mn2)
aci2 (+ (* 0.5 3.14) aci1)
rad (distance mn1 bp1)
lp1 (polar mn1 aci2 rad)
lp2 (polar lp1 aci1 (distance mn1 mn2))
)
(command "çizgi" lp1 lp2 ""
)
)

ancak şu hata mesajı ile proğram sona eriyor.
Birinci daireden bir nokta secin:
Ykinci daireden bir nokta secin:hata: arguman tipi yanlış
(ANGLE MN1 MN2)
(SETQ MN1 (OSNAP BP1 "cen") MN2 (OSNAP BP2 "cen") ACI1 (ANGLE MN1 MN2) ACI2
(+ (* 0.500000 3.14000) ACI1) RAD (DISTANCE MN1 BP1) LP1 (POLAR MN1 ACI2
RAD) LP2 (POLAR LP1 ACI1 (DISTANCE MN1 MN2)))
(C:KANAL)
osnap fonksiyonunun kullanımı Intellicad'ta farklımı
Bilgi verirseniz memnun ourum.
Osman Şahinoğlu
Yazar:  Destek/Support [ 19 Nis 2006 14:23 ]
Mesaj Başlığı: 
Sanırım problem Türkçe komut ve alt komutların İngilizce ile çakışması.

Bununla ilgili konu daha önce geçti >
http://www.adeko.com.tr/forum/topic.asp?TOPIC_ID=125

Burda,
[code](osnap bp1 "cen")[/code] yerine
[code](osnap bp1 "<b><font color="red">_</font id="red"></b>cen")[/code]
yazarsanız sorun çözülür.

Komut ve alt komut başına eklenen alt çizgi <<b><font color="red">_</font id="red"></b>>, kodun hem Türkçe, hem İngilize, hem Çince vs. vs. IntelliCAD'lerde sorunsuz çalışacağını garanti altına alır.

Çalışmalarınızda başarılar dileriz.
1. sayfa (Toplam 1 sayfa) Tüm zamanlar UTC + 2 saat [ GITZ ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/