|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 28.02.2005 um 09:37 Uhr (0)
Hallo, bin neu hier und auch ohne Erfahrung was AutoCAD angeht, muß allerdings für bestimmmte Leute ne Automatisierungssoftware schreiben. Hab es geschafft mit VBA bis jetzt über OLE AutoCAD 14R anzusprechen und Dateien zu öffnen. Doch nach Stunden der forschung komm ich nicht weiter und hoffe bei euch hier fündig zu werden. Problem: Ich soll eine vorhandene AutoCAD zeichnung als erstes Skalieren. Sie soll komplett auf eine bestimmte höhe verkleinert werden, danach soll ich sie an einen bestimmten punkt po ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 28.02.2005 um 12:45 Uhr (0)
Hi, damit jeder mein Problem versteht hier die mauelle vorgehensweise: -mit der Maus die komplette Zeichnung selektieren mit allen erstellten Layern -Zeichnung skalieren. Höhe = 146mm -Zeichnung move(alle, erster punkt 0,0, zweiter 20,145) -Rasterabstand mit LIMMAX 1980,297 -Excelvorgehensweise: aus einer Exceltabelle werden zuerst 20 Zeilen kopiert (STRG+C) und dann in AutoCAD als AUTOCAD-Objekt eingefügt -skalierfaktor x= 0,34, y=0,531 -im Autocad den befehl explode eingeben um layer und farbe ändern ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 28.02.2005 um 16:13 Uhr (0)
Hi, jo die ansätze waren schon super. Allerdings hätt ich da trotzdem noch ein paar fragen. Also als erstes, ich programmiere ja mit VB6 und nicht mit dem vom Autocad mitgelierferten VBA. Daher kann ich solche Objekte wie ThisDrawing und die Methode SendCommand nicht benutzen bzw. finden. Desweiteren hatte ich die idee die Funktion ScaleEntity(BasePoint, ScaleFactor) einzugeben. Mein Code Dim Selectionset As Object Set Selectionset = acadDo ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 01.03.2005 um 16:00 Uhr (0)
Also Huebi, ich bin dir sehr dankbar für die Hilfe und weiß es auch zu schätzen. Das mit dem Debugen hab ich schon längst doch es sind verschiedene Probleme. Ich fang mal mit dem hauptproblem an. AcSSet.Item(i).ScaleEntity AllMin, ScaleFactor wenn man sich AcSSet genauer anschaut und die einzelnen Elemente betrachtet erwarte ich eigentich nach dem durchlauf dieser funktion das sich z.B. beim rechteck die werte für Witdh und Hight ändern. Das tuen sie allerdings nicht!!! und ich verstehe nicht warum. V ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
CoXiDo am 02.03.2005 um 10:47 Uhr (0)
HALLO :-) Es hat geklappt. Also erstmal vielen lieben dank Huebi!!!! Und nun nochmal für alle meine Funktionierende Lösung: CODE: Dim acApp As Object Anwendungsobject Dim acDoc As Object Dokumentobject Dim acSelect As Object Selectionobject (Ausgewählte Elemente) Setzen des Aktuellen Dokumentes und öffnen der Datei Set acApp = CreateObject( Autocad.Application ) Set acDoc = acApp.ActiveDocument ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Inhalt Einfügen als Autocadobjekt
CoXiDo am 02.03.2005 um 16:09 Uhr (0)
Hallo ich bins wieder. Ich steh hier vor einem kleinem Problem. BIn fast fertig mit meinem programm allerdings komm ich an einer stelle nicht weiter. Stellt euch mal vor ich hätte estwas in meine Windows zwischenablage abgespeichert z.B. XLSWORKSHEET.Range( A2:C21 ).Copy Im manuellen fall tun das meine user auch. im nächsten schritt im Autocad werden folgende Schritte getan: - Mausklick auf Bearbeiten - Inhalt einfügen... - Einfügen als Autocad Object Mein Problem ist es ist nicht nur ein einfach ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Probleme mit Autocad, es scheint zu Spinnen
CoXiDo am 07.03.2005 um 09:38 Uhr (0)
Hallo, jupp ich al wieder. Vielleicht haben ja einige von euch meine letzten 2 Beioträge schon mit verfolgen können. Hier nochmal zu vollständigkeit noch eine schneller Möglichkeit eine dfx Datei alles automatisiert und schnell auszuwählen, zu sklaieren und zu positioniern. Ansatz mit Skript test.scr CODE: Dim fso As New FileSystemObject Dim skript As TextStream Dim path As String Dim datei as string datei = "c: est.dxf" -------------------------------------------------- ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Probleme mit Autocad, es scheint zu Spinnen
CoXiDo am 07.03.2005 um 13:04 Uhr (0)
Erstmal danke für die Antwort. hierzu möchte ich kurz auf den Code aus meiner Anfrage kurz eingehen. Bei manchen dxf Dateien tut das Progi auch das was es soll. Allerdings nur bei einem bestimmten Format bis jetzt. Bei Zeichnungen die kleiner sind ist das nicht der Fall, jedenfalls nicht automatisiert. Wenn ich aber genau das gleiche Skript manuell eingebe, im autocad selber jeden befehl nach dem anderen, dann tut es komischer weise. Am Skript sollte es aber auch net wirklich liegen weil bei einigen tuts j ...
|
| In das Form Autocad VBA wechseln |
