Citaat van: graver op wo 29 11 2006, 23:26:27
Hallo allemaal,
ik zal het ff kort uitleggen. we zijn sinds kort overgenomen door een ander bedrijf en nu willen we onze tekenstijlen zoveel mogelijk overeen (acad200) laten komen.
wij gebruiken andere layers en kleuren pendiktes etc. dan hun
is er een mogelijkheid m.b.v een lisp om alles in 1 keer te veranderen.
v.b. layer "1" linetype "dashdot" color "white" moet dus verandenen naar layer "stramien" linetype "continuous" color "red"
met vriendelijke groetjes
graver :?
Beste Graver,
Je vraag staat eigenlijk in de verkeerde rubriek.
(Je vraag stond eigenlijk in de verkeerde rubriek nl AutoCAD probleem,
en staat nu in de juiste nl AutoLisp.)
Maar bedoel je zoiets als onderstaand
(defun c:chlay()
(setq i 0
OldNames '("1" "2")
NewNames '("Stramien" "Fence")
NewLinetypes '("Continuous" "Hidden")
NewColors '("Red" "Yellow")
NewLWeights '("0.25" "0.35")
)
(repeat (length OldNames)
(if (tblsearch "LAYER" (nth i OldNames))
(if (not (tblsearch "LAYER" (nth i NewNames)))
(command "_.RENAME" "_LA" (nth i OldNames) (nth i NewNames))
))
(if (tblsearch "LAYER" (nth i NewNames))
(command "_.LAYER" "_L" (nth i NewLinetypes) (nth i NewNames)
"_C" (nth i NewColors) (nth i NewNames)
"_LW" (nth i NewLWeights) (nth i NewNames) "")
)
(setq i (1+ i))
)
)
Je zult dan wel in OldNames, NewNames, NewLinetype, NewColor en NewLWeights
de resp.de juiste oude namen, nieuwe namen, nieuwe lijntypes, nieuwe kleuren en
nieuwe lijndiktes moeten invullen.
Met vriendelijke groet,
HofCAD CSI
PS2 http://www.cadsite.be/smf/index.php?topic=4708.msg24855#msg24855