Hi summertime
Also das mit dem nicht auswählbar geht über die VisProperties einer Selection:
Sub CATMain()
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = drawingDocument1.Selection
selection1.Search "CATDrwSearch.2DLine,all"
selection1.VisProperties.SetPick (catVisPropertyNoPickAttr)
End Sub
Dabei kann man aber noch die Punkte anwählen und verschieben, bringt also nichts, wenn dann müssten auch alle Punkte auf nopick gestellt werden.
Das Fixieren ist ein Constraint und muss als solcher erst erstellt werden es ist keine Eigenschaft der Linie!!
MfG Ronny
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP