Burada paylaştığımız Kot/Mesafe Lispiyle ile ilgili Harita Mühendisi bir arkadaşımızın isteği doğrultusunda, aşağıdaki fonksiyonu yazmış bulundum. İlginç geldi, hoş ve kullanışlı bir fonksiyon olduğunu sanıyorum, paylaşmak istedim.
Kod:
(defun c:xy ()
(setq n (getpoint) d (getpoint n)
t1 (strcat "X " (rtos (car n)))
t2 (strcat "Y " (rtos (cadr n)))
)
(command "leader" n d "" t1 t2 "")
)
Eskiden elle çizim yaparken bu işleme kılçık atmak diyorduk :)
Eğer özelleştirilmiş bir Dimension Style kullanıyorsanız ve bu fonksiyonla problem yaşıyorsanız, AutoCAD'in ISO-25 Dimension Style'ı ile denemenizi tavsiye ederim...
lazım olmamasına rağmen şirin göründü indirdim kurdum çok az öz ve güzel elinize emeğinize sağlık.
herhalde bunu kurcalarken lisp öğreneceğiz, en azından mantığını..
