我觉的吧!你写的那么个小程式搞的也太长了!我不喜欢你这样的风格!我觉的很多功能CAD里面都有的!你不用写那么复杂的东东!我帮你简化一下你自己看看能不能解决你的+-号问题!(本人试过没有问题,你自己再试试)
(DEFUN C:eed()
(setvar "cmdecho" 0)
(prompt "\n+xx")(setq n (getreal""))
(prompt "\n-yy")(setq m (getreal""))
(if (= n nil) (setq n 0))
(if (= n m) (setq c 1) (setq c 0.6))
(COMMAND "_DIMOVERRIDE" "DIMTP" n "DIMTM" M "DIMTFAC" c "DIMTOL" "ON" ""))
(PRINC ))