Vla-get-numberofvertices

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

構文: (vla-get-numberofvertices vla-object )

機能: ポリメッシュの頂点数を取得する。

引数

vla-object … PolyFaceMesh のVLAオブジェクト

戻り値: PolyFaceMesh 内の頂点の数。

サンプル

(vl-load-com)
(defun c:Example_NumberOfVertices()
    ;; PolyFaceMesh を作成し、含まれている頂点の数を取得するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; 新しい PolyFaceMesh オブジェクトのデータ
    (setq vertexList (vlax-make-safearray vlax-vbDouble '(0 . 17)))
    (vlax-safearray-fill vertexList 
                         '(4 7 0
                           5 7 0
                           6 7 0
                           4 6 0
                           5 6 0
                           6 6 6 ))
    (setq FaceList (vlax-make-safearray vlax-vbInteger '(0 . 7)))
    (vlax-safearray-fill FaceList 
                         '(1
                           2
                           5
                           4
                           2
                           3
                           6
                           5 ))
    ;; PolyFaceMesh を作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq NewPolyFaceMeshObj (vla-AddPolyfaceMesh modelSpace vertexList FaceList))
    (vla-Update NewPolyFaceMeshObj)

    ;; メッシュ ポリメッシュを見やすくビューポートの表示方向を変更。
    (setq direction (vlax-3d-point -1 -1 1))
    (setq activeViewport (vla-get-ActiveViewport doc))
    (vla-put-Direction activeViewport direction)
    (vla-put-ActiveViewport doc activeViewport)
    (vla-ZoomAll acadObj)
    
    ;; この PolyFaceMesh で頂点の数を表示します。
    (alert (strcat "新しい PolyFaceMesh に含まれる頂点数は " (itoa (vla-get-NumberOfVertices NewPolyFaceMeshObj)) " 個です。"))
)