| ADeko Technologies http://www.adeko.com/phpBB3/ |
|
| Nokta koordinatlari http://www.adeko.com/phpBB3/viewtopic.php?f=7&t=1485 |
1. sayfa (Toplam 1 sayfa) |
| Yazar: | Kultigin [ 13 Tem 2006 18:28 ] |
| Mesaj Başlığı: | Nokta koordinatlari |
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... |
|
| Yazar: | Kultigin [ 15 Tem 2006 18:06 ] |
| Mesaj Başlığı: | |
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... |
|
| 1. sayfa (Toplam 1 sayfa) | Tüm zamanlar UTC + 2 saat [ GITZ ] |
| Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |
|