Evet dikkatten kaçmış bir durum söz konusu.
yazı yüksekliği soruluyor, ama kullanılmıyor. leader komutu otomatik olarak "dimtxt" değişkeninin değerini kullanıyor.
Eğer böyle devam etsin, dimtxt kullansın bana sormasın derseniz;
Kod:
(defun C:LP (/ PNT1 COORDN COORDE COORDZ PTXT)
(setq PNT1 (getpoint "\nNoktayı işaretleyiniz: ")
COORDN (strcat "Y= " (rtos (car PNT1) 2 2))
COORDE (strcat "X= " (rtos (cadr PNT1) 2 2))
COORDZ (strcat "Z= " (rtos (caddr PNT1) 2 2))
PTXT (getpoint "\nYazının yazılacağı yeri işaretleyiniz: "))
(command "LEADER" PNT1 PTXT "" COORDE COORDN COORDZ "")
(princ)
)
(Princ "\nKomutu çalıştırmk için [LP] yazınız!")
(Princ "\n --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
şeklinde düzenlediğim kodu kullanabilirsiniz.
eğer dimtxt değişekninden bağımsız, sizin seçtiğiniz bir yazı yüksekliği kullanılmasını istiyorsanız, bunun için bir düzenleme yaptım.
Kod:
(defun C:LP (/ PNT1 TxH eDTxT COORDN COORDE COORDZ PTXT)
(if (= eTxH nil) (setq eTxH (* (getvar "dimtxt") (getvar "dimscale"))))
(setq TxH (getreal (strcat "\nYazi yuksekligi <" (rtos eTxH) "> :")))
(if (= TxH nil) (setq TxH eTxH) (setq eTxH TxH))
(setq PNT1 (getpoint "\nNoktayı işaretleyiniz: ")
COORDN (strcat "Y= " (rtos (car PNT1) 2 2))
COORDE (strcat "X= " (rtos (cadr PNT1) 2 2))
COORDZ (strcat "Z= " (rtos (caddr PNT1) 2 2))
PTXT (getpoint PNT1 "\nYazının yazılacağı yeri işaretleyiniz: "))
(if (/= Txh (getvar "dimtxt")) (setq eDTxT (getvar "dimtxt")))
(setvar "dimtxt" TxH)
(command "LEADER" PNT1 PTXT "" COORDE COORDN COORDZ "")
(if eDTxT (setvar "dimtxt" eDTxT)) (princ)
)
(Princ "\nKomutu çalıştırmk için [LP] yazınız!")
(Princ "\n --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
Kolay gelsin.
