|
发表于 2008-6-30 11:29:00
|
显示全部楼层
DM
(defun C: DM ()
(setq cmdsave (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\ndeldim 选图元区域 删除尺寸")
(setq s1 (ssget '((0 . "DIMENSION"))))
(command "erase" s1 "")
(setvar "cmdecho" cmdsave)
(prompt "DM 指令删除尺寸 Created by Jiang in 2000")
(princ)
) |
|