关于形位公差！

zgglgg7722 · 发表于 2004-6-21 10:27:00

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

alin · 发表于 2004-6-21 11:36:00

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

zgglgg7722 · 发表于 2004-6-21 14:22:00

alin，请问vla-系列函数使用时，是不是都必须先加载vl-load-com?
可不可以对vla-addtolerance,举个具体例子。
谢谢！

alin · 发表于 2004-6-21 15:17:00

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

精灵王 · 发表于 2004-6-21 23:21:00

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

zgglgg7722 · 发表于 2004-6-22 18:44:00

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

alin · 发表于 2004-6-22 19:21:00

是从ActiveX and VBA Reference帮助里转化而来的
RetVal = object.AddTolerance(Text, InsertionPoint, Direction)
Object
, ,
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
object
The newly created Tolerance object.

关于形位公差！

发表回复

精选推荐