Új hozzászólás Aktív témák
-
lúzer
veterán
Itt a V2.0
Ez nem áll le hibával szövegnél pl.
méri a vonalat, vonalláncot, kört, ívet
(defun C:MÉR()
(setq mindhossz 0.0)
(setq tmp(ssget ''_I'' '((-4 . ''<OR'')(0 . ''POLYLINE'')(0 . ''LINE'')(0 . ''CIRCLE'')(0 . ''ARC'')(0 . ''LWPOLYLINE'')(-4 . ''OR>''))))
(if (= tmp nil)(setq tmp(ssget '((-4 . ''<OR'')(0 . ''POLYLINE'')(0 . ''LINE'')(0 . ''CIRCLE'')(0 . ''ARC'')(0 . ''LWPOLYLINE'')(-4 . ''OR>'')))))
(setq xxdb(sslength tmp))
(setq INDULO xxdb)
(REPEAT xxdb
(setq INDULO (1- INDULO))
(setq i (ssname tmp INDULO))
(setq j (vlax-curve-getdistatparam i (vlax-curve-getendparam i)))
(setq mindhossz (+ mindhossz j))
)
(princ ''\nA teljes hossz: '')(princ mindhossz)
(princ)
);defun
UI: az <OR.....OR> egy sor
tehát így kezdődnek a sorok:
(defun
(setq
(setq
(if
(setq
[Szerkesztve]MO. RIP. - az utolsó kapcsolja le a villanyt.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen