Vla-put-path

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年1月12日 (月) 11:20時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-path ''vla-object'' ''path'') ; 機能 : ブロック、ドキュメント、アプリケーション、または外部参照のパス...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-path vla-object path)


機能
ブロック、ドキュメント、アプリケーション、または外部参照のパスを指定する。


引数
  • vla-object … VLAオブジェクト(Application、Block、Document、ExternalReference、PointCloud、PointCloudEx)
  • path … パスの文字列


戻り値
nil
  • MEMO:


サンプル
(vl-load-com)
(defun c:path_exaple ( / new nme old pth )
  ; 検索したパスを指定したパスに更新するサンプル
  (if (and
        (/= "" (setq old (getstring t "\n検索するパス: ")))
        (/= "" (setq new (getstring t "\n変更するパス: ")))
      )
    (vlax-for 
      blk 
      (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
      (if (and
            (= :vlax-true (vla-get-isxref blk))
            (vl-string-search old (vl-filename-base (setq pth (vla-get-path blk))))
          )
        (progn
          (setq nme (vl-string-subst new old (vl-filename-base pth)))
          (vla-put-path blk (strcat (vl-filename-directory pth) "\\" nme ".dwg"))
          (vla-put-name blk nme)
          (vla-reload blk)
        )))
    )
(princ)
)

関連事項