veranderen van Layer binnen uw VBA code (opgelost)

yaryd · vr 20 02 2009, 11:22:03

Hallo, ik moet voor mij opdracht horizontale en verticale doorsneden tekenen in VBA - AutoCad. nu zoals je allemaal wel weet hebben we dus aanzichtlijnen en streeplijnen nodig. mijn vraag is dus hoe je gemakkelijk kan veranderen van layer binnen uw programeercode?

hopend op een antwoord,

mvg,

yaryd

EddyBeerke · vr 20 02 2009, 12:55:08

Geeft de bv lijn een laagnaam mee:
"Ent" is de lijn en "Laagnaam" is de naam van de laag waar het in moet komen.

Code Selecteer


Dim Ent, Laagnaam
Ent.Layer = Laagnaam

yaryd · vr 20 02 2009, 14:58:11

hallo, bedankt voor de snelle respons, maar hij geeft een foutmelding op de 2de lijn.

hier hebt u de namen van de lijnen die ik gebruik;
volle lijn = SCH35VOL
streeplijn = SCH25HID

mss kunt u het eens met deze een voorbeeld geven.

alvast bedankt

EddyBeerke · vr 20 02 2009, 15:09:35

Misschien kun je meer (liefst de hele) code geven dan kunnen we ook naar deze fout top de 2e lijn bekijken, en suggesties geven.

EddyBeerke · vr 20 02 2009, 15:33:06

Heb je hier wat aan?

Code Selecteer

ThisDrawing.Layers.Add "streeplijn"
ThisDrawing.Layers("streeplijn").Color = acYellow
ThisDrawing.Layers("streeplijn").Linetype = "SCH25HID"

Je moet nog wel iets maken om de lintype in te laden:

Code Selecteer

ThisDrawing.Linetypes.Load

yaryd · ma 23 02 2009, 08:55:55

hallo, mijn excuses dat ik nog niet terug geantwoord had, kwas namelijk op weekend en dan wast ff weg van de computer.

ja kzal da eens proberen en dan nog wat laten weten.

alvast bedankt

yaryd · wo 25 02 2009, 15:58:10

hallo,merci voor de hulp, het veranderen van layer is gelukt.

grtn

yaryd