「Vla-get-count」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「 {{AutoLISP}} ; 構文 : (vla-get-count ''vla-object'' '''' '''' '''') ; 機能 : オブジェクト内の要素の数を取得する。 ; 引数 :* vla-object … VL...」)
 
編集の要約なし
 
2行目: 2行目:
{{AutoLISP}}
{{AutoLISP}}
; 構文
; 構文
: (vla-get-count ''vla-object'' '''' '''' '''')
: (vla-get-count ''vla-object'')





2015年10月30日 (金) 14:00時点における最新版

構文
(vla-get-count vla-object)


機能
オブジェクト内の要素の数を取得する。


引数
  • vla-object … VLAオブジェクト(すべてのコレクション、Block、Dictionary、Group、Materials、SectionManager、SelectionSet)


戻り値
オブジェクト内の要素の数。


サンプル
(vl-load-com)
(defun c:Example_Count()
    ;;オブジェクトのコレクションを取得して表示するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (alert (strcat "この図面には " (itoa (vla-get-Count (vla-get-Layers doc))) " 個の画層があります"))
    (alert (strcat "この図面には " (itoa (vla-get-Count (vla-get-ModelSpace doc))) " 個の図形がモデルスペースにあります。"))

    (setq I 0
	  objCount (vla-get-Count (vla-get-ModelSpace doc)))
    
    (while (>= (- objCount 1) I)
        (setq mspaceObj (vla-Item (vla-get-ModelSpace doc) I)
	      I (1+ I))
        (alert (strcat "モデルスペース内の図形は : " (vla-get-ObjectName mspaceObj)))
    )
)


関連事項