| |
| 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: Aktuelle Farbe feststellen (1665 mal gelesen)
|
Stelli1 Moderator Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 28. Aug. 2005 16:11 <-- editieren / zitieren --> Unities abgeben:
For each Mitglied in CAD.de.Mitglieder Ich habe ein Formular (siehe Anhang) Mit der dahinter liegenden Funktion sollen Blöcke an eine Polylinie gezeichnet werden. Der User hat unter anderem die Möglichkeit den Layer für den neuen Block anzugeben. Hier hat er die Wahl zwischen - aktuellen Layer - letzter Layer - Bezugobjekt Mit activeLayer kann man das schön feststellen. Das gleiche soll auch für die zu verwendene Farbe möglich sein. Hier gibts denn leider nicht activeColor oder so was. Wie kann man die eingestellte Farbe feststellen ???? Stelli1 ------------------ [Diese Nachricht wurde von Stelli1 am 28. Aug. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 28. Aug. 2005 18:00 <-- editieren / zitieren --> Unities abgeben: Nur für Stelli1
Hi Stelli, keine Ahnung wie man an sowas wie 'activecolor' rankommt, habs nirgends finden können. Aber ich hätte da nen tollen Würgaround zu bieten *feix* ;-)
Code:
Sub x() Dim p As AcadPoint, x#(2) Set p = ThisDrawing.ModelSpace.AddPoint(x) Debug.Print p.color p.Delete End Sub
Gruss Nancy 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: 28. Aug. 2005 18:11 <-- editieren / zitieren --> Unities abgeben: Nur für Stelli1
.. einfach die Sysvar CECOLOR auslesen .... per Lisp getvar "CECOLOR") per VBA : Nancy korrigier mal ( du weißt ja : 0 Ahnung usw. ) Sub Example_GetVariable() Dim sysVarName As String Dim varData As Variant sysVarName = "CECOLOR" varData = ThisDrawing.GetVariable(sysVarName) MsgBox sysVarName & " = " & varData, , "GetVariable Example" End Sub
------------------ - 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 |
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 28. Aug. 2005 18:19 <-- editieren / zitieren --> Unities abgeben: Nur für Stelli1
|
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 28. Aug. 2005 18:35 <-- editieren / zitieren --> Unities abgeben: Nur für Stelli1
Nachtrag: lt. F1 gibt ein GetVariable ein Variant zurück, bei "CECOLOR" scheint das entweder ein String oder ein Int/Byte zu sein, hab das kurz im DF probiert: Code:
?thisdrawing.GetVariable("CECOLOR") RGB:141,84,171 ?thisdrawing.GetVariable("CECOLOR") 1 ?thisdrawing.GetVariable("CECOLOR") BYLAYER
Gruss NancyEine 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: 28. Aug. 2005 19:27 <-- editieren / zitieren --> Unities abgeben:
|