fumay - 25.02.2006 06:38
modify jlc
Bu içeriğin yayınlanmasını sağlayan fumay 'a teşekkürler.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(setq PNT1 (getpoint "nNoktayı işaretleyiniz: "))
(setq P1X (car pnt1))
(setq P1Y (cadr pnt1))
(setq P1Z (caddr pnt1))
(setq STDX (rtos P1X 2 2))
(setq STDY (rtos P1Y 2 2))
(setq STDZ (rtos P1Z 2 2))
(setq COORDN (strcat "Y= " STDY ))
(setq COORDE (strcat "X= " STDX ))
(setq COORDZ (strcat "Z= " STDz ))
(setq PTXT (getpoint
"nYazının yazılacağı yeri işaretleyiniz: "))
(command "LEADER" PNT1 PTXT ""COORDE COORDN COORDZ ""))
(Princ "Komutu çalıştırmk için [LP] yazınız!")
(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Yazar: fumay
İçerik:
Tag:
eraybozdag 08.05.2014 10:15 #15341
arkadaşlar
verilen nokta numaralarına göre veya seçilen noktaların sırasına göre koordinatları sıralayıp tablo biçimin de hazırlayan lisp varmıdır..
dimistagot 23.11.2012 10:13 #14856
teşekkür ederim bende. koordinat yazdırmak için bir lisp kullanıyordum istemediğim bir şey yapıyordu ve sürekli düzeltmek zorunda kalıyordum. bu daha bana uygun olmuş. saolun.
ayrıca sadece X-Y koordinatını almak için aşağıdaki düzeltmeyi kullanabilirsiniz. elezertk nın dediği gibi 3 hane daha güzel :)
(defun C:LP(/ PNT1 P1X P1Y STDY STDX STDZ COORDN COORDE COORDZ PTXT)
(setq PNT1 (getpoint "\nPick coordinate point: "))
(setq P1X (car pnt1))
(setq P1Y (cadr pnt1))
(setq P1Z (caddr pnt1))
(setq STDX (rtos P1X 2 3))
(setq STDY (rtos P1Y 2 3))
(setq STDZ (rtos P1Z 2 3))
(setq COORDN (strcat "Y=" STDY ))
(setq COORDE (strcat "X=" STDX ))
(setq COORDZ (strcat "" STDz ))
(setq PTXT (getpoint
"\nPick text location: "))
(command "LEADER" PNT1 PTXT ""COORDE COORDN COORDZ "")
(princ)
)
burakturkes 26.01.2010 09:38 #12359
download linkinden indirdiğim bütün lispler çalışıyor ama bu kopyala yapıştır cinsinden yüklediğim hiç bir lisp çalışmıyor. Bad charachter yazısı çıkıyor
ozerluleci 04.12.2009 07:25 #12118
Çok teşekkür ederim fumay arkadaşım harika olmuş.Sadece noktanın Z değerini yazan lisp varmı.yardımcı olursanız çok sevinirim.Şimdiden teşekkür ederim.
serkankalemci 13.05.2009 06:41 #11093
lispi buradan kopyalayabiliyor muyuz yoksa yeniden bizim yazmamiz mi gerekiyor?
Bilen varsa, bilgilendirirse sevinirim....
Tesekkurler...
elezertk 06.05.2009 05:27 #11056
herkese selam.. (rtos P1X 2 2) ve onun altindaki 3 satirda kucuk degisiklikler yapabilirsiniz..ilk 2 rakami sayinin ondalikli yazilacagini belirtiyor..ikinci 2 rakami ise virgulden sonra iki hane olacagini belirtiyor..ben bu uc satiri da 2 3 olarak ayarladim ve tum koordinatlarimi virgulden sonra 3 haneli yazdirabiliyorum..bir de sunu soylemek isterim..(strcat "X= " STDY ) satirindaki X yerine Y, onun altindaki (strcat "Y= " STDY )satirinda Y yerine X yazarsaniz, X koordinatini Y gibi ve Y koordinatini X gibi yazdirabilirsiniz..veya isterseniz kuzey-dogu gibi N ve E de yazdirabilirsiniz..kucuk degisikliklerle lisp daha da guzellesiyor..
ayhan53ismail 04.05.2007 12:49 #4152
bu lisp olayına bayıldım arkadaşlar bu lisp sayesine bazı işlerim baya kısaltdım
chopra 20.11.2006 19:57 #992
Herkese selamlar,
Bu çalışmayı gönderen arkadaşlara teşekkürler. Ancak Yazdırılan X Y Z koordinatlarını excel e aktarabilen hatta tablo halinde aktarabilen bir lisp var mı acaba?
İlginiz için şimdiden teşekkür ederim..