|
Autocad VBA : Beim Block einfügen Einfügepunkt Anwender
yamaha am 29.04.2005 um 08:12 Uhr (0)
Hallo zusammen, ich möchte gerne einen Block per VBA einfügen. Dim blockRefObj As AcadBlockReference returnPnt = ThisDrawing.Utility.GetPoint(, Enter a point: ) Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock (returnPnt, C:Block.dwg , 1#, 1#, 1#, 0) Mit obigen Ccode klappts ja auch, aber ich würde gerne bei der Wahl des Einfügepunktes den Block am Mauszeiger hängen haben, wie es mit den normalen Autocad Befehl insert auch ist. Hatte schon überlegt 1. Block einfügen 2. Block verschieben aber dann ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ANSI --> DIN umstellen
Feyza am 02.05.2005 um 16:34 Uhr (0)
Hallo an Alle, jeder kennt bestimmt das Problem, wenn man von einem anderen CAD System eine Zeichnung als DXF/DWG ausliest, das dies in Norm ANSI/Britisch dargestellt wird. Wir bekommen von externen auch ab und zu, solche Zeichnungen. Und wenn welche da sind, ist es immer ein Haufen. Wie könnte man dies am besten automatisieren? Ich habe mir ein bestmmtes Verzeichnis gedacht, wo man diese Zeichnungen ablegt und von dort aus aufmacht und In AutoCAD Mechanical 2002 wäre die Funktion zum Umstellen: Mechanical ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : werkzeugkasten
BloodyMess am 02.05.2005 um 18:23 Uhr (0)
Hallo Gerald, Code: Sub test() Dim acMenuGrp As AcadMenuGroups Set acMenuGrp = AutoCAD.MenuGroups acMenuGrp.Item( ACAD ).Toolbars.Item( Text ).Visible = True End Sub ... anstatt Text (TextToolBar) kannst Du den Namen der ToolBar eintragen, die Du anzeigen möchtest. ACAD ist die obere MenuGruppe. Hth .. Gruss TP ------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBA Zugriff auf Acad von Excel aus
Taz_cad am 03.05.2005 um 08:46 Uhr (0)
Hallo Das würde zwar auch in ein Excel Forum passen, aber dort kennt wahrscheinlich keiner Autocad ;-) Ich habe versucht von Excel aus mit Set XlApp = GetObject(, Excel.Application ) und ähnlichem auf Acad zuzugreifen (umgekehrt von Excel aus funktionierts super) und bekomme andauernd die Fehlermeldung, dass ActiveX dieses Objekt nicht öffnen oder ansprechen kann (oder so ähnlich). Acad ist installiert und die Acad Objektreferenz hab ich auch geladen Geht soetwas gar nicht (von Excel über VBA auf A ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBA Zugriff auf Acad von Excel aus
BloodyMess am 03.05.2005 um 09:11 Uhr (0)
Hallo, mehrere Wege führen nach Rom. Wenn Du den Verweis gesetzt hast, dann funktioniert das ... Code: Sub test() Dim acApp As AutoCAD.AcadApplication Set acApp = New AutoCAD.AcadApplication acApp.Visible = True End Sub Gruss TP ------------------
|
| 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 |
|
Autocad VBA : Zugriff von Excel auf Blöcke/ Blockattribute
archstudent am 05.05.2005 um 10:50 Uhr (0)
Hallo! Ich möchte von Excel verschiedene Dateien öffnen und dort den Block Index (Blockname in allen Zeichnungen identisch) oder dessen Attribute verändern. In der Excelliste liegen die Dateien als Pfad vor und es gibt eine Spalte für die einzutragenden/ abzuändernden Werte. Z.B. Pfad Index ../plan01.dwg A ../plan02.dwg B ../plan03.dwg C ../plan04.dwg D Der aktuelle Stand: Sub Schaltfläche2_BeiKlick() Dim ac As AcadApplication Dim dateiname As Variant Set ac = New AcadAppl ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Problem mit Excelverknüpfung
VBA-Piet am 09.05.2005 um 16:51 Uhr (0)
Hallo Experten, ich stehe vor einem mir unerklärlichen Problem. Und zwar möchte ich aus Excel mit dem Befehl set AcadApp=GetObject ( , AutoCAD.Application ) ein AutoCad(2000)-Objekt erstellen. Das funktioniert auf meinem Rechner auch ganz wunderbar, nur auf anderen Rechnern erscheint die Fehlermeldung Objekterstellung durch ActiveX-Komponente nicht möglich , auch wenn AutoCad geöffnet ist. In der Hilfe zum Fehler stand was von einem Lizenzschlüssel in der Systemregistrierung, der gefunden werden müsse. H ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Problem mit Excelverknüpfung
VBA-Piet am 10.05.2005 um 09:50 Uhr (0)
Hallo BloodyMess, danke für den link. Ich möchte mit meiner Excel-Tabelle jedoch auf verschiedene Versionen von Autocad zugreifen können, deshalb habe ich mich für eine späte Bindung entschieden und gar keinen Verweis auf die AutoCad-Objektbibliothek gesetzt sondern AcadApp zunächst als Object deklariert und mit AcadApp=GetObject ( , AutoCAD.Application ) den Bezug zu AutoCad hergestellt. Das klappt auf meinem Rechner auch problemlos, nur beim Versuch das Programm auf fremden Rechnern zu starten kam in e ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Problem mit Excelverknüpfung
BloodyMess am 10.05.2005 um 10:07 Uhr (0)
Hallo Piet, meist ist es nur eine Zahl, die Du an AutoCAD.Application.XX anfügen musst. Klick Dich mal durch die Registrierung ... zu HKEY_LOCAL_MACHINESOFTWAREAutodeskAutoCADRXX.X ... wobei XX.X für die unterschiedlichen AutoCAD Versionen steht. Dort gibt es einen Wert CurVer .. In diesem steht sowas wie dein AutoCAD.Application , nur mit einer Zahl hintendran. Mit diesem Wert versuchst deinen Aufruf nochmal zu machen, dann sollte es klappen. Welche Version von Acad benutzt Du? Gruss TP ------------- ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Problem mit Excelverknüpfung
VBA-Piet am 11.05.2005 um 13:34 Uhr (0)
Hallo BloodyMess, erstmal vielen Dank für die schnelle Antwort. Ich habe jetzt eine Weile getüftelt und werde jetzt die Routine aus deinem empfohlenen Link einbauen, die die Version von AutoCad ermittelt, als 14 für Acad 14, 15 für Acad 2000 usw. Damit klappts dann hoffentlich auch auf anderen Rechnern, ich werde das Ergebnis hier vermelden. Ich selber nutze Acad 2000. In der Registrierung habe ich den CurVer-Wert gefunden, er ist bei mir ACAD-1001:407. Ein Aufruf mit: Set AcadApp = GetObject(, AutoCAD.A ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Problem mit Excelverknüpfung
BloodyMess am 11.05.2005 um 14:09 Uhr (0)
Hallo Piet, war wohl der falsche Schlüssel. So ganz ohne ein Acad vor sich zu haben ist´s dann doch schwieriger. Code: Set AcadApp = GetObject(, AutoCAD.Application.1001:407 ) ... funktioniert mitz Sicherheit nicht !!! eher sowas ... Code: Set AcadApp = GetObject(, AutoCAD.Application.15 ) AutoCadVersionen ---------------- 2002 -- AutoCAD.Application.15 2004 -- AutoCAD.Application.16 Probier mal den Registerzweig ... HKCR - AutoCAD.Application - CurVer .. dasteht es auch nochmal drinnen, wi ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Problem mit Excelverknüpfung
VBA-Piet am 12.05.2005 um 13:19 Uhr (0)
Verflixt, ich habs gerade auf dem fremden Rechner ausprobiert und es klappt nicht so richtig! Und zwar sind auf diesem Rechner sowohl Acad 14 als auch Acad 2000 installiert, eine Verbindung kommt aber nur mit Acad 14 zustande, obwohl ich eine Fallunterscheidung eingebaut habe: Public Function AutoCADVersion() On Error Resume Next Err.Clear Set AcadApp = GetObject(, AutoCad.Application.14 ) If Err.Number = 0 Then AutoCADVersion = 14 Exit Function End If Err.Clear Set AcadApp = GetObject(, AutoCa ...
|
| In das Form Autocad VBA wechseln |
