Hallo zusammen,
ich versuche gerade ein Macro zu basteln mit dem ich auf einen Klick die gesamte Drahtgeometrie (Point, Line, Curve, Axs) auswählen und verbergen kann...
Kann mir jemand sagen was an meinem Code falsch ist? Das wäre super..
Ich nutze V5R14 engl.
Thx schonmal ...
Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set selection1 = productDocument1.Selection
Set selection2 = productDocument1.Selection
Set selection3 = productDocument1.Selection
selection1.Search "(((((CATStFreeStyleSearch.Point + CATSketchSearch.2DPoint) + CATDrwSearch.2DPoint) + CATPrtSearch.Point) + CATGmoSearch.Point) + CATSpdSearch.Point)"
selection2.Search "(((((CATStFreeStyleSearch.Line + CATSketchSearch.2DLine) + CATDrwSearch.2DLine) + CATPrtSearch.Line) + CATGmoSearch.Point) + CATSpdSearch.Line)"
selection3.Search "(((((CATStFreeStyleSearch.Curve + CATSketchSearch.2DCurve) + CATDrwSearch.2DCurve) + CATPrtSearch.Curve) + CATGmoSearch.Curve) + CATSpdSearch.Curve)"
End Sub
------------------
What about RTFM ??
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP