| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: bereits erstellten Layer aktivieren (2107 mal gelesen)
|
Sagu Mitglied Dipl - Ing
Beiträge: 31 Registriert: 11.03.2007
|
erstellt am: 13. Jul. 2007 13:39 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, wie kann ich in VBA ein bereits erstellten Layer als aktiven Layer einstellen? Ich habe bis jetzt nur Varianten gefunden in denen kurz zuvor dieser Layer neu hinzu gefügt wurde? Ich würde gerne in diesem Layer eine Linie zeichnen und dann zum nächsten Layer springen, um in diesem eine Linie zu zeichnen usw.. In der Acad-Hilfe steht auch nur die oben genannte Variant Vielen Dank für die Hilfe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 ACAD 2008 Mechanical
|
erstellt am: 13. Jul. 2007 13:57 <-- editieren / zitieren --> Unities abgeben: Nur für Sagu
so? Sub Example_SetVariable() ' This example sets various system variables, each of ' a different data type. Dim sysVarName As String Dim sysVarData As Variant Dim DataType As Integer Dim strData As String sysVarName = "CLAYER" strData = "My LAYER" sysVarData = strData ' String data ThisDrawing.SetVariable sysVarName, sysVarData End Sub aber warum weißt du der Linie nicht nach dem Zeichnen (addLine) einfach die entpsrechende Property LAYER zu ohne den aktuelen Layer zu ändern? ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1 Moderator Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 13. Jul. 2007 14:07 <-- editieren / zitieren --> Unities abgeben: Nur für Sagu
Hallo, den aktiven layer kannst du in VBA auch so einstellen
Code: ThisDrawing.ActiveLayer = ThisDrawing.Layers("Layer1")
Wenn du jedoch verschiedene Elemente zeichnest, kannst du wie Thomas schon erwähnte, direkt die Eigenschaft des Layers setzen.
Code: Linie.Layer="Layer1"
Dann brauchst du nicht immer den aktiven layer wechseln. Wilfried Stelberg ------------------ Warum lisp'eln wenn's auch anders geht. www.ib-stelberg.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sagu Mitglied Dipl - Ing
Beiträge: 31 Registriert: 11.03.2007
|
erstellt am: 13. Jul. 2007 14:27 <-- editieren / zitieren --> Unities abgeben:
|