| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: TBLnext durch Objekte (400 / mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 29. Mrz. 2023 13:33 <-- editieren / zitieren --> Unities abgeben:
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 29. Mrz. 2023 13:48 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 29. Mrz. 2023 13:58 <-- editieren / zitieren --> Unities abgeben:
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 |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2018.1.2 (Plant3D) AVIS ACAD LT 2013- 2020 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 29. Mrz. 2023 14:10 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
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 |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|