Moin,
eine Möglickeit zum Löschen wäre, alle Elemente, die gelöscht werden sollen, einer Sekection zuweisen und diese dann löschen.
Dim oSelection as selection
Set oSelection = CATIA.ActiveDocument.Selection
oSelection.add (...) ' hier die zu löschenden Elemete eintargen, für jedes Element muß 'oSelection.Add ()' aufgerufen werden, also am besten in einer Schleife
oSelection.Delete
Die Länge der Line kann mit Phytagoras berechnet werden, wenn man den Anfangs und Endpunkt der Line hat.
Den Anfangspunkt bekommt man mit 'PtOrigine', den Endpunkt mit 'PtExtremity'.
(nicht getestet, müßte aber funtionieren)
MfG
Jan
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP