VBA UserForm für Layer (Autodesk/Rund um AutoCAD)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Flexibler Übergang in die SAP Cloud - Brückenschlag für CAD und ERP, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: VBA UserForm für Layer (161 mal gelesen)

Horsty
Mitglied
Student

Senden Sie eine Private Message an Horsty

Schreiben Sie einen Gästebucheintrag für Horsty

Beiträge: 3
Registriert: 13.06.2003

erstellt am: 13. Jun. 2003 11:37

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo Anwender!

Ich möchte für Cad 2002 eine User Form erstellen, mit der ich Layer nochmals seperat verwalten kann.
Wenn es möglich ist wollte ich das in VBA schreiben.
Kann mir jemand helfen?

Gruß Horsty

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

1000Hands
Mitglied
CEO

Senden Sie eine Private Message an CAD-KON

Schreiben Sie einen Gästebucheintrag für CAD-KON

Beiträge: 990
Registriert: 24.03.2002

HP Workstation Z840 Building Design Suite Premium 2018 auf Windows7 64Bit

erstellt am: 13. Jun. 2003 14:27

<-- editieren / zitieren -->

Unities abgeben:

Nur für Horsty

Für Layergruppen erstellen usw. gibts doch schon zig Tools! Denke auch bei Cadwiesel liegt sowas...

------------------
mfG
Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige:	Infos zum Werbeplatz >>
CADprofi HVAC & Piping CAD APP für Heizung, Lüftung und Klimatisierung (HLK), TGA, Messen, Steuern, Regeln (MSR)

Karsten HST
Mitglied
Bauingenieur

Senden Sie eine Private Message an Karsten HST

Schreiben Sie einen Gästebucheintrag für Karsten HST

Beiträge: 54
Registriert: 22.04.2003

erstellt am: 13. Jun. 2003 17:25

<-- editieren / zitieren -->

Unities abgeben:

Nur für Horsty

Der einfachste Weg ist der, eine Listbox in einem Formular zu positionieren, z.B. ListBox1 in UserForm1

und folgende Prozedur in das Klassenmodul ThisDrawing einzutragen

Sub ShowLayers()
UserForm1.ListBox1.Clear
For Each ActLayer In Layers
UserForm1.ListBox1.AddItem ActLayer.Name
Next
UserForm1.Show

Der bessere aber auch umfangreichere Weg ist die Erstellung einer Liste in einem ListView-Steuerelement. Dort könnstet Du dann auch die Eigenschaften der Layer darstellen lassen (EIN/AUS, frieren usw.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

CADprofi HVAC & Piping CAD APP für Heizung, Lüftung und Klimatisierung (HLK), TGA, Messen, Steuern, Regeln (MSR)