|
Autocad VBA : AutoCAD-VBA nach Excel-VBA (laufzeit)
yamaha am 18.08.2004 um 10:49 Uhr (0)
Hallo Frank, die Erfahrung habe ich auch gemacht. Das mit der Erzeugung der .exe bzw. .dll ist wahrscheinlich richtig und sogar noch schneller, wenn man die Möglichkeit hat dies zu machen. Ich habe mir so geholfen, das ich das was ich Autocad mache, auch als Code in Autocad gelassen habe und dann den Code von Excel aus gestartet habe. Bei meinem Problem habe ich Blockattribute ausgewertet. Die Blockattribute habe ich von Autocad aus in eine Datenbank geschrieben und dann von Excel aus wieder eingelesen. Is ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Autocad aus Excel heraus ansprechen
yamaha am 20.02.2008 um 16:07 Uhr (0)
Hallo Ines,1.Also der Code kommt ja in die Excel-Datei.Du kannst da im VBA-Editor auf einem Verweis zur Autocad Type Library verzichten; würd ich aber nichtmachen, weil du dann auch die Autocad-eigenen Schlüsselwörter(zb. acPaperSpace) nicht verwenden kannst.Wieso willst Du überhaupt drauf verzichten?2. zu Set acApp = CreateObject("Autocad.Application")Das Startet jeweils eine neue Autocad-Instanz.Wenn dies gewünscht wird OK, ich nehme aber lieberSet acApp = GetObject(, "AutoCad.Application.17")Damit greif ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad aus Excel heraus ansprechen
yamaha am 22.02.2008 um 12:14 Uhr (0)
Hallo Ines,Code:Set MyTable = MyPaperSpace.AddTable(pt, 5, 2, 5, 55)müßte funktionieren---------------------------------------Gruß Jörn[Diese Nachricht wurde von yamaha am 22. Feb. 2008 editiert.]
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : VBA Zugriff auf Acad von Excel aus
yamaha am 03.05.2005 um 09:12 Uhr (0)
Hallo Taz_Cad 1. Du mußt den Verweis auf die AutoCad-Objektbibliothek gesetzt haben. 2. Du mußt AutoCad gestartet haben. 3. Du mußt die Version von Autocad beachten 4. Dann müßte folgendes funtkionieren On Error Resume Next Err.Clear Set ACADServer = GetObject(, AutoCad.Application.15 ) If Err.Number = 0 Then AutoCADVersion = 2000 Exit Function End If Err.Clear Set ACADServer = GetObject(, AutoCad.Application.16 ) If Err.Number = 0 Then AutoCADVersion = 2004 Exit Function End If usw. ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
