dakujem vsetkym za rady a triky ohlado  line -> pl

najviac ale vyuzivam pedit
aj lps poteshil len malo casu na skumanie mam dakujem

Kdysi jsem začal dělat na lispiku, ktery měl sloužit k něčemu takovému. Ale zůstalo to ve stádiu rozpracovanosti. Nicméně pro jednoduché výkresy to funguje - můžete zkusit.

;příprava výkresu na faxování nebo vložení do Wordu - změní úsečky, oblouky a kružnice na křivky dané tloušťky
;rozpracováno!

(defun c:zesil()
(setq tl(getreal "Tloušťka křivky: "))
(setq e (entsel "Vyber representanta "))
(setq hlad (cdr(assoc 8 (setq p(entget(car e)))))
      barva (cdr(assoc 62 p))
      typc  (cdr(assoc 6 p))
   )

(if (and(/= barva nil)(/= typc nil))
(setq m (ssget "X" (list (cons  8 hlad)(cons 62 barva) (cons 6 typc)))))
(if (and(= barva nil)(/= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad) (cons 6 typc))))(while (< i pocet)
 (if (/=(assoc 62 (entget(ssname m i)))nil)
  (setq m (ssdel (ssname m i) m) pocet (sslength m))
  (setq i (1+ i))
 )
)
))

(if (and(/= barva nil)(= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad) (cons 62 barva))))(while (< i pocet)
 (if (/=(assoc 6 (entget(ssname m i)))nil)
  (setq m (ssdel (ssname m i) m) pocet (sslength m))
  (setq i (1+ i))
 )
)
))

(if (and(= barva nil)(= typc nil))(progn
(setq m (ssget "X" (list (cons  8 hlad))))
(setq pocet (sslength m) i 0)
(while (< i pocet)
 (if (or (/=(assoc 62 (entget(ssname m i)))nil)(/=(assoc 6 (entget(ssname m i)))nil))
  (setq m (ssdel (ssname m i) m) pocet (sslength m))
  (setq i (1+ i))
 )
)
))

 

(command "_SELECT" m "")
(command "_chprop" "P" "" "_C" "7" "")
(setq skupt (ssget "P" '((-4 . "<OR")(0 . "LINE")(0 . "CIRCLE")(0 . "ARC")(-4 . "OR>"))))
(if (/= skupt nil)(progn

(setq pocett (sslength skupt))
(setq i 0)
(while (< i pocett)
(if (<= i pocett)(progn
(setq m (ssname skupt i))
(setq dz (entget m))
(if (/=(cdr(assoc 0 dz))"CIRCLE")
(command "_PEDIT" m "_Y" "_W" tl "")
(progn
(command "_DONUT" (-(* 2.(cdr(assoc 40 dz))) tl) (+(* 2.(cdr(assoc 40 dz)))tl) (cdr(assoc 10 dz))"")

(entdel m)
))
(setq i (+ 1 i))(write-line (itoa i)))
))))
)

Jak psal pan Bláha, PLJOIN je někdy funkce k nezaplacení, je škoda, že jej implementací příkazu do _PEDIT zrušili. V _PEDITU je totiž trošku ztracený.

Upravil PepaR - 26.říj.2006 v 08:42

zdravim

chcel by som sa spytat ze ci v acade 2007 sa da niako zmenit vlastnost ciary (line) na polyline? alebo to treba vsetko pekne prekreslit

viem ze sa daju viacere zlucit do seba cez join a tym vznikne polyline ale to len v pripade ked line  sa dotykaju koncovymi bodmi ( teda ak sa nemylim )

mam totiz problem s tym ze polyline sa da v properties priradit hrubka( global width) a line nie alebo aspon o  tom neviem a to by som velmi potreboval spravit preto vlastne hladam sposob ako oklamat a cad a line priradit vlastnosti pl alebo niako pretransformovat L na PL

a preco nema L taku vlastnost ?

vopred vdaka mato