已有源码，如何修改实现可输入公差

lengxiaxi

现有自动为现有尺寸添加极限公差的源码，默认是上偏差0.5  下偏差 0.2，如何修改源码，使其在生成公差标注前，能手动输入上下偏差的值?

源码如下

(defun c:gc ( / ent )
   (vl-load-com)
   (setq ent (entsel "\n选择标注"))
   (vla-put-tolerancedisplay (vlax-ename->vla-object (car ent)) actolsymmetrical) ;显示公差
  (vla-put-tolerancelowerlimit (vlax-ename->vla-object (car ent)) 0.5) ;添加下公差
  (vla-put-toleranceupperlimit (vlax-ename->vla-object (car ent)) 0.2) ;添加上公差
        (vla-put-toleranceheightscale (vlax-ename->vla-object (car ent)) 0.6) ;显示比例
)

669423907

(defun c:gc( / ent )
   (vl-load-com)

(prompt "\n+")(setq s (getreal""))
(prompt "\n-")(setq x (getreal""))
(if (= s nil) (setq s 0.5))
(if (= x nil) (setq x 0.2))

   (setq ent (entsel "\n选择标注"))
   (vla-put-tolerancedisplay (vlax-ename->vla-object (car ent)) actolsymmetrical) ;显示公差
  (vla-put-tolerancelowerlimit (vlax-ename->vla-object (car ent)) s) ;添加下公差
  (vla-put-toleranceupperlimit (vlax-ename->vla-object (car ent)) x) ;添加上公差
        (vla-put-toleranceheightscale (vlax-ename->vla-object (car ent)) 0.6) ;显示比例
)

lengxiaxi

很给力啊！！