关于形位公差！

zgglgg7722

请问形位公差在图形界面是对话框的形式，在lisp命令中如何使用？

alin

[I]vla-addtolerance[/I] definitely works

zgglgg7722

alin，请问vla-系列函数使用时，是不是都必须先加载vl-load-com?


可不可以对vla-addtolerance,举个具体例子。


谢谢！

alin

Just an example. (defun C:test() (vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq mspace (vla-get-modelspace doc)
utility (vla-get-utility doc))
(setq basePnt (vla-getPoint utility nil "\nBase Point: ")
textstring "%%vtol1%%vtol2%%v%%v%%v\n2\n3")
(setq direction (vlax-make-safearray vlax-vbDouble '(0 . 2)))
(vlax-safearray-fill direction '(1 0 0))
(setq toleranceObj (vla-addTolerance mspace textstring basePnt direction))
(vla-put-scalefactor toleranceObj (getvar "DIMSCALE"))
(princ)
)

精灵王

vla-addTolerance 这个函数在帮助中怎么查不到，怎么回事啊？

zgglgg7722

对，我也同样发现这个问题了。

alin

是从ActiveX and VBA Reference帮助里转化而来的

RetVal = object.AddTolerance(Text, InsertionPoint, Direction)

Object

MSITStore:C:\Program%20Files\AutoCAD%202004\help\acadauto.chm::/idh_modelspace_collection.htm" target="_blank" >ModelSpace Collection, MSITStore:C:\Program%20Files\AutoCAD%202004\help\acadauto.chm::/idh_paperspace_collection.htm" target="_blank" >PaperSpace Collection, MSITStore:C:\Program%20Files\AutoCAD%202004\help\acadauto.chm::/idh_block_object.htm" target="_blank" >Block
The object or objects this method applies to.

Text

String; input-only
The text string for the tolerance.

InsertionPoint

Variant (three-element array of doubles); input-only
The 3D WCS coordinates in the drawing specifying the placement of the tolerance symbol.

Direction

Variant (three-element array of doubles); input-only
A 3D directional vector specifying the direction of the tolerance symbol.

RetVal

MSITStore:C:\Program%20Files\AutoCAD%202004\help\acadauto.chm::/idh_tolerance_object.htm" target="_blank" >Tolerance object
The newly created Tolerance object.