Vla-addtolerance

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-addtolerance vla-object Text InsertionPoint ')

機能: 幾何公差図形を作成する。

引数

vla-object … VLAオブジェクト（Block、ModelSpace、PaperSpace）
Text … 幾何公差の文字列。
InsertionPoint … 幾何公差記号を配置する位置を指定する図面内の 3D WCS 座標。
Direction … 幾何公差記号の方向。3D 方向ベクトル。

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_AddTolerance()
    ;; モデル空間に幾何公差を作成するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; 幾何公差の定義
    (setq insertionPoint (vlax-3d-point 5 5 0)
          direction (vlax-3d-point 1 0 0))

;;"{\Fgdt;r}%%vasdf{\Fgdt;l}%%vdf%%vxc%%v12{\Fgdt;m}%%vsd"
  
    (setq textString (strcat "{\\Fgdt;r}%%vasdf{\\Fgdt;l}%%vdf%%vxc%%v12{\\Fgdt;m}%%vsd\n"
                             "{\\Fgdt;t}%%vdfd%%v3dd{\\Fgdt;l}%%vv%%v%%vxc{\\Fgdt;m}\n"
                             "123"
                     )
    )
	
    ;; モデル空間に幾何公差を作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq toleranceObj (vla-AddTolerance modelSpace textString insertionPoint direction))  
    (vla-ZoomAll acadObj)
)