---

Servus

Will aus Excel einen Befehl in Autocad aufrufen und hab das im Forum gefunden. Der Befehl wird durch Formeln zusammengestellt und steht in im Layout Bestimmt Zelle D13.

Ich weiß das bei vbastmt der Befehl aus der Zelle reingehört aber wie hab ich keinen Schimmer.

Der Befehl dreht in Acad das UCS auf Welt setzt einen Block mit Attribut und dreht dann UCS wieder zurück.

Code:

---

(command "_ucs" "_w") (command "_insert" "Kot_Hoehe_LP" "-101941.8499051,203057.2992329" "" "" "" "1023.2" ) (command "_ucs" "_p")

---

Code:

---

Sub test()
    Dim acApp As Object, x
    Set acApp = GetObject(, "Autocad.application")
    x = acApp.activedocument.FullName
    Cells(1, 1) = x
    AppActivate "Autodesk Architectural Desktop 2005"
    ''acApp.activedocument.sendcommand "commandName" & chr(13)
    acApp.activedocument.sendcommand "vbastmt" & Chr(13) & "msgbox now" & Chr(13)
    '''AppActivate "Microsoft Excel"
End Sub

---

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
<----- Bitte Systeminfo eintragen, warum siehst du hier.

[Diese Nachricht wurde von Bernd P am 21. Sep. 2007 editiert.]

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

---

Hallo Bernd
 

Zitat:

---

Original erstellt von Bernd P:
    acApp.activedocument.sendcommand "vbastmt" & Chr(13) & "msgbox now" & Chr(13)

---

Damit machst du deiner Signatur ("Warum Einfach es geht auch kompliziert") alle Ehre.
Du bist in Excel, holst dir eine ActiveX Instanz von AutoCAD, nutzt da den Bypass um AutoCAD Kommandos aufzurufen, um da mit dem Hilfskommado VBASTMT einen VB Befehl auszuführen. 
Was willst du denn eigentlich machen  

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

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

---

Ich meine ich habe mal folgendes gebraucht:
Ich habe Werte in Excel und mit diesen soll in Autocad was gezeichnet werden!
Das Hauptprogramm das die Werte verarbeitet befindet sich aber in Autocad (ist einfach viel viel schneller)

########Programm in Excel

Public mspace, acad

Sub Zeichne()

    Call initacad
   
    AppActivate acad.Caption
    Hilfstool_Cad.acad.ActiveDocument.SendCommand "-vbarun Ergebnislinienzeichnen.Zeichne_Mom "
'Das Programm Zeichne_Mom holt sich dann aus Excel die Daten und verarbeitet diese dann in Autocad"

End Sub

Sub initacad()
On Error Resume Next
Set acad = GetObject(, "AutoCAD.Application")
Set mspace = acad.ActiveDocument.ModelSpace
If Err.Number <> 0 Then
Set acad = CreateObject("AutoCAD.Application")
Set mspace = acad.ActiveDocument.ModelSpace
End If
acad.Visible = True
End Sub

########Ende Programm in Excel

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

---

Servus
Jo mei, wenn mans logisch durch denkt geht´s eh.

Code:

---

Sub Export_Bestimmt2()
    Dim acApp As Object, x, y
    Application.ScreenUpdating = False
    Set acApp = GetObject(, "Autocad.application")
    x = acApp.activedocument.FullName
    y = Worksheets("bestimmt").Cells(13, 4).Value
    AppActivate "Autocad 2006"
    ''acApp.activedocument.sendcommand "commandName" & chr(13)
    acApp.activedocument.sendcommand y
    '''AppActivate "Microsoft Excel"
    Sheets("start").Select
End Sub

---

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
<----- Bitte Systeminfo eintragen, warum siehst du hier.

[Diese Nachricht wurde von Bernd P am 08. Okt. 2007 editiert.]

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

---

Nehmen wir mal an, dass der ganze String wirklich eins zu eins in einem Excelferld steht

Eyxcelfeld Inmhalt : (command "_ucs" "_w") (command "_insert" "Kot_Hoehe_LP" "-101941.8499051,203057.2992329" "" "" "" "1023.2" ) (command "_ucs" "_p")

jetzt holst du dir diesen Inhalt einfach in eine Variable z.B.: StringAusExcelFeld und  schiesst es so ins Autocad:

acadObj.ActiveDocument.sendcommand "(progn" & StringAusExcelFeld & ")" & vbcr

------------------
   
Ing. Anton Fuchs
WWW.FFZELL.AT.TC

[Diese Nachricht wurde von fuchsi am 08. Okt. 2007 editiert.]

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

---

Servus

Genau das war das Problem wie bekomme ich den String StringAusExcelFeld richtig rüber.
Hier auch der Code zum persönlichen anpassen (die FETT markierten stellen.)

Code:

---

Sub Export_Bestimmt2()
    Dim acApp As Object, x, y
    Application.ScreenUpdating = False
    Set acApp = GetObject(, "Autocad.application")
    x = acApp.activedocument.FullName
    y = Worksheets("bestimmt").Cells(13, 4).Value
    AppActivate "Autocad 2006"
    ''acApp.activedocument.sendcommand "commandName" & chr(13)
    acApp.activedocument.sendcommand y
    '''AppActivate "Microsoft Excel"
    Sheets("start").Select
End Sub

---

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
<----- Bitte Systeminfo eintragen, warum siehst du hier.

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

---

Sub Export_Bestimmt2()
    Dim acApp As Object, x, y
    Application.ScreenUpdating = False
    Set acApp = GetObject(, "Autocad.application")
    x = acApp.activedocument.FullName
    y = Worksheets("bestimmt").Cells(13, 4).Value
    AppActivate "Autocad 2006"
    ''acApp.activedocument.sendcommand "commandName" & chr(13)
    acApp.activedocument.sendcommand y
    '''AppActivate "Microsoft Excel"
    Sheets("start").Select
End Sub[/code]

Und im Excel Feld 13,4 steht wirklich dieser ganze Codeschnippsel (command "ucs" ...

dann sollte es so gehen
acApp.activedocument.sendcommand "(progn " & y & ")" & vbcr

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Hallo,

IMHO müsste aber die richtige Caption beim AppActivate verwendet werden um das Fenster auch wirklich zu aktivieren.
Oder ist keine Zeichnung offen ?

Code:

---

''AppActivate "Autocad 2006"
AppActivate acApp.Caption

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Servus

Der Code funktioniert jetzt soweit danke @all
Hier der Code für
Eine Zelle

Code:

---

Sub Export_Bestimmt2()
    Dim acApp As Object, x, y
    Application.ScreenUpdating = False
    Set acApp = GetObject(, "Autocad.application")
    x = acApp.activedocument.FullName
    y = Worksheets("bestimmt").Cells(13, 4).Value
    AppActivate "Autocad 2006"
    ''acApp.activedocument.sendcommand "commandName" & chr(13)
    acApp.activedocument.sendcommand y
    '''AppActivate "Microsoft Excel"
    Sheets("start").Select
End Sub

---

mehrere Zellen untereinander

Code:

---

Sub Export_intervall()
    Dim acApp As Object, x, y
    Application.ScreenUpdating = False
    Set acApp = GetObject(, "Autocad.application")
    x = acApp.activedocument.FullName
    For i = 13 To 112
    y = Worksheets("intervall").Cells(i, 4).Value
    AppActivate "Autocad 2006"
    '''acApp.activedocument.sendcommand "commandName" & chr(13)
    acApp.activedocument.sendcommand y
    '''AppActivate "Microsoft Excel"
    Next
End Sub

---

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
<----- Bitte Systeminfo eintragen, warum siehst du hier.

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