| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: DXF Export (1412 mal gelesen)
|
Martin_0103 Mitglied
Beiträge: 181 Registriert: 05.02.2003
|
erstellt am: 24. Apr. 2003 14:22 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, wir sind vor kurzem von AutoCad R14 auf AutoCad R2002 umgstiegen. Es existierte ein Progamm unter R14 mit dem wir einen Block aus der Zeichnung als DXF Datei in ein Verzeichnis exportiert haben. Der Block hat immer die Bezeichnung: DWGNAME ZS Das ganze läuft unter R2002 nicht so richtig und ich habe von dem ganzen absolut keinen Plan. Was kann falsch sein?? Vielen Dank schon jetzt an Euch... Gruß Martin Der Aufruf erfolgte mittels Werkzeugkasten:
löschen k -1000,-1000 10000,10000 -la se 0 fr * neuzeich (load "w:/cad/dxf_netz") dxf_netz Die entsprechende Lipsdatei: (defun C XF_NETZ( / block laenge bloz datei) (setq laenge (strlen (getvar "dwgprefix"))) (setq datei (substr (getvar "dwgname") (+ 1 laenge))) (setq bloz (strcat datei"Z")) (setq blozs (strcat datei"ZS")) (setq block (cond ((tblsearch"block"blozs)blozs) ((tblsearch"block"bloz)bloz) ) ) (if block (progn (command "einfüge" block (list 0 0)) "1" "1" "0") (command "zoom" "g") (command "ursprung" "l") (command "dxfout" (strcat"y:/dxf/"datei) "e" "f" (list -1000 -1000)(list 10000 10000)"" "6") ) ) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
andi2050 Mitglied
Beiträge: 107 Registriert: 11.03.2003
|
erstellt am: 24. Apr. 2003 18:35 <-- editieren / zitieren --> Unities abgeben: Nur für Martin_0103
Hi Martin Nur mal auf die schnelle... Das Programm kann in der geposteten Version von Haus aus nicht funktionieren, da in der IF-Zeile hinter dem LIST eine Klammer zuviel ist. Sollte dann wie unten aussehen. Oder habt Ihr keine deutsche ACAD-version mehr ? Dann geht's auch nicht, da die Befehle in Deutsch Programmiert wurden. Oder die SystenmVariable 'FILEDIA' auf 0 stellen ? (defun c:Dxf_netz (/ block laenge bloz datei) (setq laenge (strlen (getvar "dwgprefix"))) (setq datei (substr (getvar "dwgname") (+ 1 laenge))) (setq bloz (strcat datei "Z")) (setq blozs (strcat datei "ZS")) (setq block (cond ((tblsearch "block" blozs) blozs) ((tblsearch "block" bloz) bloz) ) ) (if block (progn (command "_-insert" block (list 0 0) "1" "1" "0") (command "_zoom" "_E") (command "_explode" "l") (command "_dxfout" (strcat "y:/dxf/" datei) "_e" "_w" (list -1000 -1000) (list 10000 10000) "" "6" ) ) ) ) Hab's leider nicht testen können, da momentan kein ACAD in der Nähe... Grüße Andi PS: Scheiß Smilies [Diese Nachricht wurde von andi2050 am 24. April 2003 editiert.] [Diese Nachricht wurde von andi2050 am 24. April 2003 editiert.] [Diese Nachricht wurde von andi2050 am 24. April 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Martin_0103 Mitglied
Beiträge: 181 Registriert: 05.02.2003 3,4 GHz - Quadro 4000 - 12 GB RAM - WIN7 - IV2015
|
erstellt am: 25. Apr. 2003 08:09 <-- editieren / zitieren --> Unities abgeben:
Hallo Andi, Danke Dir für die schnelle Hilfe... ich habe Dein Lisp versucht, leider ohne erfolg, es läuft nicht. Um einen Fehler im Werkzeugkasten ausschliessen zu können, habe ich fplgenden Befehl in die Befehlszeile (AutoCad R2002) eingegeben: (load "i:/symbole/1-MDT60/dxf_netz") Nach Eingabe von dxf_netz erscheint lediglich nil... Schade... Gruß Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 25. Apr. 2003 12:57 <-- editieren / zitieren --> Unities abgeben: Nur für Martin_0103
Also, das dürfte eigentlich noch nie richtig funktioniert haben. Ich werd mal sehen, wie's sein müsste. Versuch's mal
(defun C:XF_NETZ (/ block laenge bloz datei) (setq datei (substr (getvar "dwgname") " ") bloz (strcat datei "Z") blozs (strcat datei "ZS") block (cond ((tblsearch "block" blozs) blozs) ((tblsearch "block" bloz) bloz) ) ;_ end of cond ) ;_ end of setq (if block (progn (command "_-insert" block (list 0 0) "1" "1" "0" "_-zoom" "_g" "_explode" (entlast) "" "_dxfout" (strcat "y:/dxf/" datei) "e" "f" (list -1000 -1000) (list 10000 10000) "" "6" ) ;_ end of command ) ) ;_ end of if ) ;_ end of defun ------------------ Gruß CADwiesel [Diese Nachricht wurde von CADwiesel am 25. April 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Martin_0103 Mitglied
Beiträge: 181 Registriert: 05.02.2003
|
erstellt am: 28. Apr. 2003 10:06 <-- editieren / zitieren --> Unities abgeben:
Danke Dir CADwiesel... es ist noch ein Fehler enthalten - folgende Meldung bekomme ich beim Aufruf: Befehl: xf_netz ; Fehler: Fehlerhafter Argumenttyp: fixnump: " " Wenn ich anschliessend mit (list Z) oder (list ZS) oder (list datei) prüfe? bekomme ich bei jedem (nil) - heisst das, dass kein Fehler enthalten ist? Danke Dir nochmals... Gruß Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 28. Apr. 2003 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für Martin_0103
|
Martin_0103 Mitglied
Beiträge: 181 Registriert: 05.02.2003
|
erstellt am: 28. Apr. 2003 15:57 <-- editieren / zitieren --> Unities abgeben:
Super Axel, vielen Dank, Dein Programm funktioniert! Was mir allerdings nicht so einleutet ist, dass Du anstelle von DXFOUT den WBlock verwendest... Aber egal... es funktioniert! Nochmals vielen vielen Dank. Gruß aus Hessen Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 29. Apr. 2003 12:20 <-- editieren / zitieren --> Unities abgeben: Nur für Martin_0103
|