---

servus erstmal,

dank der hilfe der cad.de besucher habe ich mir einige buttons für diverse funktionen erstellt:

1.Button heisst Xplode³
löst alle blöcke und polylinien auf:

Zitat:

---

(while (setq elemli (ssget "_X" '((0 . "INSERT"))))(repeat (sslength elemli)(command "_.explode" (ssname elemli 0))(setq elemli (ssdel (ssname elemli 0) elemli))));(while (setq elemli (ssget "_X" '((0 . "POLYLINE"))))(repeat (sslength elemli)(command "_.explode" (ssname elemli 0))(setq elemli (ssdel (ssname elemli 0) elemli))))

---

2. Button heisst Bereinigen
bereinigt die zeichnung:

Zitat:

---

-bereinig;AL;;n;-bereinig;AL;;n;-bereinig;AL;;n;-bereinig;AL;;n;-bereinig;AL;;n;-bereinig;AL;;n;-bereinig;AL;;n;-bereinig;AL;;n;

---

3. Button heisst _regen
regeneriert die Zeichnung:

Zitat:

---

_regen

---

nun möchte ich alle 3 funktionen in mit einem einzigen klick abbarbeiten und dazu noch den befehl einbauen das alle linien auf den layer "von layer" umgewandelt werden.

wie muss ich da genau vorgehen und was ist der befehl für das einstellen der layer???

danke schonmal im vorraus

------------------
rechtschreibfehler sind beabsichtigt und dienen der allgemeinen belustigung

---

(while (setq elemli (ssget "_X" '((0 . "INSERT"))))(repeat (sslength elemli)(command "_.explode" (ssname elemli 0))(setq elemli (ssdel (ssname elemli 0) elemli))));(while (setq elemli (ssget "_X" '((0 . "POLYLINE"))))(repeat (sslength elemli)(command "_.explode" (ssname elemli 0))(setq elemli (ssdel (ssname elemli 0) elemli)))) (command "-bereinig" "AL" "n""") (command "-bereinig" "AL" "n""") (command "-bereinig" "AL" "n""") (command "-bereinig" "AL" "n""") (command "-bereinig" "AL" "n""") (command "-bereinig" "AL" "n""") (command "-bereinig" "AL" "n""") (command "-bereinig" "AL" "n""") (command "_regenall")

Ps.: ob 8x bereinigen was bringt  . und das alle linien auf den layer "von layer" umgewandelt werden was heisst das?

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

---

hui, das ging mal wieder fix...

also ich meine es so:

nachdem der block komplett aufgelöst wurde soll autocad die gesamte zeichnung packen und auf den layer, der oben in der leiste eingestellt ist, umwandeln

------------------
rechtschreibfehler sind beabsichtigt und dienen der allgemeinen belustigung

---

wenns die Farbe is dann so:^C^Cändern;alle;;Ei;f;vonlayer;;

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

---

das mit den layern funktioniert einwandfrei, aber irgendwie passt das ganze dann nicht mehr in dieses fenster wo man die scripte reinschreibt rein.....???

------------------
rechtschreibfehler sind beabsichtigt und dienen der allgemeinen belustigung

---

Zitat:

---

Original erstellt von khaalan:
das mit den layern funktioniert einwandfrei, aber irgendwie passt das ganze dann nicht mehr in dieses fenster wo man die scripte reinschreibt rein.....???

---

Vieleicht ist ja das Makro zu lang  ;-)))

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

---

hab isch mir schon gedenkt....nur was mach ich da nun...ausser panik???

------------------
rechtschreibfehler sind beabsichtigt und dienen der allgemeinen belustigung

---

vielleicht bastelt dir jemand ein lisp zusammen

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

---

darauf hab ich gewartet :-)

wie bastelt man eine lisp????

gibbets da ne anleitung bzw. in welcher programmiersprache ist das

------------------
rechtschreibfehler sind beabsichtigt und dienen der allgemeinen belustigung

---

Servus

das ganze in eine SCr-Datei speichern in einem Supportpfad

das ist dein Makro '_script;"NAME.scr"

------------------
"Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

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

---

'_script;xplode.scr;;layeraendern.scr;;bereinigen.scr;;regenerieren.scr;

wenn ich das auf den button lege und anklicke tuts nur das xplode und regenieren script

<I:\VERKNÜPFUNG\DATEINAME_DER_ZUÄNDERNDEN_DXF.scr>: layeraendern.scr
Befehl: ändern;alle;;Ei;f;vonlayer;;^M;^M;
Unbekannter Befehl "ÄNDERN;ALLE;;EI;F;VONLAYER;;^M;^M;". Drücken Sie F1-Taste
für Hilfe.
Befehl: bereinigen.scr
Unbekannter Befehl "BEREINIGEN.SCR". Drücken Sie F1-Taste für Hilfe.
Befehl:
SCRIPT
Scriptdateinamen eingeben
<I:\VERKNÜPFUNG\DATEINAME_DER_ZUÄNDERNDEN_DXF.scr>: regenerieren.scr
Befehl: _regen Regeneriert Modell.

------------------
rechtschreibfehler sind beabsichtigt und dienen der allgemeinen belustigung

---

in einem Script stehen die Befehle untereinander, nicht hintereinander (auch dann nicht wenn sie mit Semikolon getrennt sind). Aufgrund dieses Umstandes können die Semikolon entfallen.
Returns sind Leerzeilen.

------------------
Grüsse

Thomas

EDIT: Und immer lesen was Autocad einem hinschreibt; AutoCAD ist nämlich so fair und verrät die Lösung des Problems gleich mit...

[Diese Nachricht wurde von tunnelbauer am 13. Apr. 2005 editiert.]

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

---

Hi,
eine Textdatei z.B.: "caddefunctions.lsp" erstellen
und in den AutoCAD Suchpfad legen, oder das entsprechende
Verzeichnis in den Suchpfad aufnehmen...
Dann folgendes dort hinein kopieren:

;; ->>>>>>>>>>>>>>>>>>>>>Beginn Copy:
;; Nachfolgende Lisp-Funktion definiert den neuen AutoCAD Befehl:
;; CAD:DE:PURGE
(defun C:CAD:DE:PURGE (/ ELEMLI)
  (while (setq ELEMLI (ssget "_X" '((0 . "INSERT"))))
    (repeat (sslength ELEMLI)
      (command "_.explode" (ssname ELEMLI 0))
      (setq ELEMLI (ssdel (ssname ELEMLI 0) ELEMLI))
    )
  )
  (while (setq ELEMLI (ssget "_X" '((0 . "POLYLINE"))))
    (repeat (sslength ELEMLI)
      (command "_.explode" (ssname ELEMLI 0))
      (setq ELEMLI (ssdel (ssname ELEMLI 0) ELEMLI))
    )
  )
  (repeat 8 (command "_.-purge" "_all" "" "_n"))
  (command "_.regenall")
  (princ)
)
;; ->>>>>>>>>>>>>>>>>>>>>Ende Copy

Dann einen Button in Werkzeugkasten oder Toolpalette
mit folgendem Makro belegen:
^c^c(if (null C:CAD:DE:PURGE)(load "caddefunctions.lsp"))(princ);CAD:DE:PURGE;

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 13. Apr. 2005 editiert.]

[Diese Nachricht wurde von marc.scherer am 13. Apr. 2005 editiert.]

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

---

also irgendwie krieg ichs net gebacken, andauernd fehlermeldungen usw.

ich gugg mal das ich paar screenshots mache, vielleicht fällt da ja jemandem was auf, was ich falsch mache

------------------
rechtschreibfehler sind beabsichtigt und dienen der allgemeinen belustigung