|
AutoCAD VBA : Fehler beim Laden der Anwendung
alfred neswadba am 13.01.2010 um 13:50 Uhr (0)
Hi Stephan, GetInterfaceObject("Polycad.Application")deutet darauf hin, dass diese Applikation nicht gestartet ist, sprich kein ActiveX-Server mit dieser ClassID ist aktivierbar; oder es gibt diese ClassID auf dem Rechner nicht in der Registry (nicht registriert).Wobei sei bitte vorsichtig, dass Du nicht GetInterfaceObject und GetObject verwechselst! Ist Polycad ein selbständiges Programm oder eine ActiveX-Applikation zu AutoCAD?- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Fehler beim Laden der Anwendung
stefanstein am 13.01.2010 um 13:22 Uhr (0)
Hallo,ich hoffe dies ist meine (vorerst) letzte Frage.Ich habe ein kleines VBA Programm unter AutoCAD 2009 geschrieben. Nun habe ich heute an der FH getestet, wo es letztendlich laufen muss.Die installierte Version dort ist AutoCAD 2010 MEP. Beim Ausführen des Programmes bekomme ich folgenden Fehler: Zitat:Lautzeitfehler -2147221005 (800401f3):Fehler beim Laden der AnwendungCode:Sub Example_GetInterfaceObject() This example returns top level object of another application. Dim poly As Object Set poly ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Fehler beim Laden der Anwendung
stefanstein am 13.01.2010 um 14:24 Uhr (0)
Entschuldige. Ich hätte das nicht vermischen sollen.Mir geht es nur um den folgenden Code. Nicht um Polycad (das war nur in der Hilfe und hat den selben Fehler ergeben, daher habe ich dies gepostet, um Fehler in meinem Code auszuschließen )Code:Dim aclayer As AcadLayerDim farbe As AcadAcCmColorSet aclayer = ThisDrawing.Layers.Add("huell")Dim farbe As AcadAcCmColorSet farbe = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17") Bei dieser Zeile der FehlerCall farbe.SetRGB(0, 0, 0)aclayer.TrueColor = ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Aus Excel Autocad aufrufen
Björn Möller am 13.01.2010 um 22:13 Uhr (0)
Hi Alfred,danke für Deine schnelle Hilfe.Gruß Björn
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : DWGs im Durchlauf öffnen bearbeiten speichern schließen
Dirk.B am 14.01.2010 um 21:01 Uhr (0)
Hallo zusammen!@Alfred:Ich hätte hierzu noch mal ne Frage.Ist die zu öffnende Zeichnung selbst eine Blockdefinition (mit dynamischen Eigenschaften), dann ist der Weg allerdings zu überdenken, denn dann folgt von AutoCAD die Abfrage wollen Sie diese Zeichnung im Blockeditor öffnen?An dieser Stelle unterbricht ja das Programm, weil die besagte Dialogbox erscheint.Code:...Do While Dateiname "" Set tAcadDoc = tAcadApp.Documents.Open(ImportPfad & Dateiname)###Hier kommt die Dialogbox...Die Dialogbox steht ja ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zugriff aus Excel
alfred neswadba am 22.02.2011 um 10:25 Uhr (0)
Hi,wenn AutoCAD im Hintergrund geöffnet war, dann hast Du (auch) mit CreateObject gespielt, denn GetObject funkt nur dann, wenn AutoCAD bereits offen ist.Und ja, ist ein AutoCAD im Hintergrund offen (oder allgemein: sind mehrere AutoCAD-Sessions gestartet), dann hast Du mit GetObject keine Chance zu bestimmen, mit welchem der gestarteten AutoCADs Dein VBA sich verheiratet.Hauptsache es funkt jetzt Weiter viel Erfolg, - alfred -------------------www.hollaus.at
|
| 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
alfred neswadba am 22.02.2011 um 09:40 Uhr (0)
Hi, Er läuft ohne Fehlermeldung durch, macht aber nichts.dann mal On Error Resume Next rausnehmen.Wenn dann keine Fehler auftreten: könnte sein, dass Du nur mal im AutoCAD ZOOM Grenzen machen musst?- alfred -------------------www.hollaus.at
|
| 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
alfred neswadba am 22.02.2011 um 08:38 Uhr (0)
Hi, Wenn ich mit F8 durchgehe sehe ich das er immer in das erste IF läuft. und dann bei EXIT SUB austeigt.... dann nehme ich an, dass AutoCAD 2010 nicht gestartet (oder beschäftigt) ist.Nimm mal die Versionsnummer raus, die brauchst Du nicht unbedingt (zumindest nicht in diesem Zustand), dann startest Du AutoCAD, wartest bis es vollständig geladen ist, nachfolgend das Makro im Excel.- alfred -------------------www.hollaus.at
|
| 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 |
