Cevap : autocad püf noktalar
Arkadaşlar gerçekten çok güzel ve faydalı içerikler benden de bir katkı olsun
aşağıdaki kodları note pade kopyalayıp *.lsp uzantılı olarak kaydedin sonra bu dosyayı autocad kurulu dizine atın sonra Auto Cadi çalıştırın
Tools menu den load applications dan kaydettiğiniz *.lsp doyasını load yapın.Ayrıca aynı yerden Start up suite Contents de ekleyin ki açılışta otomatik lsp dosyaımızı çalıştırsın
Kaydetip çıkış yapın.
Bu kod ne işe yarar :
Çizim sıfırına göre tıkladığınız noktaların X ve Y koordinatlarını ekrana yazar.Ben genelde çizimlerden CNC için koordinatlar çıkarırken kullanıyorum
İşte kodlar aşağıda yükleyip komut satırına c1 yazmanız yeterlidir sonra komut satırını takip edin
İsterseniz bu link yerine kullanıcı tanımlı buton oluşturup menunuzde yer de verebilirsiniz
;;EFKAN AY CNC KOORDİNATLARINI VEREN PGM 10 AĞUSTOS 2003
(defun C:c1 ()
(setq olderr *error* *error* macerr)
(setq p1 (getpoint "
NOKTA SEC EFKAN:")
p2(getpoint p1 "
YAZILACAK YERI SEC EFKAN...:")
yaz(strcat "X=" (rtos (car p1)) " Y=" (rtos (cadr p1)))
)
(command "_dim1" "LEADER" p1 p2 ""(command yaz))
(setq *error* olderr) (princ)
)