Hallo cad-gemeinde,
wir haben unter R16 ein Makro programmiert, welches sämtliche Punkte, Linien, constraints usw ins No-show legt. Seit dem Umstieg auf R18 funktioniert es allerdings nicht mehr, bzw. es läuft ohne Fehlermeldung durch ohne irgendetwas an den Modellen zu verändern.
Der Quellcode ist nicht groß, also vielleicht findet jemand einen Fehler
-----------------------------------------------------------------------
'planes und assembly constraints in no-show stellen
Sub CATMain()
Language="VBSCRIPT"
'CATIA.Caption = theCATTitle
On Error Resume Next
'Fehlermeldung aussgeschaltet'
'Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
'CATIA.Caption = "Hide *pt - *ln - *crv - *pln and constraints "
'Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Search("CATPrtSearch.Plane+CATPrtSearch.Point+CATPrtSearch.Line+CATPrtSearch.AxisSystem+CATPrtSearch.Edge+CATPrtSearch.Sketch+CATAsmSearch.MfConstraint,all")
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1
selection1.Clear
'CATIA.Caption = theCATTitle
Dim text
text = "that's it, really, isn't it?"
msgbox text
End Sub
---------------------------------------------
Danke und Gruß
Manu_b
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP