Vla-createentry

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-createentry vla-object Feature FullFileName AffectsGraphics noIncrement)


機能
[File Dependency List]の中に新しいエントリを作成する。


引数
  • vla-object … FileDependencies の VLA オブジェクト
  • Feature … エントリを作成するアプリケーションまたは機能の説明。
  • FullFileName … File Dependency List に格納するファイルの名前(既存のファイルであることが必要)。
  • AffectsGraphics … ブール
  • vlax-True の場合は、このエントリは図面ファイルの画面表示(特にグラフィックス キャッシュ)に影響を与える。
  • vlax-False の場合は、画面表示には影響しない。
  • noIncrement … ブール
  • vlax-True の場合は、既存のエントリの参照カウントを増加させない。
  • vlax-False の場合は、既存のエントリが追加されると参照カウントが増加する。


戻り値
[File Dependency List]のインデックス値


サンプル
(vl-load-com)
(defun c:Example_UpdateEntry()
    ;; ファイルの依存関係リストにエントリを追加し、そのインデックスを返してから
    ;; 更新、エントリを削除するサンプル。
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq objFDLCol (vla-get-FileDependencies doc))
    (alert (strcat "ファイルの依存関係リスト内のエントリ数は" (itoa (vla-get-Count objFDLCol)) "個なり。"))
    
    (setq FDLIndex (vla-CreateEntry objFDLCol "acad:xref" (findfile ".\\Sample\\Sheet Sets\\Architectural\\Res\\Wall Base.dwg") :vlax-true :vlax-true))
    (alert (strcat "ファイルの依存関係リスト内のエントリ数は" (itoa (vla-get-Count objFDLCol)) "個なり。"))
    
    (setq IndexNumber (vla-IndexOf objFDLCol "acad:xref" (findfile ".\\Sample\\Sheet Sets\\Architectural\\Res\\Wall Base.dwg")))
    (setq IndexString (itoa IndexNumber))
    (alert (strcat "新しいエントリのインデックスは" IndexString "デス。"))
    
    (vla-UpdateEntry objFDLCol FDLIndex)
    
    (vla-RemoveEntry objFDLCol FDLIndex :vlax-true)
    (alert (strcat "ファイルの依存関係リスト内のエントリ数は" (itoa (vla-get-Count objFDLCol)) "個なり。"))
)

関連事項