快速一次性删除所有标注

admin

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)
    )
  )
)