06.07.2009 13:15    

yazgunesi
Komut ismi: spc

Lisp hakkında ; kullanıcının tıkladığı noktalara göre spline çizilmesini sağlayan autolisp programı.

Bu örnek kodlamayı yazacağınız herhangi bir lispte kaynak kod olarak kullanabilirsiniz.. Kaynak kod olarak kastettiğim >> (command "_spline" pt1 pt2 pt3 pt4 pt5 pt6 "" "" "" ) satırındaki noktaların kordinatlarını car, cadr kullanarak kordinat hesabı yapabilirsiniz..

Kod:

(defun c:spc ()

(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)

(setq pt1 (getpoint "\n Spline başlangıç noktasi ?! :"))
(setq pt2 (getpoint "\n İkinci nokta ?! :"))
(setq pt3 (getpoint "\n Üçüncü nokta ?! :"))
(setq pt4 (getpoint "\n Dördüncü nokta ?! :"))
(setq pt5 (getpoint "\n Beşinci nokta ?! :"))
(setq pt6 (getpoint "\n Spline Son nokta ?! :"))

(command  "_spline"  pt1 pt2 pt3 pt4 pt5 pt6 "" "" "" )

(princ)
(setvar "osmode" oldsnap)
)
     
(Princ "Lisp'i çalıştırmak için > spc < yazınız! >>> www.autocadokulu.com <<< ")


Yukarıda gözüken autolisp programını nasıl kullanacağınızı bilmiyorsanız eğer aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu incelemenizi öneririm...

yazgunesi (07.07.2009 09:44 GMT)

> 1 <
Copyright © 2004-2022 SQL: 0.822 saniye - Sorgu: 46 - Ortalama: 0.01787 saniye