| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Ermittlung des benutzten Farbbuches (RAL,...) (1024 mal gelesen)
|
tom.k Mitglied CAD-Admin
Beiträge: 15 Registriert: 01.02.2005 ACAD2006 & ACADM2006 WXP PRO SP2 HP Workstation xw4000, xw4100
|
erstellt am: 20. Jul. 2007 14:14 <-- editieren / zitieren --> Unities abgeben:
Hallo Leuts, habe lange und ausgiebig gestöbert und auch einiges zu meinem Thema finden können. Dennoch muß ich euch nochmals damit nerven. Ich kann zwar mit Hilfe von 'AcadAcCmColor' und 'GetVariable("CECOLOR")' eine Farbe aussuchen und Objekten zuweisen lassen, aber wie komme ich an den Farbnamen, den der User bei der Auswahl angezeigt bekam, Bsp. PANTONE Yellow C. Wie komme ich wieder an diesn Namen ran? Wäre ja sooo dankbar. Gruß tk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 ACAD 2008 Mechanical
|
erstellt am: 20. Jul. 2007 14:18 <-- editieren / zitieren --> Unities abgeben: Nur für tom.k
..ermittle die Truecoloreigenschaft des Objektes und lese vom Truecolor-Object die Eigenschaft Colorbookname aus.. ------------------ - 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 |
tom.k Mitglied CAD-Admin
Beiträge: 15 Registriert: 01.02.2005 ACAD2006 & ACADM2006 WXP PRO SP2 HP Workstation xw4000, xw4100
|
erstellt am: 20. Jul. 2007 14:39 <-- editieren / zitieren --> Unities abgeben:
|
Carsten1210 Mitglied staatl. geprüfter Holztechniker
Beiträge: 1357 Registriert: 24.07.2002
|
erstellt am: 23. Jul. 2007 07:01 <-- editieren / zitieren --> Unities abgeben: Nur für tom.k
|
tom.k Mitglied CAD-Admin
Beiträge: 15 Registriert: 01.02.2005 ACAD2006 & ACADM2006 WXP PRO SP2 HP Workstation xw4000, xw4100
|
erstellt am: 23. Jul. 2007 10:48 <-- editieren / zitieren --> Unities abgeben:
Hi Carsten, auch Dir Danke für den Hinweis. Habe mich dennoch zu früh gefreut. Wenn ich die Farbe, die über die Variable 'CECOLOR' kommt(RGB) dann setze, hat mein AcadObjekt kein 'ColorName' mehr. Da macht ACAD nur die RGB-Werte rein und keinen Hinweis zum Farbnamen(RAL...). Ist halt doof, da der Anwender mit RGB(...,...,...) nicht viel anfangen kann aber mit RAL 3000 (zumindest meine). Wenn euch doch noch was einfällt... Gruß tk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten1210 Mitglied staatl. geprüfter Holztechniker
Beiträge: 1357 Registriert: 24.07.2002
|
erstellt am: 23. Jul. 2007 12:50 <-- editieren / zitieren --> Unities abgeben: Nur für tom.k
Hi, Vielleicht reicht dir folgender Workaround: Erstell dir nen Hilfslayer und schalte den aktiv. Dann ruft du Das Farbdialogfenster mit sendcommand und _Color auf. Dort kann dann die Farbe ausgesucht werden und der Layer bekommt die Farbe (Ral oder aci...) Jetzt kannst über den Layer auf die Farbe bzw. dem Farbbuch und der Farbe zugreifen. Gruß, Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tom.k Mitglied CAD-Admin
Beiträge: 15 Registriert: 01.02.2005 ACAD2006 & ACADM2006 WXP PRO SP2 HP Workstation xw4000, xw4100
|
erstellt am: 23. Jul. 2007 13:06 <-- editieren / zitieren --> Unities abgeben:
Hi Carsten, habe ich schon probiert aber leider gehen auch hier die Infos verloren. Hier mal mein Code: ... Set layerObj = AcadDoc.Layers.Add("TEST") AcadDoc.ActiveLayer = layerObj Set col = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16") With AcadDoc .SendCommand "_color" & vbCr col2 = .GetVariable("CECOLOR") End With Select Case col2 Case 1 To 255 col.ColorIndex = col2 Case Is = "BYBLOCK" col2 = 0 col.ColorIndex = col2 Case Is = "BYLAYER" col2 = 256 col.ColorIndex = col2 Case Else s = Split(Right(col2, Len(col2) - 4), ",") col.SetRGB CLng(s(0)), CLng(s(1)), CLng(s(2)) End Select layerObj.TrueColor = col ... Vielleicht noch 'ne Idee? Danke für Deine Mühe. Gruß tk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten1210 Mitglied staatl. geprüfter Holztechniker
Beiträge: 1357 Registriert: 24.07.2002
|
erstellt am: 23. Jul. 2007 13:12 <-- editieren / zitieren --> Unities abgeben: Nur für tom.k
Hi, vergiss den kram aus meiner letzte Antwort. Du kannst die Farbe per _Color setzten und musst dann ein Element erstellen. Diese hat unter Truecolor auch das Farbbuch und den Farbnamen stehen. Das kann man dann auswerten. Gruß, Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tom.k Mitglied CAD-Admin
Beiträge: 15 Registriert: 01.02.2005 ACAD2006 & ACADM2006 WXP PRO SP2 HP Workstation xw4000, xw4100
|
erstellt am: 23. Jul. 2007 13:24 <-- editieren / zitieren --> Unities abgeben:
|