lengxiaxi 发表于 2014-11-11 19:45:59

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

现有自动为现有尺寸添加极限公差的源码，默认是上偏差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 发表于 2014-11-11 19:56:52

(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 发表于 2014-11-11 20:09:26

很给力啊！！
页: [1]
查看完整版本: 已有源码，如何修改实现可输入公差