|
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 : Wie verschlüsselle oder compiliere ich VBA Projekte
VBA-Piet am 23.12.2005 um 21:01 Uhr (0)
Hallo decarama,in der ct 5/2005 ist ein Artikel, wie man VBA-Quelltext von Office-Makros als Active-X Controls auslagert und somit den Quelltext verbirgt. Habe ich selbst bei Excel-Makros, die auf AutoCad zugreifen, erfolgreich praktiziert. Das müsste eigentlich auch bei AutoCad-Makros funktionieren.Grüße Piet
| | 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 : Zugriff von Excel auf Blöcke/ Blockattribute
VBA-Piet am 11.05.2005 um 15:43 Uhr (0)
Zu Frage 2: noch etwa unelegant, geht aber: Set sset = thisDrawing.SelectionSets.Add( SS1 ) Auswahlsatz sset.select acSelectionSetAll hier könnten schon vorab nur die Blöcke gefiltert werden For Each Objekt In sset If Objekt.EntityName = AcDbBlockReference Then Block? if Objekt.Name= Index then Blockname if Objekt.HasAttributes then Attribute? attrib = Objekt.GetAttributes For Count = LBound(attrib) To UBound(attrib) Select Case attrib(Count).TagString Name d ...
| | 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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
