| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Layoutwechsel per Script (368 mal gelesen)
|
CeZet Mitglied
Beiträge: 95 Registriert: 28.08.2003 ADT 2004 / AutoCAD 2002
|
erstellt am: 09. Aug. 2004 09:41 <-- editieren / zitieren --> Unities abgeben:
Hi all Ich möchte eine Sammlung von Zeichnungen auflösen mit dem Ursprung-befehl. Alle Zeichnungen haben Layout, jedoch unterschiedlich von Namen und Anzahl. Wie kann ich nun per Script das so steuern, dass Modell und alle Layouts abgearbeitet werden? Grüsse CeZet Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 09. Aug. 2004 10:01 <-- editieren / zitieren --> Unities abgeben: Nur für CeZet
|
CeZet Mitglied
Beiträge: 95 Registriert: 28.08.2003 ADT 2004 / AutoCAD 2002
|
erstellt am: 09. Aug. 2004 10:19 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 09. Aug. 2004 10:22 <-- editieren / zitieren --> Unities abgeben: Nur für CeZet
"Abnormale" kennst du nicht sonst wäre die Frage nicht aufgekommen - gemeint habe ich damit das man sich dafür selbst eine Funktion schreiben müßte (programmieren). Liste alle Layout´s auf Mache DAS mit dem 1. Layout (bis zum letzten) DAS ist hierbei zB dein Auflösen... ------------------ - Sebastian - 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: 09. Aug. 2004 10:23 <-- editieren / zitieren --> Unities abgeben: Nur für CeZet
|
CeZet Mitglied
Beiträge: 95 Registriert: 28.08.2003 ADT 2004 / AutoCAD 2002
|
erstellt am: 09. Aug. 2004 11:22 <-- editieren / zitieren --> Unities abgeben:
Vielen Dank, ich hab es hingebracht dank eurer Hilfe. Es ist zwar die Holzhammer-Methode, aber ich bin hingegangen und hab mir das tt.lsp besorgt von Cadditions. Dieses habe ich per Script geladen und wechsle nun im Script die Layouts durch, wobei ich jedes Layout in den Ursprung setze. Das Ganze läuft nun 10mal hintereinander ab, um sicherlich alle Layouts zu berücksichtigen. Da es zwar meistens nur 3-5 hat, werden gewisse halt doppelt bearbeitet...aber was besseres fällt mir nicht ein. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CeZet Mitglied
Beiträge: 95 Registriert: 28.08.2003 ADT 2004 / AutoCAD 2002
|
erstellt am: 09. Aug. 2004 11:58 <-- editieren / zitieren --> Unities abgeben:
Der Ursprung-Befehl macht mich noch wahnsinnig. Habe folgendes Script erstellt: ;--Start ;Layout 1 tt _burst alle _burst alle ursprung alle ursprung alle
;Layout 2 tt _burst alle
_burst alle ursprung alle ursprung alle
;--Ende
Kurz erklärt ruft dieses das Layout 1 auf, setzt alles in Ursprung, ruft dann Layout 2 auf und macht dasselbe. Dies wollte ich dann ausbauen auf 10 Durchgänge, da max. 10 Layouts vorhanden sind. Nun funktioniert das bei Plänen die z.B. 2 Layouts haben...allerdings taucht bei mehrmaligem Anwenden plötzlich folgende Meldung auf: URSPRUNG Objekt wählen: ursprung *Ungültige Auswahl* Erwartet einen Punkt oder Letztes/ALLE/Gruppe
Wie könnte ich sowas umgehen? Ich habe im Forum von Lisp's gelesen, die dafür besser geeignet sind, da der Ursprung-Befehl nicht direkt scripttauglich zu sein scheint. Ist das so? Die Lisp arbeiten aber meines Wissens dabei nur Objektweise, wie funktioniert das denn wenn ich den ganzen Plan bearbeiten möchte? Grüsse CeZet [Diese Nachricht wurde von CeZet am 09. Aug. 2004 editiert.] 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: 09. Aug. 2004 12:01 <-- editieren / zitieren --> Unities abgeben: Nur für CeZet
deswegen der Link
vom obigen Beitrag!! Aber ok, schieb ich noch was nach: (defun EXPLODE (/ AUSWAHL OBJEKT VLA-OBJEKT LASTOBJ) (setq AUSWAHL (ssget "X" '((0 . "INSERT,*POLYLINE")))) (while (> (sslength AUSWAHL) 0 ) (setq LASTOBJ (entlast)) (repeat (sslength AUSWAHL) (setq OBJEKT (ssname AUSWAHL 0)) (setq VLA-OBJEKT (vlax-ename->vla-object OBJEKT)) (if (vlax-method-applicable-p VLA-OBJEKT 'explode) (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke-method (list VLA-OBJEKT 'explode) ) ) ) (ssdel OBJEKT AUSWAHL) ) (setq AUSWAHL(ssadd)) (setq OBJEKT (entnext OBJEKT)) (while OBJEKT (if (member (cdr(assoc 0 (entget OBJEKT))) '("INSERT" "POLYLINE" "LWPOLYLINE" )) (setq AUSWAHL (ssadd OBJEKT AUSWAHL)) ) (setq OBJEKT (entnext OBJEKT)) ) ) ) (defun burst-neu (/ AUSWAHL OBJEKT LASTOBJ) (setq AUSWAHL (ssget "X" '((0 . "INSERT")))) (while (> (sslength AUSWAHL) 0 ) (setq LASTOBJ (entlast)) (repeat (sslength AUSWAHL) (setq OBJEKT (ssname AUSWAHL 0)) (vl-catch-all-error-p (vl-catch-all-apply 'BURST-ONE (list OBJEKT) ) ) (ssdel OBJEKT AUSWAHL) ) (setq AUSWAHL(ssadd)) (setq OBJEKT (entnext OBJEKT)) (while OBJEKT (if (member (cdr(assoc 0 (entget OBJEKT))) '("INSERT")) (setq AUSWAHL (ssadd OBJEKT AUSWAHL)) ) (setq OBJEKT (entnext OBJEKT)) ) ) ) (defun c:ALL-EXPLODE () (vlax-for ITEM (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (vla-put-ActiveLayout(vla-get-activedocument(vlax-get-acad-object))ITEM) (MACHE-DAS) ) ) (Mache-das) kann dabei (EXPLODE) oder (burst-neu) sein, wobei beim letzeren (BURST-ONE) aus burst.lsp nicht lokal definiert sein darf!
------------------ - Thomas -
[Diese Nachricht wurde von CADmium am 09. Aug. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CeZet Mitglied
Beiträge: 95 Registriert: 28.08.2003 ADT 2004 / AutoCAD 2002
|
erstellt am: 09. Aug. 2004 12:17 <-- editieren / zitieren --> Unities abgeben:
U's sind abgegeben ;-) Nun stehe ich aber auf dem Schlauch, werde es aber noch austesten ob ich es zum laufen bringe. Den Burst-Befehl kann ich ja schon per Script lösen, nur Ursprung nicht, oder nicht? Ich hab mir das so gedacht, dass ich ein Script habe, dabei das Lisp lade und ausführe, vorher aber noch Burst per Script laufen lassen. Das Script habe ich desshalb weil noch diverse andere Schritte folgen sollen per Automatismus. [Diese Nachricht wurde von CeZet am 09. Aug. 2004 editiert.] 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: 09. Aug. 2004 12:29 <-- editieren / zitieren --> Unities abgeben: Nur für CeZet
du erweiterst, deine acaddoc.lsp ( wird mit jeder Zeichnung geladen )um folgende Zeilen: (vl-load-com) (load "c:\\blabla\\layoutexplode.lsp") oder wie-und woauchimmer du das Lisp abgespeichert hast! und im script rufst du einfach all-explode auf! oder alles im Sript: (vl-load-com) (load "c:\\blabla\\layoutexplode.lsp") all-explode Nicht vergessen (Mache-das) durch(burst-neu) zu ersetzen! Und zu den Lokalen Funktionen : (defun MAIN ( / SUB) ) ..alles was hinter dem "/" in der Funktionsdefinition steht, ist lokal (also nur innerhaklb der Funktion gültig) definiert. Steht der Name nicht dort, sind die Deklarationen von DEFUN und SETQ global. (Den Rest mußt du alleine schaffen) -> Thread ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 09. Aug. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |