Code:
Sub Main()
Test_3d_Sketch()
End SubSub Test_3d_Sketch()
Dim oPrt As PartDocument
oPrt = ThisApplication.ActiveDocument
Dim oCompDef As PartComponentDefinition
oCompDef = oPrt.ComponentDefinition
Dim oSketch As Sketch3D
oSketch = oCompDef.Sketches3D.Add()
oSketch.Edit()
'--- aus dem "Create a 3D sketch dimension API Sample"
' https://help.autodesk.com/view/INVNTOR/2019/ENU/?guid=GUID-C86DC180-13EF-4FCE-9867-6D3061096787
' Check to make sure a 3d sketch is open.
If Not TypeOf ThisApplication.ActiveEditObject Is Sketch3D Then
MsgBox("A 3d sketch must be active.")
Exit Sub
End If
' Set a reference to the active sketch.
'Dim oSketch As Sketch3D
'oSketch = ThisApplication.ActiveEditObject 'oben schon gesetzt
' Set a reference to the transient geometry collection.
Dim oTransGeom As TransientGeometry
oTransGeom = ThisApplication.TransientGeometry
' Create a sketch line
Dim oSketchLine As SketchLine3D
oSketchLine = oSketch.SketchLines3D.AddByTwoPoints(oTransGeom.CreatePoint(5, 5, 0), oTransGeom.CreatePoint(10, 10, 20))
'---
'Skizze fertig stellen
oSketch.ExitEdit()
End Sub