---

jeg er ved at skrive en kode i vb 6.0 hvor jeg skal i kontakt med inventor som er åben skal jeg da bruge addin eller er der en anden måde

---

Du skal sørge for at få tilføjet de rigtige referencer (ikke add-ins) - jeg ved ikke hvad de hedder, da jeg ikke selv arbejder med inventor.

Men du kan givet finde de relevante ocx'er, dll'er osv. i listen over tilgængelige referencer.

Lidt afhængig af hvad du skal lave, kan referencerne være forskellige.

Spørg evt. i nyhedsgruppen http://discussion.autodesk.com/index2.jspa?categoryID=21

---

jeg takker det har jeg gjordt ,jeg er også kommet i kontakt med inventor men den bliver ved med at gå i fejl hvad gøre jeg forkert

Private Sub Commandindsæt_Click()

Dim oApp As Inventor.Application
Set oApp = GetObject(, "Inventor.Application")

' Set a reference to the currently active document.
Dim oDoc As Inventor.AssemblyDocument
Set oDoc = oApp.ActiveDocument

' Set a reference to the assembly component definintion.
' This assumes an assembly document is open.
Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = ActiveDocument.ComponentDefinition




' Set a reference to the transient geometry object.
Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry


' Create a matrix. A new matrix is initialized with an identity matrix.
Dim oMatrix As Matrix
Set oMatrix = oTG.CreateMatrix

' Set the rotation of the matrix for a 45 degree rotation about the Z axis.
Call oMatrix.SetToRotation(3.14159265358979 / 4, _
oTG.CreateVector(0, 0, 1), oTG.CreatePoint(0, 0, 0))

' Set the translation portion of the matrix so the part will be positioned
' at (3,2,1).
Call oMatrix.SetTranslation(oTG.CreateVector(3, 2, 1))

' Add the occurrence.
Dim oOcc As ComponentOccurrence
Set oOcc = oAsmCompDef.Occurrences.Add("C:\vb\Ipart\RRTL_x.ipt", oMatrix)

---

Tja....jeg kender som sagt ikke Inventors API interface, men nøjagtig HVOR går din kode i stå?

---

Hej....

Skal din manglende respons tolkes således, at du har fået løst dit problem?

---

undskyld jeg ikke lige har reageret men jeg har haft meget om ørene på det sidste.
Men jeg er desvære ikke kommet ret meget vider jeg har fundet ud af mit problem er
ThisApplication. det virker i vba men ikke i vb og jeg ved ikke hvad jeg skrive i stedet for

' Set a reference to the transient geometry object.
Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry

---

Mon ikke du kan skrive noget i retning af Application.Inventor.TrancientGeometry

"ThisApplication" henviser jo til den applikation som din VBA afvikles i (altså inventor)

Når du så kopierer koden råt for usødet over i VB, så er "ThisApplication" selve dit VB program - altså Microsoft Visual Studio eller hvad du nu bruger

Derfor skal du kalde Application.Inventor i stedet (hvis det er det objektet hedder)

---

hej berpox
tak for hjælpen det var ikke helt som du skrev men tæt på jeg skrev det sådan her så virkede det

Dim InvApp As Inventor.Application
Dim ThisDocument As Inventor.Document
Dim PartDoc As Inventor.PartDocument

Set InvApp = GetObject(, "Inventor.Application")
Set ThisDocument = InvApp.Documents.Open("C:\vb\Ipart\RRTL_x.ipt")

If ThisDocument.DocumentType = kPartDocumentObject Then
Set PartDoc = ThisDocument
End If

---

Super! Jeg kender jo som sagt slet ikke Inventors API - men dejligt at jeg kunne lede dig på sporet

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.