明总:我这个碰选的公差标注为什么不行呢?(

defun c:se()
             (PrinC "\n这是对标注添加公差的程式...")
                                           
;;; 使用ToleranceLowerLimit与ToleranceUpperLimit属性 ;;; 设置公差上下限
     (VL-LOAD-COM)
   (setq       AcadObject     (vlax-get-acad-object)             AcadDocument (vla-get-ActiveDocument Acadobject)             mSpace               (vla-get-ModelSpace Acaddocument)   )
;;;在模型空间中碰选一个对齐式标注对象
   (Setq dimObj (entsel))
;;;打开公差显示
   (vla-put-ToleranceDisplay dimObj acTolSymmetrical)
   ;;; 调整这个公差的上下限 
   (vla-put-ToleranceLowerLimit dimObj 0.2)
   (vla-put-ToleranceUpperLimit dimObj 0.2)
   
   (princ)
)

(VL-LOAD-COM)
(defun c:se ( / AcadObject AcadDocument mSpace)
   (setq  AcadObject     (vlax-get-acad-object)
  AcadDocument (vla-get-ActiveDocument Acadobject)
  mSpace           (vla-get-ModelSpace Acaddocument)
   )
   (Setq dimObj (vlax-ename->vla-object (car (entsel))))
   (vla-put-ToleranceDisplay dimObj acTolSymmetrical)
   (vla-put-ToleranceLowerLimit dimObj 0.2)
   (vla-put-ToleranceUpperLimit dimObj 0.2)
   (princ)
)