yang686526

删除尺寸
www.dimcax.com
删除尺寸
删除尺寸（相同图层）
(defun c:ec ()
(setq ent (entget (car (entsel))))
(setq tu (assoc 8 ent))
(setq se (ssget (list (cons 0 "dimension") tu)))
(command "erase" se "")
(princ)
)

这样的删除还用的着2次开发？直接把其他图层冻结，框选删除就行了。
或者快速选择功能选择这个图层也行。有必要开发吗？
开发标注删除主要是针对那些没图层思维的人，要开发无图层概念，针对标注的程序
述小弟直言，见谅

每人都有个人的想法

学习了

把你的程序改了一下
它可删除在不同层的标的尺寸.
(defun c:ec ()
(setq se (ssget "all" '((0 . "dimension"))))
(command "erase" se "")
(princ)
)
gbg

顾老师修改的程序很实用,且简单明了,水平高

其实用cad本身的filter命令也可以做到的
filter命令很实用，但是有一个缺点就是，关闭cad以后就要重新输入参数
用程序的话，免除了这些不便，一次加载，终身受益