【已解决】采用什么代码可以隐藏图纸中的所有标注？

tzfcn · 发表于 2017-10-10 15:02:51

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

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

×

本帖最后由 tzfcn 于 2017-10-10 19:10 编辑

采用什么代码隐藏图纸中的所有标注？

marting · 发表于 2017-10-10 15:42:09

如果都分散在不同的图层，那么就得写代码了，下面命令是开关，奇数执行关闭所有标注，偶数打开。

(defun c:tt ()
(if (setq ss (ssget "x" '((0 . "dim*"))))
(progn
(setq i -1)
(while (setq e (ssname ss (setq i (1+ i))))
(vla-put-visible (vlax-ename->vla-object e) (if (not #xd_var_global_dimoff)
:vlax-false
:vlax-true
)
)
)
(setq #xd_var_global_dimoff (not #xd_var_global_dimoff))
)
)
(princ)
)

marting · 发表于 2017-10-10 15:27:47

把标注都放到一个层，然后关闭图层。

fan_zh · 发表于 2017-10-10 15:47:24

选择所有标注

再隐藏这些对象
(obj_onf ss :vlax-false)[sell];对象显示与隐藏
(defun obj_onf (ss mode)
  (if (= (type ss) 'PICKSET)
(vlax-for OBJ (vla-get-activeselectionset
      (vla-get-activedocument (vlax-get-acad-object))
   )
   (if (/=(vla-get-visible OBJ) mode) (vla-put-visible OBJ mode))
)
  )
)[/sell]

机械小男人雄起 · 发表于 2017-10-10 18:15:44

不错的东西

tzfcn · 发表于 2017-10-10 18:22:48

配合e派工具箱使用：
(defun c:yzbz();隐藏所有标注
(xyp-VisibleSsel (ssget"x" '((0 . "dim*")))nil)
)
(defun c:xsbz();显示所有标注
(xyp-VisibleSsel (ssget"x" '((0 . "dim*"))) 1)
)

tzfcn · 发表于 2017-10-10 18:40:09

marting 发表于 2017-10-10 15:42

有选择满意答案的选项吗？我不知道怎么操作。

tzfcn · 发表于 2017-10-10 18:54:03

别的网站有满意答案选项，这里好像没有。

newer · 发表于 2017-10-10 19:00:42

本帖最后由 newer 于 2017-10-10 19:02 编辑

tzfcn 发表于 2017-10-10 18:54

你要发悬赏才有。

你编辑下主题帖，前面粘贴上【已解决】吧。

tzfcn · 发表于 2017-10-10 19:11:24

newer 发表于 2017-10-10 19:00

我已经操作过了，是这样操作的吗？

tzfcn · 发表于 2017-10-10 19:13:25

newer 发表于 2017-10-10 19:00

没有看到悬赏的选项呀

sjj · 发表于 2017-10-11 07:46:50

marting 发表于 2017-10-10 15:27

简单明了。

liunian0524 · 发表于 2017-10-11 08:06:25

先选择后隐藏,选择易

kqqt6236 · 发表于 2017-10-11 11:16:58

太棒了！

LXH刚开始 · 发表于 2020-5-8 09:56:38

好东西，收下了，很实用感谢。

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

[已解决] 【已解决】采用什么代码可以隐藏图纸中的所有标注？

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

点评

评分

点评

评分