[Resimleri görebilmek için üye olun veya giriş yapın.]Auto cad de nokta kordinatları |
|
Auto
[Linkleri görebilmek için üye olun veya giriş yapın.]kullananlar bilir özellikle
[Linkleri görebilmek için üye olun veya giriş yapın.]ye
verilen resimlerde bir sıfır noktasına göre resimin xy koordinatlarını
vermek zahmetlidir.Bunun için ağağıdaki kodu kullanırsanız bu çok kolay
olacaktır...
------------------------------------------------------------------------------
;;EFKAN AY
[Linkleri görebilmek için üye olun veya giriş yapın.]KOORDİNATLARINI VEREN PGM 10 AĞUSTOS 2003
(defun C:c1 ()
(setq olderr *error* *error* macerr)
(setq p1 (getpoint "
NOKTA SEC :")
p2(getpoint p1 "
YAZILACAK YERI SEC:")
yaz(strcat "X=" (rtos (car p1)) " Y=" (rtos (cadr p1)))
)
(command "_dim1" "LEADER" p1 p2 ""(command yaz))
(setq *error* olderr) (princ)
)
--------------------------------------------------------------------------
Bu kodları text editöre kopyalayıp uzantısını .lsp olacak şekilde kaydedin ve proğram files deki auto
[Linkleri görebilmek için üye olun veya giriş yapın.]dizinine atın
Auto
[Linkleri görebilmek için üye olun veya giriş yapın.]i çalıştırın
Tools dan load apilication u seçin load dan attığınız lsp uzantılı
dosyayı seçin aynı yerden contents de aynı işlemi yapın işlem tamam
komut satırna c1 yazmanız yeterli c1 değilde başka bir ad vermek
istersiniz
(defun C:c1 ()
buradaki c1 i kafanıza göre değiştirin