AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > İstekleriniz > iki noktanın ortası (m2p) lispi
09.12.2005 07:31    
gomito
MID 2 POINT DIYE BIR LISP VARDI. DAHA ONCE KULLANMISTIM.
SU ANDA COK LAZIM OLAN BIRSEYLER CIZIYORUM.
BIR LINE CIZMEYE GEREK KALMADAN GOSTERILEN 2 NOKTANIN ORTASINI ALAN BIR LISP YAZARMISINIZ? 2005 VERSIYONUNDA VAR BU OZELLIK ZATEN BILIYORUM AMA 2002 KULLANIYORUM VE 2005 E GECMEK SU SIRALAR IMKANSIZ GORUNUYOR.

YARDIMCI OLURSANIZ COK SEVINICEM.
TESEKKUR EDERIM.

09.12.2005 15:30    
hceven99
merhaba, girdiğin iki noktanın ortasından başlayan çizgi için lisp kodunu aşağıya yazıyorum;

(defun c:m2p (/)
(print "***Orta noktayı bulma... ")
(setq osmod (getvar "OSMODE"))
(setq nok_1 (getpoint "
İlk nokta: "))
(setq nok_2 (getpoint "
İkinci nokta: "))
(setq n1_x (car nok_1)
n1_y (cadr nok_1))
(setq n2_x (car nok_2)
n2_y (cadr nok_2))
(setq nok_x_f (/ (- n1_x n2_x) 2)
nok_y_f (/ (- n1_y n2_y) 2))
(setq nok_x (- n1_x nok_x_f)
nok_y (- n1_y nok_y_f))
(setq nok_yeni (list nok_x nok_y))
(setvar "OSMODE" 0)
(command "line" nok_yeni)
(setvar "OSMODE" osmod)
(princ)
)

bu kodu lsp uzantılı bir dosya olarak oluşturup kullanabilirsin. Komut adını m2p olarak ayarladım. Umarım işine yarar, sorun olursa yazarsan çözüm bulmaya çalışırım. iyi günler.

13.12.2005 19:33    
gomito
bu konuyla ilgili bilgi buldum.
yukarıdaki lispin benzeri hazırlanmıs ve menuye tanıtılmıs.
boylece komut icinde de calısıyo :)




Linkleri görebilmek için ÜYE olmalısınız.
> 1 <
Copyright © 2004-2022 SQL: 0.473 saniye - Sorgu: 47 - Ortalama: 0.01005 saniye