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
Geeft de bv lijn een laagnaam mee:
"Ent" is de lijn en "Laagnaam" is de naam van de laag waar het in moet komen.
Dim Ent, Laagnaam
Ent.Layer = Laagnaam
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
Misschien kun je meer (liefst de hele) code geven dan kunnen we ook naar deze fout top de 2e lijn bekijken, en suggesties geven.
Heb je hier wat aan?
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:
ThisDrawing.Linetypes.Load
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
hallo,merci voor de hulp, het veranderen van layer is gelukt.
grtn
yaryd