Hallo alle miteinander,
ich habe mal wieder ein Problem. Und zwar will ich mir sehr viele Punkte in einer Skizze (x-z-Ebene) zeichnen lassen, der Koordinaten ich aus einer verlinkten Excel-Tabelle beziehen möchte.
Mein bisheriger Code sieht so aus:
Public Sub DrawSAPoints()
Dim oPartDoc As Inventor.PartDocument
'Zugreifen auf das aktive Dokument.
Set oPartDoc = ThisApplication.ActiveDocument
'Referenz auf die Bauteildefinition setzen.
Dim oPartCompDef As PartComponentDefinition
Set oPartCompDef = ThisApplication.ActiveDocument.ComponentDefinition
'Überprüfen um sicher zu gehen, dass eine Skizze geöffnet ist.
If Not TypeOf ThisApplication.ActiveEditObject Is PlanarSketch Then
MsgBox "Eine Skizze muss aktiv sein."
Exit Sub
End If
'Referenz auf die aktive Skizze setzen.
Dim oSketch As PlanarSketch
Set oSketch = ThisApplication.ActiveEditObject
'Referenz auf die vorübergehende Geometriesammlung setzen.
Dim oTransGeom As TransientGeometry
Set oTransGeom = ThisApplication.TransientGeometry
'Zugreifen auf die Parametersammlung.
Dim oParams As Parameters
Set oParams = oPartDoc.ComponentDefinition.Parameters
'Zugriff auf Parameter in der verlinkten Datei.
Dim oParamTableFiles As ParameterTables
Set oParamTableFiles = oParams.ParameterTables
Dim wb As Excel.Workbook
Dim sh As Excel.WorkSheet
Dim exl As New Excel.Application
Set wb = exl.Workbooks.Add()
Set sh = oParams.ParameterTables(1).WorkSheet
Set wb = sh.Parent
'Variablen für die Koordinaten festlegen.
Dim dblX As Double
Dim dblZ As Double
Dim oCoord As Point2d
Dim iRow As Integer
For iRow = 7 To 223
dblX = sh.Cells(iRow, 3)
dblZ = sh.Cells(iRow, 4)
Set oCoord = oTransGeom.CreatePoint2d(dblX, dblZ)
Next iRow
End Sub
Es erscheint keine Fehlermeldung, aber Punkte werden mir leider auch keine gezeichnet.
Was mache ich falsch?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP