Belirtilen noktanin koordinatlarini ekrana yazan bir kod buldum ama iCAD'de calismadi. Sanirim dimleader komutunun autocad'den farkli icra edilmesinden kaynaklaniyor. Bu programi iCAD'de calisir hale getirebilir misiniz lutfen?

;;EFKAN AY CNC KOORDİNATLARINI VEREN PGM 10 AĞUSTOS 2003
(defun C:c1 ()
(setq olderr *error* *error* macerr)
(setq p1 (getpoint "\n NOKTA SEC :")
p2(getpoint p1 "\n YAZILACAK YERI SEC:")
yaz(strcat "X=" (rtos (car p1)) " Y=" (rtos (cadr p1)))
)
(command "_dim1" "LEADER" p1 p2 ""(command yaz))
(setq *error* olderr) (princ)
)


icad 6
Kultigin...

Tamam, sorunu cozdum.[:)] Asagidaki kod iCAD'de calisiyor. 2 anlamli rakam olarak x ve y koordinat noktalarini ekrana yaziyor.

[code];;EFKAN AY CNC KOORDİNATLARINI VEREN PGM 10 AĞUSTOS 2003
(defun C:c1 ()
(setq olderr *error* *error* macerr)
(setq p1 (getpoint "\n NOKTA SEC :")
p2(getpoint p1 "\n YAZILACAK YERI SEC:")
yaz(strcat "X=" (rtos (car p1) 2 2) " Y=" (rtos (cadr p1) 2 2))
)
(command "_dim1" "LEADER" p1 p2 "" yaz "")
(setq *error* olderr) (princ)
)[/code]


icad 6
Kultigin...