删除隐藏的文本

Lisphk · 发表于 2017-2-11 17:12:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

删除隐藏的文本

(defun c:text (/ a b i)
  (if (setq a (ssget "_x" '((0 . "*text"))))
    (repeat (setq i (sslength a))
      (setq b (vlax-ename->vla-object (ssname a (setq i (1- i)))))
      (if (eq (vla-get-visible b) :vlax-false)
        (vla-delete b)
      )
    )
  )
  (princ)
)

cq_qg68 · 发表于 2017-2-11 18:37:59

什么是隐藏的文本？

330774521lhq · 发表于 2017-2-12 10:58:33

正需要，支持楼主大人了！

iLisp · 发表于 2017-2-12 11:16:53

还可以这样

(defun c:tt (/ ss)
(if (setq ss (ssget "_x" '((0 . "text") (60 . 1))))
(command ".erase" ss "" "")
)
(princ)
)

yoyoho · 发表于 2017-2-12 12:21:46

确实是难得好帖啊，顶先

wd6688 · 发表于 2017-2-12 17:57:19

确实是难得好帖啊！

logithelei · 发表于 2017-2-13 08:36:52

确实是难得好帖啊，顶先

kqqt6236 · 发表于 2017-2-13 14:21:37

正需要，支持楼主大人了！

sicky111 · 发表于 2017-2-14 00:05:28

啥也不说了，感谢楼主分享哇！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 删除隐藏的文本

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。