快速一次性删除所有标注
1：选择标注删除(vl-cmdf "ERASE" (ssget '((0 . "*DIMENSION"))) "")2：全图标注删除(vl-cmdf "ERASE" (ssget "x" '((0 . "*DIMENSION"))) "")
(DEFUN C:TT ()
(SETQ SS (SSGET '((0 . "*DIMENSION"))))
(IF SS
(PROGN
(SETQ I-1
SS (ACET-SS-TO-LIST SS)
)
(MAPCAR (FUNCTION (LAMBDA (X) (ENTDEL X))) SS)
)
)
)
页:
[1]