Zitat:
Sub CATMain()
CATIA.Caption=theCATTitle
On Error Resume Next
Set productDocument1 = CATIA.ActiveDocument
CATIA.Caption = "Gewinde+Bohrungen"
Set selection1 = productDocument1.Selection
selection1.Search "'Part Design'.Bohrung.Gewinde=TRUE"
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetRealColor 102,153,255,0
selection1.Clear
Set selection2 = productDocument1.Selection
selection2.Search "'Part Design'.Gewinde"
Set visPropertySet2 = selection2.VisProperties
visPropertySet2.SetRealColor 102,153,255,0
selection2.Clear
Set selection3 = productDocument1.Selection
selection3.Search "'Part Design'.Bohrung.Gewinde=FALSE"
Set visPropertySet3 = selection2.VisProperties
visPropertySet3.SetRealColor 102,204,102,0
selection3.Clear
CATIA.Caption=theCATTitle
Func MsgBox ("Bohrungen und Gewinde eingefärbt.",64)
End Sub
Dieses Macro möchte ich so erweitern, dass
a) am Anfang abgefragt wird, ob die oben programmierte automatische Einfärbung oder die
b) manuelle Selektion der einzufärbenden Gewinde und Bohrungen
ausgeführt wird.
für den Punkt b) habe ich keinerlei Vorstellungen, wie man dies realisieren kann.
Im Kopf habe ich eine Dialogbox, die die manuelle Selektion anordnet und nach der manuellen Selektion fragt, ob die Elemente mit der Farbe für Gewinde oder Bohrungen gefärbt werden sollen.
Ich hoffe auf Unterstützung
------------------
~~~ There are 10 types of people in the world: Those who understand binary, and those who don't... ~~~
[Diese Nachricht wurde von DMaier am 28. Mrz. 2008 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP