[LISP程序]：形位公差！！！！！！

handonglong

CAD2004里有形位公差！可怎样用lisp语言调用呢！哪位大师知道？谢谢！

LUCAS

1. 
   
2. AddTolerance Method
   
3. Creates a tolerance entity.
   
4. Signature
   
5. RetVal = object.AddTolerance(Text, InsertionPoint, Direction)
   
6. 
   
7. Object        ModelSpace Collection, PaperSpace Collection, Block The object or objects this method applies to.
   
8. Text        String; input-only The text string for the tolerance.
   
9. InsertionPoint        Variant (three-element array of doubles); input-only The 3D WCS coordinates in the drawing specifying the placement of the tolerance symbol.
   
10. Direction        Variant (three-element array of doubles); input-only A 3D directional vector specifying the direction of the tolerance symbol.
    
11. 
    
12. RetVal        Tolerance object The newly created Tolerance object.
    
13. 
    
14. 
    
15. (vla-addtolerance
    
16.   (vla-get-modelspace
    
17.     (vla-get-activedocument (vlax-get-acad-object))
    
18.   )
    
19.   "{\\Fgdt;r}%%v{\\Fgdt;n}0.01%%v%%vA%%v%%v"
    
20.   (vlax-3d-point '(0 0 0))
    
21.   (vlax-3d-point '(50 0 0))
    
22. )
    

复制代码

默然回首

能否在有更详细的解释？比如说：

该如何用语言实现！[IMG][IMG]代码http://www.xdcad.net/forum/images/vBulletin_logo.gif[/img][/IMG]

LUCAS

语言实现??---那就是vlisp语言

autolisp语言是這樣
(entmake '((0 . "TOLERANCE")
           (100 . "AcDbEntity")
           (67 . 1)
           (410 . "配置1")
           (8 . "DIM")
           (100 . "AcDbFcf")
           (3 . "STANDARD")
           (10 0 0 0.0)
           (1 . "{\\Fgdt;r}%%v{\\Fgdt;n}0.01%%v%%v%%v%%v")
           (210 0.0 0.0 1.0)
           (11 1.0 0.0 0.0)
          )
)

默然回首

谁能告诉我贴一个图片上留言版，好让我给一个实例！
帮助里讲
[IMG]代码http://www.xdcad.net/forum/images/vBulletin_logo.gif[/img]
但我不能实现。

就是把（vBulletin_logo.gif）自己所需的图片如何存入进去，在留言版上可以显现！