[求助]：请协助更新Autolisp

Joseflin

【Dtol.lsp】是拙作标注公差用之LISP。原先的upper tolerance和Lower tolerance只可输入数字(如+0.02 -0.01)，祈望它也可以输入公差符号(如H7 m6)，请诸位先进贤达协助更新。

Dtol.lsp

(defun c:dtol()
(setq upv(getstring "\nUpper Tolerance :"))
(setq lowerv(getstring "\nLower Tolerance :"))
(setq txth(getreal "\nTolerance Text High :"))
(if lowerv
(if (= (substr lowerv 1 1) "+")
(progn
(setq lowerv(atof lowerv))
(setq lowerv(- 0 lowerv))
)
(setq lowerv (abs (atof lowerv)))
)
(setq lowerv(atof lowerv))
)
(setq upv(atof upv))
(setvar "dimtfac" txth)
(setvar "dimtol" 1)
(setvar "dimalttz" 1)
(setvar "dimtp" upv)
(setvar "dimtm" lowerv)
(command "dim" "update" pause "" "exit")
(setvar "dimtol" 0)
)

忍不住

这个发到※AutoLISP/VLISP 开发技术※ 版块更好！
帮你搬个家！