;;;
查闭合
(defun c:cfb()
(command "layer" "n" "
不闭合
" "S" "
不闭合
" "c" "1" ""
"n" "dldw
不闭合
" "S" "dldw
不闭合
" "c" "1" ""
"")
(command "layer" "s" "0" "")
(setq ss (ssget "x" (list (cons 8 "jmd")(cons 70 128)(cons 39 3103013.0000))))
(if ss
(command "change" "p" "" "p" "layer" "
不闭合
" "")
)
(setq ss (ssget "x" (list (cons 8 "jmd")(cons 70 128)(cons 39 3804073.0000))))
(if ss
(command "change" "p" "" "p" "layer" "
不闭合
" "")
)
(setq ss (ssget "x" (list (cons 8 "dldw")(cons 70 128)(cons 39 3302003.0000))))
(if ss
(command "change" "p" "" "p" "layer" "dldw
不闭合
" "")
)
(setq ss (ssget "x" (list (cons 8 "dldw")(cons 70 128)(cons 39 3304003.0000))))
(if ss
(command "change" "p" "" "p" "layer" "dldw
不闭合
" "")
)
(setq ss (ssget "x" (list (cons 8 "dldw")(cons 70 128)(cons 39 3406013.0000))))
(if ss
(command "change" "p" "" "p" "layer" "dldw
不闭合
" "")
)
(setq ss (ssget "x" (list (cons 8 "dldw")(cons 70 128)(cons 39 3602003.0000))))
(if ss
(command "change" "p" "" "p" "layer" "dldw
不闭合
" "")
)
这是一个AutoCAD Lisp程序,用于检查并修改图层中的特定对象。它将尺寸标注(dldw)所在的图层更改为'不闭合',并在尺寸前缀和后缀中添加文本,帮助用户标识未闭合的图元。
1692

被折叠的 条评论
为什么被折叠?



