Auto Lisp 标注子样式_晓东CAD家园-论坛-技术问答【悬赏求助】-用LISP 建立一个文字样式同标注样式 - Powered by Discuz!...

(command ".-style"    "GB孔"           "gdt.shx,gbcbig.shx"

0              1.0           0                "n"

"n"              "n"

)

(defun MkDimStyleFrom (OldName NewName lst / dims ndim)

(setq        dims (vla-get-dimstyles

(vla-get-activedocument (vlax-get-acad-object))

)

)

(if (tblsearch "dimstyle" oldname)

(progn

(if (not (tblsearch "DimStyle" newName))

(setq ndim (vla-add dims newName))

)

(vla-copyfrom (vla-item dims oldname) ndim)

(vla-put-activedimstyle

(vla-get-activedocument (vlax-get-acad-object))

ndim

)

(if lst

(progn

(mapcar '(lambda (x) (apply 'setvar x)) lst)

(vl-cmdf ".dimstyle" "s" NewName "Y")

)

)

)

)