---

Hallo,

ich habe folgende Fragestellung.
Ich habe auf 2 Layern Blöcke, die gesprengt werden sollen. Die Geometrie soll erhalten bleiben. Attributwerte und Attributnamen sollen gelöscht werden.
Ich habe folgenden Code, den ich mehrfach geändert habe.
Ich erhalte immer die Fehlermeldung "zu wenig Argumente"
Woran könnte dies liegen.

(defun c:BlockSprengenUndAttributeLoeschen (/ layerList lay ss i ent)
  (setvar "CMDECHO" 0) ;; Befehlsausgaben unterdrücken
  (setq layerList '("BV-VK-SYM" "BT-BM-SYM"))
 
  (foreach lay layerList
    (if (tblsearch "layer" lay)
      (progn
        ;; 1. Blöcke sammeln und einzeln sprengen
        (setq ss (ssget "X" (list (cons 0 "INSERT") (cons 8 lay))))
        (if ss
          (progn
            (setq i 0)
            (repeat (sslength ss)
              (setq ent (ssname ss i))
              ;; Native Version ohne ActiveX-Fehleranfälligkeit
              (command "_.explode" ent)
              (setq i (1+ i))
            )
          )
        )
       
        ;; 2. Texte, MTexte und Attributdefinitionen löschen
        (setq ss (ssget "X" (list (cons 0 "TEXT,MTEXT,ATTDEF") (cons 8 lay))))
        (if ss
          (progn
            (setq i 0)
            (repeat (sslength ss)
              (entdel (ssname ss i))
              (setq i (1+ i))
            )
          )
        )
      )
      (princ (strcat "\nLayer nicht gefunden: " lay))
    )
  )
  (setvar "CMDECHO" 1)
  (princ "\nVerarbeitung abgeschlossen.")
  (princ)
)

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

---

Hy sponk-mg

was soll das heißen Block , sprengen aber Geometrie erhalten ? es soll also ein Block bleiben , nur die Attribute sollen gelöscht werden ?
dann brauchst du dazu keine Lisp außer jeder Block hat einen anderen Namen

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

Grundsätzlich funktioniert das Lisp.
Folgendes gebe ich einmal zu Bedenken:
- Es werden pro Durchlauf die Blockrefs des angegebenen Layers gesucht, wenn gefunden aufgelöst und das Gleiche mit den Attributdefs gemacht.
- Liegen die Attdefs auf anderen Layern als die Blockdefs, funktioniert das Lisp nicht.
- Unter Architecture kann es sein, dass sich die command Aufrufe andes verhalten als unter AutoCAD Vanilla.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hi,

zum weiteren aufblasen, wie gesperrte Layer berücksichtigen, oder statt Attdefs auch (M)Texte löschen usw,
hier mein 3zeiler für dich:

Code:

---

(if (ssget "_X" (list'(0 . "INSERT")'(8 . "*")(cons 410 (getvar 'CTAB))))
    (progn
      (initcommandversion) (command "_.EXPLODE" "_p" "")
      (if (ssget "_p" '((0 . "ATTDEF"))) (command "_.ERASE" "_p" ""))
    )
)

---

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

---

Wenn du einen Block sprengst kannst du mit "vorher" auf die entstandenen Objekte zugreifen.

(ssget "_p" '(( 0 . "TEXT,MTEXT,ATTDEF")))

sollte eigentlich alles greifen was du löschen möchtest.
Sofern die Layer entsperrt sind.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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