---

Servus,

Nachdem wir viele Fremdzeichnungen haben und die immer wieder Probleme verursachen, hab ich ein LISP das die Layer durchläuft und sie in mit WBLOCK in neue Zeichnungen schreibt....

Jetzt würde ich das Ganze auch für Objekte machen. Also alle Linien, Plinien, Blöcke, Kreise.... Geht das auch mit tblnext?

Code:

---

(defun c:Foreach_layer_Wblock ( / flag f lay layname Auswahl)
(Command "_layout" "l" "layer")
(Command "_-purge" "_all" "*" "n")
(Command "_-purge" "_all" "*" "n")
(Command "_laythw")
(setvar "clayer" (cdr (assoc 2 (tblnext "Layer" T))))
(while (setq layer (tblnext "Layer"))
(setvar "clayer" (cdr (assoc 2 layer)))
(setq ccl (cdr (assoc 2 layer)))
(setq File (strcat "C:/TEMP/expo " ccl ".dwg"))
(princ layer)
(Command "_line" "0,0" "100,100" "")
(setq Auswahl (ssget "x" (list (cons 8 ccl))))
(if (> (sslength Auswahl) 1 )
(command "_-Wblock" File "" "0,0" Auswahl "")
)
)
)

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

---

1. Nö
2. Was willst du machen? Alle Kreise in eine Datei, alle Linine in einer Datei.. hört sich ja weniger sinnig an, zumindest ohne die Dateien zu kennen!?

(foreach OTYP '("LINE" "CIRCLE" "MTEXT")
(if (ssget zeug)
    (command wblock ...)
)
)

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

---

Danke!

2. ja genau.

Wir bekommen DWG aus unterschiedlichen Quellen und da ist leider viel Potential für Mist zu machen vorhanden, gebart mit nicht so fitten CAD Kollegen ist das dann recht mühsam. (Fehleranalyse "Ich hab nur...." "Ich hab nix gemacht")

z.B. Vermesser hatte im DWG viele Fotos angehängt die in SMS (3d Abflußberechung) zu Timeouts geführt haben. Meine nicht so fitten Arbeitskollegen können etwas besser auf Fehersuche gehen und die Layer.dwg jetzt einzeln laden.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

---

Hy

vielleicht findest du darin was

    DarkLightVLIDE

    ;;--------------------=={ Layers 2 DWGs }==-------------------;;
    ;;                                                            ;;
    ;;  WBlocks all active layers to separate drawings, saved to  ;;
    ;;  the specified directory                                  ;;
    ;;------------------------------------------------------------;;
    ;;  Author: Lee Mac, Copyright © 2010 - www.lee-mac.com      ;;
    ;;------------------------------------------------------------;;

falls ich die Aufgabenstellung richtig verstanden habe.

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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