Vla-reloadのソースを表示

{{AutoLISP}}
; 構文
: (vla-reload ''vla-object'')


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


; 引数
:* vla-object … VLAオブジェクト


; 戻り値
: nil


; サンプル
<pre class="brush:autolisp;">
(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)
)

</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]
* [[vla-get-blocks]]
* [[vla-get-isxref]]
* [[vla-get-name]]

[[Category:AutoLISP]]