und noch eine Meldung der Lisp-Fraktion ;D
für evtl Automatisierungszwecke usw,
(defun BLOCK-SET-DISCRIPTION ( NAME DISCRIPTION / OBJEKT OBJEKTDATEN)
(if (and (=(type NAME) 'STR)(setq OBJEKT (tblobjname "BLOCK" NAME)))
(progn
(setq OBJEKTDATEN(entget OBJEKT ))
(if(or(and(=(type DISCRIPTION)'STR)(>(strlen DISCRIPTION)0))(setq DISCRIPTION ""))
(if (assoc 4 OBJEKTDATEN)
(setq OBJEKTDATEN(subst(cons 4 DISCRIPTION)(assoc 4 OBJEKTDATEN)OBJEKTDATEN))
(setq OBJEKTDATEN(append Objektdaten (list(cons 4 DISCRIPTION))))
)
)
(entmake (setq OBJEKTDATEN(vl-remove-if
'(lambda (L)(member(car L) '(-1 330 -2 5)))
OBJEKTDATEN
))
)
(while (setq OBJEKT (entnext OBJEKT))
(entmake(entget OBJEKT))
)
(entmake '((0 . "ENDBLK")))
)
)
)
(defun C:BLOCK-SET-DISCRIPTION (/ OBJEKT OBJEKTDATEN NAME DISCRIPTION )
(if (setq OBJEKT(ssname(ssget "_:S" '((0 . "INSERT")))0))
(progn
(setq OBJEKTDATEN (entget OBJEKT))
(setq NAME(cdr(assoc 2 OBJEKTDATEN)))
(setq DISCRIPTION (getstring
(strcat "\nBeschreibung für Block \""NAME"\" : ")
)
)
(BLOCK-SET-DISCRIPTION NAME DISCRIPTION)
(if (and(setq DISCRIPTION (cdr(assoc 4 (tblsearch "BLOCK" NAME))))(/= DISCRIPTION ""))
(princ (strcat "\nBlockbeschreibung für BLOCK " NAME " : " DISCRIPTION))
(princ (strcat "\nBLOCK " NAME " hat keine Blockbeschreibung"))
)
)
(princ "\nKeine Blockreferenz gewählt!\n")
)
(princ)
)
------------------
- Thomas -
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP