Vla-evaluate

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

構文: (vla-evaluate vla-object Loop)

機能: 指定されたハッチングまたは引出線を評価する。

引数

vla-object … Hatch または Leader の VLA オブジェクト

戻り値: nil

memo:
- Leader … 引出線とそれに関連付けられた注釈との関係を評価し、必要に応じて引出線ジオメトリを更新する。
- Hatch … 指定されたハッチングパターンを使用して、ハッチング図形のハッチング線分または塗り潰しを評価する。通常のハッチングパターンの場合、ハッチングパターンを定義する線分とハッチング境界の曲線との交点を計算し、ハッチング線分を形成する。塗り潰しハッチングパターンの場合、ハッチングリージョンを三角形に分割し、指定された色で三角形のメッシュを塗り潰す。

サンプル

<syntaxhighlight lang="lisp" line> (vl-load-com) (defun c:Example_AppendInnerLoop()

   ;; この例では、モデル空間での連想ハッチを作成し、ハッチの外側のループを追加する。

   (setq *actdoc* (vla-get-ActiveDocument (vlax-get-acad-object)))
   
   ;; ハッチの定義
   (setq patternName "AISI31"
         patternType 0
         bAssociativity :vlax-true)
   
   ;; 連想ハッチオブジェクトを作成
   (setq modelSpace (vla-get-ModelSpace *actdoc*))  
   (setq hatchObj (vla-AddHatch modelSpace patternType patternName bAssociativity acHatchObject))
   
   ;; ハッチのための外側のループを作成
   ;; 円弧と線は閉じたループを作成するために使用
   (setq center     (vlax-3d-point 5 3 0)
         radius     3
         startAngle 0
         endAngle   3.141592)

   (setq arc (vla-AddArc modelSpace center radius startAngle endAngle))
   (setq line (vla-AddLine modelSpace (vla-get-StartPoint arc) (vla-get-EndPoint arc)))
 
   (setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 1)))
   (vlax-safearray-put-element outerLoop 0 arc)
   (vlax-safearray-put-element outerLoop 1 line)
       
   ;; ハッチングオブジェクトに外側のループを追加
   (vla-AppendOuterLoop hatchObj outerLoop)
   
   ;; ハッチのための内側のループとして円を追加
   (setq center (vlax-3d-point 5 4.5 0)
         radius 1)
   (setq circle (vla-AddCircle modelSpace center radius))

   (setq innerLoop (vlax-make-safearray vlax-vbObject '(0 . 0)))
   (vlax-safearray-put-element innerLoop 0 circle)

   (vla-AppendInnerLoop hatchObj innerLoop)
   
   ;; ハッチを評価して表示
   (vla-Evaluate hatchObj)
   (vla-Regen *actdoc* :vlax-true)

) </syntaxhighlight>