Vla-reload

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年3月21日 (木) 10:08時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-reload ''vla-object'') ; 機能 : 外部参照を再ロードする。 ; 引数 :* vla-object … VLAオブジェクト ; 戻り値 :...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-reload vla-object)


機能
外部参照を再ロードする。


引数
  • vla-object … VLAオブジェクト


戻り値
nil


サンプル
(defun c:rax (/ blks)
  (vl-load-com)
  (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))

  (setq blks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for blk blks
    (if (equal (vla-get-isxref blk) :vlax-true)
      (progn (vla-reload blk)
             (princ (strcat "\nReloading " (vla-get-name blk) "..."))
      )))
  (princ)
)


関連事項