[编程申请]：如何用编写LISP来删除空文本？

xbx7920

图面上有许多单行空文字，我用想LISP来一次就删除它们，请问用怎么编写这个LISP？我原来有一个想法，就是先用
（SSGET ‘（（0 .“TEXT”) (1 . ""))）
（SSGET ‘（（0 .“TEXT”) (1 . " "))）
（SSGET ‘（（0 .“TEXT”) (1 . "  "))）
（SSGET ‘（（0 .“TEXT”) (1 . "   "))）
........
来取得选择集，但是总不能一次选择完，因为不知道空字符有
多少个？请救助！

柔柔

可以用 (setq sset (ssget "X" (List (cons 0 "TEXT")))) 获得选择集
不过，什么叫空文字呢？
另外，文字不光有TEXT，应该还有ATTDEF和多行文字MTEXT
所以，可以写成(setq sset (ssget "X" (List (cons 0 "TEXT"))  (List (cons 0 "MTEXT"))  (List (cons 0 "TTDEF")))]
或者(setq sset (ssget "X")) 然后过虑
包括过虑的语句是：
  (setq ssl   (sslength sset)
        nsset (ssadd))
  (while (> ssl 0)
    (setq temp (ssname sset (setq ssl (1- ssl))))
    (if (or
          (= (cdr (assoc 0 (entget temp))) "TEXT")
          (= (cdr (assoc 0 (entget temp))) "ATTDEF")
          (= (cdr (assoc 0 (entget temp))) "MTEXT")
        )
      (ssadd temp nsset)
    )
  )
  (setq ssl (sslength nsset)
        sset nsset
   )
最后对新的选择集内的实体逐个进行分析，凡是空字体便删除。

xbx7920

空文本就是用DTEXT创建的单行文字，用ED编辑出现对话框，删除文字后按确定按钮后文字不
可见，但缩小视窗后会出现。

aeo

(command "erase"
(ssget "x"  '((0 . "TEXT,mtext,attdef")(1 . " ,  ,   ,    "))) "")

on/off

判断ｄｘｆ１值：
(read dxf1)是否ｎｉｌ