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

jxb8888

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

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) )

mccad

dimObj 未做转换

jxb8888

怎样转换呢?


不明白,望明总指导!

meflying

将对象由ENAME类型转换为VLA-OBJECT类型，如果程序是你写的，你应该能明白。如果不是你写的，你应该找写程序的人彻底完善一下

jxb8888

可否帮忙搞定它?


帮帮手!


OK?

meflying

2. (VL-LOAD-COM)
3. (defun c:se ( / AcadObject AcadDocument mSpace)
4.    (setq  AcadObject     (vlax-get-acad-object)
5.   AcadDocument (vla-get-ActiveDocument Acadobject)
6.   mSpace           (vla-get-ModelSpace Acaddocument)
7.    )
8.    (Setq dimObj (vlax-ename->vla-object (car (entsel))))
9.    (vla-put-ToleranceDisplay dimObj acTolSymmetrical)
10.    (vla-put-ToleranceLowerLimit dimObj 0.2)
11.    (vla-put-ToleranceUpperLimit dimObj 0.2)
12.    (princ)
13. )

(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) )