是的,这要容易得多。只需修改上述条件,以确保您始终具有正确的设置。
尝试以下操作:
- ( (lambda ( / _dimstyle-setup )
- (defun _dimstyle-setup ( / )
- (mapcar 'eval
- '(
- (SETVAR "DIMADEC" 0) (SETVAR "DIMALT" 0) (SETVAR "DIMALTD" 2)
- (SETVAR "DIMALTF" 25.4) (SETVAR "DIMALTRND" 0.0) (SETVAR "DIMALTTD" 2)
- ;
- ; ...<snip> All your variables.
- ;
- (SETVAR "DIMTXT" 0.03125) (SETVAR "DIMTZIN" 0) (SETVAR "DIMUPT" 0)
- (SETVAR "DIMZIN"
- )
- )
- )
- (if (tblsearch "DIMSTYLE" "<YOUR DIMSTYLE NAME>")
- (progn
- ;; if the dimstyle exists
- ;; make sure its setup properly
- (_dimstyle-setup)
- ;; set it current
- (command "-dimstyle" "r" "<YOUR DIMSTYLE NAME>")
- )
- (progn
- ;; otherwise
- ;; set it up properly
- (_dimstyle-setup)
- ;; save it.
- (command "-dimstyle" "s" "<YOUR DIMSTYLE NAME>")
- )
- )
- )
- )
|