---

Hallo,

ich benötige von einem Punkt den ich mit

Dim InputObjectType(1)
InputObjectType(0)= "ZeroDimFeatVertexOrWireBoundaryMonoDimFeatVertex"
InputObjectType(1) = "Point2D"
Status = Selection.SelectElement2(InputObjectType, "Punkt auswaehlen", False)
Set SelectedPunkt = Selection.Item(1).Value

aus einer Skizze im 3D Fenster selektiert habe die Referenz.

Ich möchte diesen Punkt für die Funktion AddNewHoleFromRefPoint verwenden um eine Bohrung zu erzeugen die an dem selektierten Punkt der Skizze hängt.

Vielen Dank für eure Antworten.

Gruß

Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Bernd,

du bekommst mit Hilfe des Parts die Referenz zu dem ausgewählten Punkt:

Code:

---

Dim InputObjectType(1)
InputObjectType(0)= "ZeroDimFeatVertexOrWireBoundaryMonoDimFeatVertex"
InputObjectType(1) = "Point2D"
Status = Selection.SelectElement2(InputObjectType, "Punkt auswaehlen", False)
Set SelectedPunkt = Selection.Item(1).Value

dim oRef 'as Reference
set oRef = myPart.CreateReferenceFromObject(SelectedPunkt)

---

Gruß
Proofin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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