Ú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
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- Mindent megtudtunk az új Nokia 3210-ről
- Kerékpárosok, bringások ide!
- Milyen billentyűzetet vegyek?
- Képeken az egyik kameráját elvesztő Sony Xperia 10 VI
- nVidia tulajok OFF topikja
- Vezetékes FÜLhallgatók
- Léghűtés topik
- Érkezik Magyarországa az LG szuper dizájnos hordozható projektora
- World of Tanks - MMO
- További aktív témák...
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Steames kulcsok jó áron eladóak!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest