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 static/image/common/back.gif
不懂啊，见笑了。能帮忙写个程序实现上述目的吗？

我上面就有SSGET用法

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

琴剑江山_10184 发表于 2014-11-8 22:11 static/image/common/back.gif
(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层，就更好了
页: [1] 2
查看完整版本: 一键提取所有标注