大家帮看看哪里出问题了！！

爱如空气

下面是一个为标注添加制定公差的程序。
(defun c:ttt ( / 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) ;添加下公差
  (vla-put-toleranceupperlimit (vlax-ename->vla-object (car ent)) 0.1) ;添加上公差
  (vla-put-toleranceheightscale (vlax-ename->vla-object (car ent)) 0.6) ;显示比例
)

当我的下偏差定为0，上偏差定为0.1时，问题出现了。程序运行结果公差变成了±0.1；但是当上下偏差不为0时，程序却又是正常可以的。希望大家能指出存在的问题！

duotu007

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

爱如空气

duotu007 发表于 2012-8-15 16:44
(defun c:ttt ( / ent )
  (vl-load-com)
  (setq ent (entsel "\n选择标注"))

再次感谢您了！谢谢给了我这么大的帮助！
(vla-put-tolerancelowerlimit (vlax-ename->vla-object (car ent)) 0) ;添加下公差
您说的0公差后赋值，具体怎么实现的啊？
(vla-put-tolerancelowerlimit (vlax-ename->vla-object (car ent)) 0) 我在0后面加了个0，或者改成缺省值“”    变成了0，并未实现赋值，该怎么实现呢？希望得到您的帮助。
         -0

爱如空气

duotu007 发表于 2012-8-15 16:44
(defun c:ttt ( / ent )
  (vl-load-com)
  (setq ent (entsel "\n选择标注"))

您好！0公差后赋值，具体应该怎么弄，我还是没搞清，希望您能帮助我！

爱如空气

duotu007 发表于 2012-8-15 16:44
(defun c:ttt ( / ent )
  (vl-load-com)
  (setq ent (entsel "\n选择标注"))

0公差后赋值的问题还是未解决！头疼死了。希望您指导下！谢谢了！

爱如空气

duotu007 发表于 2012-8-15 16:44
(defun c:ttt ( / ent )
  (vl-load-com)
  (setq ent (entsel "\n选择标注"))

额！不好意思了！
问题解决了。
(defun ttt(ent)
  (vl-load-com)
  (vla-put-tolerancedisplay (vlax-ename->vla-object ent) acTolDeviation) ;显示公差
  (vla-put-tolerancelowerlimit (vlax-ename->vla-object  ent)  0) ;添加下公差
  (vla-put-toleranceupperlimit (vlax-ename->vla-object  ent) 0.1) ;添加上公差
  (vla-put-tolerancelowerlimit (vlax-ename->vla-object  ent)  0)
  (vla-put-toleranceheightscale (vlax-ename->vla-object ent) 0.6) ;显示比例
)
又添了一个下公差就解决问题了。为什么之前会出现那种问题呢？求教