| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Layer wechsel mit Verschachtelungen? (1841 mal gelesen)
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 18. Mrz. 2004 15:37 <-- editieren / zitieren --> Unities abgeben:
Hi, ich möchte alles was mit Farbe 153 gezeichnet ist auf einen bestimmten Layer verschieben! Selbst wenn es in Blöcken verschachtelt ist! Wie stelle ich das am besten an? Möchte nicht 400 Blöcke durchwühlen! Mfg Alpschorsch
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 18. Mrz. 2004 15:39 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 18. Mrz. 2004 15:42 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 18. Mrz. 2004 15:44 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 18. Mrz. 2004 15:54 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
na dann gebe ich meinen Senf auch noch zu : Siehe http://ww3.cad.de/foren/ubb/uploads/CADmium/set_by_layer.txt und ersetzte die Funktion (defun UPDATE_OBJEKT ... mit folgender: (defun UPDATE_OBJEKT ( OBJEKT / OBJEKTDATEN) (if (=(type OBJEKT) 'ENAME) (progn (setq OBJEKTDATEN (entget OBJEKT)) (if (=(cdr(assoc 62 OBJEKTDATEN)) 153) ; <- hier deine Farbnummer eintragen (progn ;; *************** hier ändern, was du willst *************** ;; (setq LAYERDATEN (GET_LAYER (cdr(assoc 8 OBJEKTDATEN)))) (OBJEKT_ALLGEMEIN_SET OBJEKT nil ; Farbe LAYER ;<-hier dein Layername nil ; Linientyp nil ; Linientypfaktor nil ) ; Linienstärke ;; *************** hier ändern, was du willst *************** ;; ) ) ) ) )
------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 18. Mrz. 2004 16:09 <-- editieren / zitieren --> Unities abgeben:
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 18. Mrz. 2004 16:21 <-- editieren / zitieren --> Unities abgeben:
@cadmium, hab das so rein gebaut! (defun UPDATE_OBJEKT ( OBJEKT / OBJEKTDATEN) (if (=(type OBJEKT) 'ENAME) (progn (setq OBJEKTDATEN (entget OBJEKT)) (if (=(cdr(assoc 62 OBJEKTDATEN)) 153) ; <- hier deine Farbnummer eintragen (progn ;; *************** hier ändern, was du willst *************** ;; (setq LAYERDATEN (GET_LAYER (cdr(assoc 8 OBJEKTDATEN)))) (OBJEKT_ALLGEMEIN_SET OBJEKT 153 ; Farbe W-09_02-BOHRACHSEN ;<-hier dein Layername ACAD_ISO10W100 ; Linientyp 0.5 ; Linientypfaktor 0.13 ) ; Linienstärke ;; *************** hier ändern, was du willst *************** ;; ) ) ) ) ) und dann:
Befehl: set_bylayer <G>anze Zeichnung oder <A>uswahl: <G> Scanning... - SET_BYLAYER: "no function definition: GET_LAYER"; Fehler: Es ist ein Fehler innerhalb der *error*-Funktion aufgetreten.Zu viele Argumente Kannst Du mir den Fehler nennen? Mfg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 18. Mrz. 2004 16:27 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 18. Mrz. 2004 16:32 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 18. Mrz. 2004 16:35 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 18. Mrz. 2004 19:38 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
SO : defun UPDATE_OBJEKT ( OBJEKT / OBJEKTDATEN) (if (=(type OBJEKT) 'ENAME) (progn (setq OBJEKTDATEN (entget OBJEKT)) (if (=(cdr(assoc 62 OBJEKTDATEN)) 153) ; <- hier deine Farbnummer eintragen (progn ;; *************** hier ändern, was du willst *************** ;; (OBJEKT_ALLGEMEIN_SET OBJEKT 153 ; Farbe "W-09_02-BOHRACHSEN" ;<-hier dein Layername "ACAD_ISO10W100" ; Linientyp 0.5 ; Linientypfaktor 0.13 ) ; Linienstärke ;; *************** hier ändern, was du willst *************** ;; ) ) ) ) ) Linientyp und Layer müssen existieren! und es sind STRINGS!-> also in Anführungszeichen übergeben! wenn du als Parameter für (OBJEKT_ALLGEMEIN_SET ... nil mitgibst , wird nichts verändert, bei "ByLayer" wird die eigenschaft auf "von Layer" gesetzt! Auf ein neues! ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 19. Mrz. 2004 08:21 <-- editieren / zitieren --> Unities abgeben:
@ cadmium, danke für Deine Korrektur, aber: Befehl: appload SET_BYLAYER.lsp erfolgreich geladen. Befehl: <G>anze Zeichnung oder <A>uswahl: <G> Kann nicht zu LISP zurückkehren. Ungültiger Optionstitel. <G>anze Zeichnung oder <A>uswahl: <G> SET_BYLAYER: "no function definition: UPDATE_OBJEKT" Befehl: Befehl: Hab es so übernommen wie Du gepostet hast! Hast noch eine Idee? Mfg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Mrz. 2004 08:25 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 19. Mrz. 2004 08:29 <-- editieren / zitieren --> Unities abgeben:
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 19. Mrz. 2004 08:32 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 19. Mrz. 2004 08:48 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 19. Mrz. 2004 09:06 <-- editieren / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 19. Mrz. 2004 09:15 <-- editieren / zitieren --> Unities abgeben: Nur für Alpschorsch
@alpschorsch: Nix für ungut, aber... .. [Gilt für mich natürlich auch :-)] ------------------ Ciao, Marc [Diese Nachricht wurde von marc.scherer am 19. Mrz. 2004 editiert.] [Diese Nachricht wurde von marc.scherer am 19. Mrz. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 19. Mrz. 2004 09:22 <-- editieren / zitieren --> Unities abgeben:
|