Hallo Bernd,
wusste nicht das sowas geht. Hab mal etwas damit herumgespielt.
Das Erzeugen und Löschen der Hilfsebene passiert ja in nur 3 Codezeilen:
'Hilfsebene erzeugen:
Set SupportPlane = HybridShapeFactory.AddNewPlaneEquation(A,B,C)
' -> Auskommentiert = die Ebene "in der Luft hängen lassen" = nicht im Strukturbaum sichtbar
' hybridBody1.AppendHybridShape (SupportPlane)
'Selektion ausführen:
Status = Selection.IndicateOrSelectElement3D(SupportPlane, "Auswahl", InputObjectType, False, False, False, False, XZ, XYZ)
'Hilfsebene löschen:
HybridShapeFactory.DeleteObjectForDatum (SupportPlane)
Das Löschen der Hilfsebene erfolgt bereits vor Auswertung der Selektion.
Eine nicht im Struturbaum sichtbare Ebene bliebe nur übrig wenn das Makro sich während der Selektion aufhängt.
Löscht man die Ebene nicht erkennt CATDUA einen Fehler (Der sich bereinigen lässt)
Die Ebene ist aber auch dann über VB nicht mehr greifbar, oder?
Gruß
Bernd
Hier noch der Link wie man von der Skizze eine Hilfsebene erzeugt (Function GetSupportplanefromSketch):
https://ww3.cad.de/foren/ubb/Forum137/HTML/006415.shtml
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP