---

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

---

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

---

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

---

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

---

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

---

Code:

---

(defun c:dings( / name bname o_expert path)
  (setq path"d:/dxf/") ; Hier ändern!
  (setq name(getvar"dwgname")name(substr name 1(-(strlen name)4)))
  (if(or(tblsearch"block"(setq bname(strcat name"Z")))
        (tblsearch"block"(setq bname(strcat name"ZS")))
    )
    (progn
      (setq o_expert(getvar"expert"))
      (command"_wblock"(strcat path name".dxf")16 bname)
      (setvar"expert"o_expert)
    )
  )
)

---

Versuch's mal damit!
Die Kommastellen sollen doch nicht gerundet werden, oder?

Gruss, Axel

------------------
Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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

---

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

---

Warum nicht einleuchtend? WBLOCK kann genauso wie DXFOUT DXF-Dateien erzeugen (XML kann überhaupt nur über WBLOCK ausgegeben werden), und man spart sich das ganze Gemache mit Einfügen des Blocks usw.

Gruss, Axel

------------------
Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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