layers lijntypes etc. hernoemen

[graver]

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

[bart]

autocad 200 ken ik niet 
maar het commando laytrans (expresstools of standaard afhankelijk van je versie)
kan dit (de instellingen kunnen worden opgeslagen en hergebruikt)

[HofCAD]

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

Code Selecteer Uitklappen


(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

[graver]

hartelijk dank ik zal het ff proberen

groetjes graver