| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Teledoor setzt erfolgreich auf Configure-to-Order mit CIDEON Conify , ein Anwenderbericht
|
Autor
|
Thema: Block Handl und Layer anzeigen (230 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: 21. Nov. 2003 08:00 <-- editieren / zitieren --> Unities abgeben:
Servus Gibt´s die Möglichkeit den Befehle ATTOUT so zu editieren das nur (oder alle ist eigentlich egal) von zu wählenden Blöcken LAYER und "BLOCKHANDL" in eine TXT-Datei geschrieben wird. HANDL (Tabulator) LAYER 2AB (Tabulator) 01 34C1 (Tabulator) 02 usw. ps.: hab´s schon mal geschrieben (so ähnlich)
------------------ Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken. Warum einfach, es geht auch Kompliziert. mfG Bernd P. 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: 21. Nov. 2003 08:53 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
|
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: 21. Nov. 2003 09:17 <-- editieren / zitieren --> Unities abgeben:
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 21. Nov. 2003 09:46 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
(defun C:Bl-TXT (/ MD_ERR listnam aws DAT_ID li) (setq MD_ERR *ERROR* *ERROR* M:FEHLER ) ;_ end of setq ;;Marke für Zurück nach Abbruch setzen (command "_UNDO" "_MARK") (if (setq listnam (getfiled "liste anlegen" "liste" "txt" 1)) (progn (if (setq aws (ssget '((0 . "INSERT") (66 . 1)))) (progn (setq DAT_ID (open listnam "a")) (write-line "HANDL\tLAYER" DAT_ID) (mapcar '(lambda (x / elem) (setq elem (entget x) li (cons(strcat (cdr (assoc 5 elem)) "\t" (cdr (assoc 8 elem)) ) li) ) ;_ ende von setq ) ;_ ende von lambda (bau_elemli aws) ) ;_ ende von mapcar (foreach item li (write-line item DAT_ID) ) ;_ ende von foreach (close DAT_ID) ) ;_ ende von progn ) ;_ ende von if ) ;_ ende von progn ) ;_ ende von if ) ;_ ende von defun (defun M:FEHLER (S) (print (strcat "M:fehler " S)) (close DAT_ID) (command) (command "_UNDO" "_BACK") (setq *ERROR* MD_ERR) (princ) ) ;_ end of defun (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli (cons (ssname asatz n) elemli) n (1+ n) ) ;_ end of setq ) ;_ end of repeat elemli ) ;_ ende von defun ------------------ Gruß CADwiesel Besucht uns im CHAT
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: 21. Nov. 2003 10:08 <-- editieren / zitieren --> Unities abgeben:
Sorry Das ich nerve ; Fehler: Fehlerhafter Argumenttyp: numberp: nil ------------------ Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken. Warum einfach, es geht auch Kompliziert. mfG Bernd P. 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: 21. Nov. 2003 10:21 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
|
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: 21. Nov. 2003 10:30 <-- editieren / zitieren --> Unities abgeben:
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 21. Nov. 2003 10:58 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
|
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: 21. Nov. 2003 11:06 <-- editieren / zitieren --> Unities abgeben:
|
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: 21. Nov. 2003 11:37 <-- editieren / zitieren --> Unities abgeben:
Servus TXT-Name = DWG-Name TXT-Pfad = DWG-Pfad TXT wird überschrieben. (defun C:kopf (/ MD_ERR listnam aws DAT_ID li) (setq MD_ERR *ERROR* *ERROR* M:FEHLER ) ;_ end of setq ;;Marke für Zurück nach Abbruch setzen (command "_UNDO" "_MARK") (if (setq listnam (getfiled "Enter output filename" (strcat (getvar "dwgprefix") (acet-filename-path-remove (acet-filename-ext-remove (getvar "dwgname"))) ".txt" );strcat "txt" 1 ) );setq (progn (if (setq aws (ssget '((0 . "INSERT") (66 . 1)))) (progn (setq DAT_ID (open listnam "W")) (write-line "HANDL\tLAYER" DAT_ID) (mapcar '(lambda (x / elem) (setq elem (entget x) li (cons(strcat (cdr (assoc 5 elem)) "\t" (cdr (assoc 8 elem)) ) li) ) ;_ ende von setq ) ;_ ende von lambda (bau_elemli aws) ) ;_ ende von mapcar (foreach item li (write-line item DAT_ID) ) ;_ ende von foreach (close DAT_ID) ) ;_ ende von progn ) ;_ ende von if ) ;_ ende von progn ) ;_ ende von if ) ;_ ende von defun
(defun M:FEHLER (S) (print (strcat "M:fehler " S)) (close DAT_ID) (command) (command "_UNDO" "_BACK") (setq *ERROR* MD_ERR) (princ) ) ;_ end of defun (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli (cons (ssname asatz n) elemli) n (1+ n) ) ;_ end of setq ) ;_ end of repeat elemli ) ;_ ende von defun Nochmals danke an CADwiesel
------------------ Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken. Warum einfach, es geht auch Kompliziert. mfG Bernd P. 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: 21. Nov. 2003 12:41 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
Was hast du da gemacht? das ist doch die File geschichte aus den Etools. Wenn du ads verwendest müssen die ETools vorhanden und geladen sein, wenn jmd. anderes das Lisp verwenden will, der keine ETools hat, fällt er auf die Nase. ------------------ Gruß CADwiesel Besucht uns im CHAT
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: 21. Nov. 2003 15:59 <-- editieren / zitieren --> Unities abgeben:
Servus Es muss für meine Zwecke ja nur Intern funktioniern. Brauchen das ganze zum Aktualiesieren der Palnköpfe.
Extern sind die Plandaten dann in Attribute gespeichert. ------------------ Wer Rechtschreibfehler findet, darf sie der Analphabetenvereinigung schenken. Warum einfach, es geht auch Kompliziert. mfG Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |