---

Hallo
Ich bin jetzt mit meinem Programm fertig zur Bewertung. Sogar die statische Richtigkeit hab ich komplett überprüft...also keine angst  . Jetzt fehlt mir nur noch eines und zwar habe ich AutoCAD 2002. So und nur diersen Verweis Konnt ich im VBA editor von Excel anklicken. ICh finde in meiner Verweisbibliothek keine Verweise für AutoCAD 2004, 2005 und das neue 2006. Diese Verweise brauch ich nämlich damit auch Leute mit anderen AutoCAD versionen als 2002 mein klienes Proggy testen können. Woher bekomm ich denn diese Verweise? oder gibts nen anderen Weg.

Danke
Dominik

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

---

Hi Dominik,

wenn du uns den Verweis posten würdest, wäre es für uns von grossem Vorteil, da wir sonst nicht wissen von was du sprichst...

Danke !

------------------
Grüsse

Thomas

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

---

Also meine derzeitiger code zum öffnen von AutoCAD sieht so aus.

Sub transfer()
  Dim ac As AcadApplication
  Dim acp(0 To 38) As Double
  Dim acpline As Acad3DPolyline
  Set ac = New AcadApplication
  ac.Visible = 1

ich habe es nun auf anderen rechnern getestet mit dem selben AutoCAD das ich habe 2002.. das funktioniert.
Aber auch rechnern mit versionen darüber geht es nicth mehr..
das ist mein problem..

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

---

Hi sTixi,

versuch's mal mit late Binding

Code:

---

dim acapp as object
set acapp = createObject("Autocad.application")
dim acpline as object 'deine 3D-Pline
...
Set acPline = acapp.ActiveDocument.ModelSpace.Add3DPoly(acP)

---

Gruss Nancy

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

---

Hallo ja danke damit funzt es nur wenn ich autocad schon auf habe. Ich habe in anderen posts gelesen wenn ich alle autocad versionen ansprechen will muß ich es ohne verweise machen. also mit getojekt. alles schön und gut aber wie bekomm ich denn autocad auch automatisch auf? das zerreißt mir den kopf..  mein bisheriger code:

Sub transfer()

  On Error Resume Next

    Err.Clear
    Set ac = GetObject(, "AutoCad.Application.14")
    If Err.Number = 0 Then
        AutoCADVersion = "14"
   
    End If
        Err.Clear
    Set ac = GetObject(, "AutoCad.Application.15")
    If Err.Number = 0 Then
        AutoCADVersion = "2000"
 
    End If
        Err.Clear
    Set ac = GetObject(, "AutoCad.Application.16")
    If Err.Number = 0 Then
      AutoCADVersion = "2004"
 
    End If
        Err.Clear
    Set ac = GetObject(, "AutoCad.Application.16.1")
    If Err.Number = 0 Then
      AutoCADVersion = "2005"
 
    End If
        Err.Clear
    Set ac = GetObject(, "AutoCad.Application")
    If Err.Number = 0 Then
 
    End If

        Err.Clear
    Set ac = ACADApplication
    If Err.Number = 0 Then
 
    End If

    Dim acp(0 To 38) As Double
    Dim acpline As Object
 
    ac.Visible = 1

...

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

---

nicht GetObject - CreateObject ;;-))

Gruss Nancy

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

---

Alles klar!!! tretet mir bitte kollektiv in den Allerwertesten..  denn wer lesen kann ist klar im vorteil...

danke nancy jetzt geht alles genau wie ich wollte.. hier der ganze code:

Dim ac As Object
    On Error Resume Next

    Err.Clear
    Set ac = CreateObject("AutoCad.Application.14")
    If Err.Number = 0 Then
        AutoCADVersion = "14"
   
    End If
        Err.Clear
    Set ac = CreateObject("AutoCad.Application.15")
    If Err.Number = 0 Then
        AutoCADVersion = "2000"
 
    End If
        Err.Clear
    Set ac = CreateObject("AutoCad.Application.16")
    If Err.Number = 0 Then
      AutoCADVersion = "2004"
 
    End If
        Err.Clear
    Set ac = CreateObject("AutoCad.Application.16.1")
    If Err.Number = 0 Then
      AutoCADVersion = "2005"
 
    End If

    Dim acp(0 To 38) As Double
    Dim acpline As Object
 
    ac.Visible = 1

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

---

und der Vollständigkeithalber...

http://42.cad.de/index.php/AutoCAD

Code:

---

End If
        Err.Clear
    Set ac = CreateObject("AutoCad.Application.16.2")
    If Err.Number = 0 Then
      AutoCADVersion = "2006"

---

(Wir haben 2005 - da muss es schon ein 2006er geben  )

------------------
Grüsse

Thomas

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