---

Hallo zusammen,

ich muß aus MDT laufend Modelle als iges ausgeben.
Die Datenqualität steigt wenn zuerst das Modell als sat File ausgegeben wird, danach in ein neues Template importiert und als IGES exportiert wird.
Da dies sehr mühsam ist möchte ich dies gerne automatisieren.
Leider komme ich mit meinen Programmierkenntnissen nicht sehr weit.
Die Schwierigkeit besteht darin, sobald das neue Template geöffnet wird läuft das Lisp trotzdem in der anderen Zeichnung weiter.
Desweitern kann ich der IGES Ausgabe kein Options File zuordnen.
Wie kann man dieses Problem angehen?

(defun c:my_iges_2 ( / CMD Pfad Name)
  (setq CMD (getvar "CMDDIA")
        Pfad (getvar "DWGPREFIX")
Name (vl-filename-base (getvar "DWGNAME")))
  (setvar "CMDDIA" 0)
  (setvar "filedia" 0)
;Modellbereich aktivieren
  (command "ammode" "M")
;Modell als sat speichern
  (command "amacisout" "_all" ""(strcat Pfad Name ".sat") "")
;neue Zeichnung öffnen
  (command "vbastmt" "AcadApplication.Documents.Add \"C:\\Programme\\MDT5\\desktop\\Template\\Teil.dwt\"")
;Modell als sat importieren
  (command "_acisin" (strcat Pfad Name ".sat"))
;als IGES ausgeben
  ;(command "_IGESOUT" (strcat Pfad Name ".igs") "") ; OptionsFile einstellen ?
  (setvar "CMDDIA" CMD)
  (setvar "filedia" 1)
  (alert (strcat "Gespeichert als \n \n" Pfad Name ".igs"))
  (princ)
)

Vielen Dank!

Viele Grüße
HansGeorg

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

---

Hallo HansGeorg!

Eine Idee wäre den ganzen Ablauf nicht aus einer einzelnen Lisp-Routine zu steuern, sonder aus einem SCR Script-Datei, die ermöglicht mehrere Dateien nacheinander aufzurufen, und jeweils den Lisp-Abschnitt gezielt darauf verwenden. Dies ist zwar nur eine Idee, sollte aber funktionieren, da aus einer SCR kann man wie in einem Batch dateienübergreifend in Autocad Kommandos ausführen bzw. auch Lisp ablaufen lassen. Man startet einfach über "Extras" > "Script ausführen..." die *.scr Datei

Gruß, Manfred

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

---

Hallo,

hört sich sehr interessant an, aber leider habe ich keine wie ich das Script aufbauen soll.
Die Schwierigkeit besteht darin eine Datei zu exportieren, eine neue öffnen und die exportierte wieder zu importieren.

Viele Grüße
HansGeorg

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

---

scr-Beispiele.zip

Hallo HansGeorg!

Die Strukturen der scr sind recht einfach, ähnlich einer Batch-Datei, Befehle werden nacheinender abgearbeitet.

Hiermit 2 Beispiele, die dwg-s aufrufen, eventuell Autocad-Variablen setzen, eine oder mehrere Lisp Routinen starten, eventuell noch plotten, etc., dann schließlich die dwg speichern und schließen, dann kommt die nächte dwg geöffnet, und (nach Wunsch) zyklisch wiederholt sich das ganze für x beliebige Zeichnungen. Dies wäre alleine mit Lisp (soweit ich weiß) nicht ohne Weiteres machbar.

Viel Erfolg!!!

Gruß, Manfred

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

---

Hallo ManfredMann,

vielen Dank, werde mir die Scripts in Ruhe anschauen.

Viele Grüße
HansGeorg

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

---

Hallo ManfredMann,

du hast mir sehr weitergeholfen.
Vielen Dank.
Aber trotzdem noch eine Frage.
Wie kann ich hier das Optionsfile aufrufen?
(command "_IGESOUT" (strcat Pfad Name ".igs") "")
Nach der Abrage von Pfad und Name des iges Files muß der Pfad und der Name des Options Files angegeben werden.
Wie muß dies erfolgen?

Vielen Dank.

MfG
HansGeorg

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

---

den kannst du entweder vorher festlegen, indem du eine Variable definierst, oder du definierst die variable über (setq pa(getfiled "" "" "" 1))

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo,

komme leider nicht damit klar.
Ich möchte den Pfad und den Namen angeben, z.B. c:\temp\options.opt

Vielen Dank.

Viele Grüße
HansGeorg

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

---

Hallo HansGeorg!

Leider habe ich diese Konvertierungs-Technik über Lisp nie ausprobiert, daher kann ich wenig dazu sagen. Ich kann leider nur erst nächste Woche im Bürö dies machen, bin im Moment bei Kunden.

Gruß, Manfred

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