Question

一段autocad lisp 代码求完善

想删除空白文字同零线，高版本自带清理功能 ：[code=lsp](command "_.-purge" "_Z" "_.-purge" "_E")[/code]但是低版本中没有这个选项，现有一段代码，有高手能帮我完善吗？谢谢
[code]
(setq ss (ssadd)
e (entnext)
)
(while (and e (wcmatch (cdr (assoc 0 (setq en (entget e)))) "LINE,LWPOLYLINE,*TEXT"))
(if (or (and (vlax-property-available-p (setq v (vlax-ename->vla-object e)) 'LENGTH)
(zerop (vla-get-length v))
)
(and (vlax-property-available-p v 'TEXTSTRING) (eq (vla-get-textstring v) ""))
)
(ssadd e ss)
)
(setq e (entnext e))
)
(sssetfirst nil ss)
[/code]

Answer 1

追问

谢谢大侠 ，试了一下，能清除0线，但不支持空白文字。(空格串）

追答

追问

谢谢，大侠，可以支持空白的单行文字，但还是不能清理空白的多行文字，另外问一下，这个是只支持模型空间，还是模型空间同布局空间两者都支持？

追答

满意了再说

追问

谢谢大侠！这次没问题了，能否发布源码？谢谢

Answer 2

http://bbs.mjtd.com/forum-3-1.html
上明经通道去问，那里有很多auto lisp/v lisp高手

追问

问过了，没人原意解答，现在那里太多人注册新用户不停求代码，那些高手都不愿出手了