|
AutoCAD VBA : ACAD 2010 Updaten
marcosevim am 24.03.2011 um 12:50 Uhr (0)
Hallo.Ich möchte ein Update für ACAD runterladen. Weiss aber nicht welche Version ich eigenlicht genau habe.Unter Hilfe Info steht:VERSION: D.306.0.0 Autocad Architecture 2010 - Deutsch Version 3Unter http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=15074619&linkID=9240618 habe ich das Update 2 gesehen. Hab ich das schon oben?Und was ich auch nicht weiss ist ob ich die 64 Bit Version verwende. Das OS ist 64 BIT. Muss somit ACAD auch automatisch 64BIT sein. Wo sieht man das?Danke für Tipps.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zugriff aus Excel
marcosevim am 22.02.2011 um 10:15 Uhr (0)
Ok Mach ich auch gleich. Ev gehts aber nun.Hab ein paar Sachen die ich so gefunden habe zusammenkopiert.Schaut nun so aus:Code:Option ExplicitPublic acadPublic MspacePublic DrawingPublic ssetSub init()On Error Resume Next Set acad = GetObject(, "AutoCAD.Application") If Err 0 Then MsgBox "Zuerst das DWG-File öffnen, und dann ausführen!!" Exit Sub End If acad.Visible = True Set Mspace = acad.ActiveDocument.ModelSpace Set Drawing = acad.ActiveDocumentEnd SubSub test()Call initDim Kreis As AcadCi ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zugriff aus Excel
marcosevim am 22.02.2011 um 09:59 Uhr (0)
Hallo,nein Leider.Der Code sieht nun folgend aus:Code:Sub test()On Error Resume NextErr.ClearSet ACADServer = GetObject(, "AutoCad.Application.18")If Err.Number = 0 Then AutoCADVersion = "2010" Exit SubEnd IfDim Kreis As AcadCircleDim Zentrum(0 To 2) As DoubleDim Radius As DoubleZentrum(0) = 0: Zentrum(1) = 0: Zentrum(2) = 0Radius = 100.5Set Kreis = ACADServer.ActiveDocument.ModelSpace.AddCircle(Zentrum, Radius)End SubEs kommt keine Fehlermeldung, Kreis wird aber ganz sicher keiner gezeichent. Weder bei ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zugriff aus Excel
marcosevim am 22.02.2011 um 09:06 Uhr (0)
Habs mit folgendem Code versucht.Einmal wenn kein ACAD offen ist und einmal wenn es frisch geöffnet wurde.Code:Sub test()On Error Resume NextErr.ClearSet ACADServer = GetObject(, "AutoCad.Application.18")If Err.Number = 0 Then AutoCADVersion = "2010" Exit SubEnd IfDim Kreis As AcadCircleDim Zentrum(0 To 2) As DoubleDim Radius As DoubleZentrum(0) = 0: Zentrum(1) = 0: Zentrum(2) = 0Radius = 100.5Set Kreis = ACADServer.ActiveDocument.ModelSpace.AddCircle(Zentrum, Radius)End SubEr läuft ohne Fehlermeldung du ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zugriff aus Excel
marcosevim am 22.02.2011 um 08:35 Uhr (0)
Code sieht jetzt so aus:Code:Sub test()On Error Resume NextErr.ClearSet ACADServer = GetObject(, "AutoCad.Application.18")If Err.Number = 0 Then AutoCADVersion = "2010" Exit SubEnd IfDim Kreis As AcadCircleDim Zentrum(0 To 2) As DoubleDim Radius As DoubleZentrum(0) = 0: Zentrum(1) = 0: Zentrum(2) = 0Radius = 100.5Set Kreis = ACADServer.ActiveDocument.ModelSpace.AddCircle(Zentrum, Radius)End Sub
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zugriff aus Excel
marcosevim am 22.02.2011 um 07:53 Uhr (0)
Hallo, ich frag mal hier weiter, da der Titel auch zu meiner Frage passt Hab folgenden Code getestet: aber es kommt die Fehlermeldung Zitat:Fehler beim kompilieren: Benutzerdefinierter Typ nicht definiertIch möchte lernen wie man vom Excel aus das ACAD anspricht.Dazu das folgende Programm wo einfach ein Kreis im ACAD gezeichent werden soll.Der Code soll aber im EXCEL VBA gestartet werden.Code:Sub test()On Error Resume NextErr.ClearSet ACADServer = GetObject(, "AutoCad.Application.15")If Err.Number = 0 The ...
|
| In das Form AutoCAD VBA wechseln |
