|
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 11:52 Uhr (0)
An Hubi, erstmal möchte ich auf deine Antwort eingehen. Ich kenn mich zwar nicht aus aber ich denke es sollte doch nicht so unlösbar sein. Es ist ja kein Problem den Modelbereich auf dem sich die zeichnung befindet auszulesen und z.B. einen normalen Text einzufügen. Es ist ja auch kein Problem einzelne linien oder Kreise zu selektieren und z.B. die Farbe und position zu bestimmen. 1.Frage: wie selektiere ich ein komplettes Bild im Modelbereich? 2. Frage: wie verändere ich die Größe und die postition der k ...
|
| In das Form Autocad VBA wechseln |
|
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 01.03.2005 um 15:08 Uhr (0)
okay nochmals danke. aber ich sag dir bei mir tut sich da garnichts. Egal welches Bild ich starte. DIe skalierung der einzelnen Objekte ändert sich nicht. Woran könnte das liegen? Danke
|
| 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 : 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 12:07 Uhr (0)
Hallo. Erstmal vielen dank Hubi für deine Hilfe und unterstützung. Ich war gestern doch zu ko den Code zu verstehen aber ich bin ihn heut durchgegangen und hab mir mal ein dummy prog geschireben. Dein Ansatz find ich logisch aber :-) es tut nix. Es wird nichts verkleinert bzw. skaliert und ich weiß net warum. Also nochmal von vorne. Im Anhang liegt der code, ist nur wenig anders als der von Hubi einen eintrag vorher. Ansonsten noch die Frage, währe es den in LISP möglich ein Skript zu schreiben mit dem ich ...
|
| 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 |
