Új hozzászólás Aktív témák

• #691 lúzer veterán lúzer #690

  Új Válasz 2007-08-30 17:12:06 #691

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lúzer

  veterán

  válasz lúzer #690 üzenetére

  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]

Új hozzászólás Aktív témák