Тема: LISP. Очистка чертежа от пустого текста
Довольно часто после взрывания блоков командой burst остаётся невидимй и не выбираемый рамкой текст, содержащий пустую строку "" или пробелы " ". Иногда мне приходят чертежи с такими приколами. Замечаешь их когда делаеш показать весь чертёж или выбор всего. Эти текстовые объекты можно выделить поиском текста, а потом удалить.
Написаная ниже прога удаляет все пустые текстовые объекты.
;;;(c:z-clear-empty-text) (defun c:z-clear-empty-text (/ ss) (setq ss (ssget "x" '((0 . "TEXT,MTEXT")))) (if ss (mapcar '(lambda (ent) (if (= (vl-string-trim " " (cdr (assoc 1 (entget ent)))) "") (entdel ent) ) ;_ if ) ;_ lambda (mapcar 'cadr (ssnamex ss)) ) ;_ mapcar ) ;_ if (princ) ) ;_ defun
Вызов:
в командной строке z-clear-empty-text
в меню или на кнопках ^C^C_z-clear-empty-text