[求助]：能将标注自动放进dim层

hsb-hy

需要这个东西，先支持，再下载，好用再来说！

leeyuan

又是标注啊，坚决要下载看看，现在正研究这项

熊哥哥

先看看

xyp1964

最后作统一处理：
[php]
(load "xyp_lib")                        ;加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在每个程序内增加(load"xyp_lib")
2.在acad.lsp中增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;标注、文本、剖面线统一改层
(defun c:test ()
  (cmdla0)
  (mkla "标注" 3)
  (mkla "文本" 4)
  (mkla "剖面线" 5)
  (setq SS1 (ssget "x" '((0 . "DIMENSION")))
        SS2 (ssget "x" '((0 . "TEXT,MTEXT")))
        SS3 (ssget "x" '((0 . "HATCH")))
        )
  (if ss1(command "chprop" ss1 "" "la" "标注" ""))
  (if ss2(command "chprop" ss2 "" "la" "文本" ""))
  (if ss3(command "chprop" ss3 "" "la" "剖面线" ""))
  (cmdla1)
)
[/php]

qiaqiadeng

还是用天正好，不过倒是一种很好的方法，可以借鉴。

cwc8

好东西，可惜要3天才能下载