VBA - PlotStyleName (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
Autor	Thema: VBA - PlotStyleName (186 mal gelesen)
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002 Autodesk Building Design Suite Premium 2021 Windows 10 Pro 64bit HP Workstation Z620, 24GB GeForce GTX 970	erstellt am: 17. Okt. 2002 18:59 <-- editieren / zitieren --> Unities abgeben: Hallo VBA-Spezialisten, wir haben eine Routine die Layer erstellt, nun möchte ich die Funktion erweitern. Dazu habe ich nun eine STB-Datei erstellt. Darin finden sich Plotstile wie z.B. Schwarz, Rot, Gelb, ... Wenn ich nun in VBA einem neuen Layer einen dieser Plotstile zuweisen möchte, dann kommt die Fehlermeldung "Schlüssel nicht gefunden". Wenn ich aber im Layermanager irgendeinem Layer diesen Plotstil zuweise, dann gibt es diese Fehlermeldung nicht. Wie kann ich nun alle meine Stile den Layern zuweisen? Ich hab leider nichts gefunden. ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Bernd Cuder Mitglied Selbständig Beiträge: 692 Registriert: 10.07.2002 AutoCAD 2002/2004/2005 unter Windows 2000 Professional SP3 PIV 3.4GHz 1024MB NVIDIA GeForce FX Go5700	erstellt am: 18. Okt. 2002 03:28 <-- editieren / zitieren --> Unities abgeben: Nur für RoSiNiNo Du mußt das dumme Ding aktuell setzen Fragment: On Error Resume Next Layer.PlotStyleName = PlotDef(Iz) If Err.Number <> 0 Then THISDRAWING.SetVariable "CPLOTSTYLE", PlotDef(Iz) Layer.PlotStyleName = PlotDef(Iz) End If THISDRAWING.SetVariable "CPLOTSTYLE", "VonLayer" lG Bernd ------------------ Bernd Cuder Cad&Co makes CAD easy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Bernd Cuder Mitglied Selbständig Beiträge: 692 Registriert: 10.07.2002 AutoCAD 2002/2004/2005 unter Windows 2000 Professional SP3 PIV 3.4GHz 1024MB NVIDIA GeForce FX Go5700	erstellt am: 18. Okt. 2002 03:34 <-- editieren / zitieren --> Unities abgeben: Nur für RoSiNiNo Opps, und den vorher, aber das weißt du wahrscheinlich Dim Layout As AcadLayout Set Layout = THISDRAWING.ModelSpace.Layout If Layout.StyleSheet <> "Objekt2000.stb" Then Layout.StyleSheet = "Objekt2000.stb" End If ------------------ Bernd Cuder Cad&Co makes CAD easy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002 Autodesk Building Design Suite Premium 2021 Windows 10 Pro 64bit HP Workstation Z620, 24GB GeForce GTX 970	erstellt am: 18. Okt. 2002 08:25 <-- editieren / zitieren --> Unities abgeben: Danke für die Lösung, hast du etwa eine Nachtschicht eingelegt? Ich war gestern schon am verzweifeln, ich hab es einfach nicht hinbekommen, es steht ja in keiner Hilfe, wo hast du nur solche Sachen her? Das ich es Aktuell setzten muß, hab ich mir gedacht. Danke ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002 Autodesk Building Design Suite Premium 2021 Windows 10 Pro 64bit HP Workstation Z620, 24GB GeForce GTX 970	erstellt am: 18. Okt. 2002 09:11 <-- editieren / zitieren --> Unities abgeben: Hallo Bernd, eine letzte Frage noch, wie kann ich erkennen, ob eine Zeichnung stb oder ctb-Files verwendet? Über PlotPolicy geht es nicht, das erkennt nur die Einstellung in Optionen, aber nicht die der Zeichung. Danke ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Bernd Cuder Mitglied Selbständig Beiträge: 692 Registriert: 10.07.2002 AutoCAD 2002/2004/2005 unter Windows 2000 Professional SP3 PIV 3.4GHz 1024MB NVIDIA GeForce FX Go5700	erstellt am: 18. Okt. 2002 11:59 <-- editieren / zitieren --> Unities abgeben: Nur für RoSiNiNo Damit müßte es gehen: Eine farbabhängige Zeichnung liefert <Farbabhängig> zurück Systemvariable DEFLPLSTYLE Typ: Zeichenfolge Gespeichert in: Registrierung Legt den vorgegebenen Plotstil für neue Layer fest. Wenn sich die aktuelle Zeichnung, an der Sie arbeiten, im farbabhängigen Modus befindet (PSTYLEPOLICY ist auf 1 gesetzt), ist DEFLPLSTYLE schreibgeschützt und hat den Wert "BYCOLOR". Wenn sich die aktuelle Zeichnung, an der Sie arbeiten, im benannten Plotstilmodus befindet (PSTYLEPOLICY ist auf 0 gesetzt), ist DEFLPLSTYLE nicht schreibgeschützt und hat den Vorgabewert "NORMAL." ------------------ Bernd Cuder Cad&Co makes CAD easy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)