一个尺寸标注的程式

zhongys

一个简单尺寸标注的程式，虽然很简单，但很实用。 (DEFUN C:DDC()
(setvar "cmdecho" 0)
(SETVAR "OSMODE" 16383)
(setq old_la (getvar "clayer"))
(setvar "clayer" "尺寸线层")
(command "dimlinear" pause pause "text" "%%c<>")
(setvar "clayer" old_la)
(princ)
) 注：DWG档要有尺寸线层，因为我要定义尺寸图元要在尺寸线层。然后再转回当前的图层

bbo

xie xie

alan_cmh

没有错误处理函数，中途取消后就不能回到原来的图层状态了!