 - (defun c:dim(/ dx)
- (if(not(tblobjname "layer" "Dim"))
- (command "-layer" "n" "Dim" "C" 8 "Dim" "L" "Continuous" "Dim" "LW" "0.05" "Dim" "")
- )
- (if (setq dx (cadr (ssgetfirst)))
- (command "Chprop" dx "" "LA" "Dim" "")
- (setvar "clayer" "Dim")
- )
- (princ)
- )
你试试我的这个,多写几个,按快捷键切换就好了。
|