Ölçü çizgisinden yazıyı almak | Forumlar

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

Forumlar > AutoLISP > Ölçü çizgisinden yazıyı almak

28.05.2019 02:44

k005

Merhaba arkadaşlar ,

Uzun bi aradan sonra bir soru ile yine buralardayım :)

Ölçü çizgisi üzerindeki yazıyı;

Örnek :

1210 yatay ölçü , 1120 yatay ölçü , 320 dikey ölçü. Bu ölçüleri seçip,

Beton : 12,10 x 11.20 x 3,20 x 0,50 biçiminde çizim ekranına text obje olarak nasıl yazdırabilirim ?

Not : 0,50 manuel girilecek . Diğer ölçüler çizimden seçilip 100 bölünecek...

Yardımcı arkadaşa şimdiden TeŞeKkÜrLeR.

87423

29.05.2019 06:36

ehya

Kod:

(setq msp (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
(if (setq ent1 (car (entsel "\n1.ölçü:")))
(if (setq ent2 (car (entsel "\n2.ölçü:")))
(if (setq deg (getreal "\nSayı"))
(if (setq pt (getpoint "\nReferans Nokta:"))
(progn
(setq dt1 (vlax-ename->vla-object ent1)
dt2 (vlax-ename->vla-object ent2))
(if (= (vla-get-textoverride dt1) "")
(setq dg1 (vla-get-measurement dt1))
(setq dg1 (vla-get-textoverride dt1)))
(if (vla-get-textoverride dt2)
(setq dg2 (vla-get-measurement dt2))
(setq dg2 (vla-get-textoverride dt2)))
(setq brl (strcat (rtos dg1 2 2)" X " (rtos dg2 2 2) " X " (rtos deg 2 2)))
(vla-addtext msp brl (vlax-3d-point pt) 5)
)))))

87424

29.05.2019 16:57

k005

ehya;

Hocam çok teşekkür ediyorum, Tamamdır...

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş