Hallo Proofin,
erst mal vielen Dank. Komme aber so noch nicht zum Ergebniss.
Vielleicht ist das Problem das sich mein Punkt in einer Skizze mit mehreren Punkten befindet.
Hab mal den Vorgang mit dem Makrorecorder aufgezeichnet:
Dim part1 As Part
Set part1 = partDocument1.Part
Dim shapeFactory1 As ShapeFactory
Set shapeFactory1 = part1.ShapeFactory
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("Hauptkörper")
Dim sketches1 As Sketches
Set sketches1 = body1.Sketches
Dim sketch1 As Sketch
Set sketch1 = sketches1.Item("Skizze.5")
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromBRepName("BorderFVertex BEdge Brp Sketch.5;3);None Limits1 );Limits2 );+1);Cf11 ));WithTemporaryBody;WithoutBuildError;WithInitialFeatureSupport;MFB RepVersion_CXR14)", sketch1)
Dim shapes1 As Shapes
Set shapes1 = body1.Shapes
Dim pad1 As Pad
Set pad1 = shapes1.Item("Block.1")
Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromBRepName("FSur Face Brp Pad.1;2);None );Cf11 ));WithTemporaryBody;WithoutBuildError;WithInitialFeatureSupport;MonoFond;MFBRepVersion_CXR14)", pad1)
Dim hole1 As hole
Set hole1 = shapeFactory1.AddNewHoleFromRefPoint(reference1, reference2, 10#)
Ich möchte nun reference1 mit meinem selektierten Punkt ersetzen.
Mit reference2 (der Teilfläche auf der die Bohrung sitzt) klappt es tadellos.
Gruß
Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP