---

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:\test.dxf"
   
   
    '----------------------------------------------------------------------------

    'Erstellung des Skriptes für AutoCAD das bei jedem start neu generiert wird
    path = Autocadpath & "\" & "path.scr"
    path = Replace(path, "\\", "\")

    Set skript = fso.CreateTextFile(path, True)

    skript.Write ("_OPEN ")
    skript.Write ("""" & datei& """" & vbCrLf)
   
    path = Replace(dxfpath, "\DXF\", "\DWG\")
    path = Replace(path, ".dxf", ".dwg")
   
    'skript.Write ("_saveas ")
    'skript.Write ("""" & path & """" & vbCrLf)
    skript.Write ("_scale _all  0.4,0.4 0.518" & vbCrLf)
    skript.Write ("_move _all  0.0,0.0 20.0,146.0" & vbCrLf)
    skript.Write ("_limmax 1980,297" & vbCrLf)
    skript.Write ("regen" & vbCrLf)
    skript.Write ("_line 20,130 110,130 110,10 20,10 20,130  " & vbCrLf)
   
         
    Call skript.Close
    Shell "C:\Programme\Autocad R14\acad /b test" 'Aufruf des Autocad Skriptes.

Mein Problem bei der ganzen Sache:

Ich will es sehr präzise haben. Sprich wenn ich ein 4eck Zeichne soll es ein Vierecksein (s. Code oben: _line ....)
Ich arbeite ja mit ACAD R14, und hier scheint es einen komischen effekt drin zu geben. Mann stelle sich vor, wenn mein Fenster nicht maximiert am bildschirm erscheint, dann tut er was er soll, machmal.
Es kommt auch auf die größe der bilder an die ich aufrufe. Er verschiebt sie mir abhängig der Fenstergröße und abhängig von der größe des bildes an verschiedene punkte aber nie z.B. nach 20,140.

Ideen, Ansätze, Erfahrungswerte einfach alles ist erwünscht und wllkommen.

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo CoXiDo,

Objektfänge sind ausgeschaltet? Weltkoordinatensystem ist aktuell? Zwischendurch den Bildschirmausschnitt so erweitert, dass die Koordinaten im sichtbaren Bereich sind?

Das sind die Fragen, deren Antworten im Code umzusetzen sind. Dann könnte es passen.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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 ja wie es soll.

Hilfe gesucht!!! :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von CoXiDo:
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 ja wie es soll.

Hilfe gesucht!!! :-)

---

gut, wenn du meinst, dass es nicht am Skript liegt, woran dann?

Meine Erfahrung ist, dass wenn ein Programm/Script mal das macht, und dann eben nicht das macht, was es soll, dann liegt das daran, dass das Programm eben nicht alle Eventualitäten, die auftreten können, berücksichtigt.

Hast du denn besonders den Objektfang einmal in deinem Skkript berücksichtigt?

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP