一键提取所有标注

lengxiaxi · 发表于 2014-11-8 15:21:16

如题：

工作中经常遇到一些不规范的图纸，往往标注和实体都在一个层，或者标注在多个不同的层。这样编辑起来很麻烦，每次都要调整分层。
想求一个程序，实现以下功能：

无论当前标注在哪个层或者多个层，框选图形，提取所有标注，最好顺便自动将过滤出来的标注转换到dim层。

能实现这想法吗？

琴剑江山_10184 · 发表于 2014-11-8 22:11:38

(defun c:tt(/ ss)
  (princ "\n框选标注归到DIM层")
  (setq ss (ssget ":s" '((0 . "DIMENSION"))))
  (command "_.chprop" ss "" "LA" "DIM" "")
  (gc)
  )

(defun c:tc(/ ss)
  (princ "\n标注全部归到DIM层")
  (setq ss (ssget "X" '((0 . "DIMENSION"))))
  (command "_.chprop" ss "" "LA" "DIM" "")
  (gc)
  )
一个手选，一个自动选全图，随便用吧

城市的邊緣 · 发表于 2016-9-18 21:24:47

好东西学习一下

duotu007 · 发表于 2014-11-8 16:05:47

这个是基本的SSGET用法啊

1993063 · 发表于 2014-11-8 16:46:51

下载学院派工具箱

(xyp-SubUpd (ssget "x" '((0 . "DIMENSION"))) 8 "dim")

lengxiaxi · 发表于 2014-11-8 17:09:38

duotu007 发表于 2014-11-8 16:05
这个是基本的SSGET用法啊

不懂啊，见笑了。能帮忙写个程序实现上述目的吗？

1993063 · 发表于 2014-11-8 17:19:53

lengxiaxi 发表于 2014-11-7 23:09
不懂啊，见笑了。能帮忙写个程序实现上述目的吗？

我上面就有SSGET用法

lengxiaxi · 发表于 2014-11-9 17:27:13

琴剑江山_10184 发表于 2014-11-8 22:11
(defun c:tt(/ ss)
(princ "\n框选标注归到DIM层")
(setq ss (ssget ":s" '((0 . "DIMENSION"))))

首先感谢！再来试用。

用户5419086408 · 发表于 2015-1-30 09:26:33

感谢分享！！！

chenbh2 · 发表于 2015-2-9 17:17:05

感谢分享,收藏备用!

dingtiedt · 发表于 2015-6-11 15:41:02

这个挺方便的，没有用这个之前，修改别人的图，都是用quick select，在全图中选择所有的rotated dimension，然后归层。
这个小程序，如果在没有dim层的情况下，能自动建dim层，就更好了

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

[讨论] 一键提取所有标注

点评