---

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

---

Da wirst du mit normalen Befehlen nicht weit kommen.

------------------
- Sebastian -

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

---

Und mit abnormalen? ;-)

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

---

"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

---

Aber mit Lisp -> vielleicht mal ein Grund, sich näher mit zu beschäftigen. Als Tip ist vielleicht
das und das
zu gebrauchen

------------------
- Thomas -

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

---

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

---

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

---

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

---

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

---

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