---

Hallo,

ist es möglich einen Arbeitspunkt an bestimmte Koordinaten zu setzen? Am besten mit iLogic.

Beispiel:

Ich habe eine Strecke von den Koordinaten (2/2) zu (6/6) und möchte am Start- und Endpunkt einen Arbeitspunkt haben.

Als alternative würde es auch gehen wenn ich einen Arbeitspunkt meiner eingefügten Baugruppe an bestimmten Koordinaten in der Hauptbaugruppe Baugruppe festsetzen kann, auch am besten per iLogic.
Ich habe dazu das hier gefunden: http://forums.autodesk.com/t5/inventor-customization/inventor-ilogic-create-assebmyl-constraints/m-p/4721207#M47882

Weiß allerdings nicht genau wie ich auf den Namen des Arbeitspunkt zugreifen kann.

Grüße

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

---

Hier ist alles drin was du brauchst.
http://forums.autodesk.com/t5/inventor-general-discussion/create-a-new-work-plane-with-ilogic/td-p/5385259

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hier mal auf die Schnelle aus obigen Code extrahiert:

Code:

---

'  a reference to the currently active document.
' This assumes that it is a part document.
Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument

'  a reference to the component definition.
Dim oCompDef As PartComponentDefinition
oCompDef = ThisDoc.Document.ComponentDefinition

' Create some workpoints that will be used for the 3D sketch.
'  a reference to the transient geometry object.
Dim oTG As TransientGeometry
oTG = ThisApplication.TransientGeometry

Dim oWPs(0 To 2) As WorkPoint
oWPs(0) = oCompDef.WorkPoints.AddFixed(oTG.CreatePoint(2, 2, 0))
oWPs(0).Name="Startpunkt"
oWPs(1) = oCompDef.WorkPoints.AddFixed(oTG.CreatePoint(6, 6, 0))
oWPs(1).Name="Zielpunkt"

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
Hier mal auf die Schnelle aus obigen Code extrahiert:

Code:

---

'  a reference to the currently active document.
' This assumes that it is a part document.
Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument

'  a reference to the component definition.
Dim oCompDef As PartComponentDefinition
oCompDef = ThisDoc.Document.ComponentDefinition

' Create some workpoints that will be used for the 3D sketch.
'  a reference to the transient geometry object.
Dim oTG As TransientGeometry
oTG = ThisApplication.TransientGeometry

Dim oWPs(0 To 2) As WorkPoint
oWPs(0) = oCompDef.WorkPoints.AddFixed(oTG.CreatePoint(2, 2, 0))
oWPs(0).Name="Startpunkt"
oWPs(1) = oCompDef.WorkPoints.AddFixed(oTG.CreatePoint(6, 6, 0))
oWPs(1).Name="Zielpunkt"

---

---

Danke! Das ist genau das was ich gesucht habe. Habe es etwas umgeschrieben und es funktioniert super!

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