求一个autolisp程序，在cad图形里，批量去掉文字里面的空格。
1个回答
展开全部
(defun c:cba()
(setq ssx (ssget '((0 . "*text")(1 . "* *"))))
(or ssx (setq ssx (ssadd)))
(setq m (sslength ssx) n 0)
(while (< n m)
(setq en (ssname ssx n))
(setq data (entget en))
(setq str (cdr (assoc 1 data)))
(while (vl-string-search " " str)
(setq str (vl-string-subst "" " " str))
)
(setq data (entmod (subst (cons 1 str) (assoc 1 data) data)))
(setq n (1+ n))
)
(princ (strcat "\n共处理了【" (itoa n) "】个!"))
(princ)
)
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
