Vla-put-imagefile

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(va-put-imagefile vla-object path)


機能
ラスター イメージ ファイルのフルパスとファイル名を指定する。


引数
  • vla-object … VLA オブジェクト(Raster、Wipeout)
  • path … パスの文字列


戻り値
nil
  • 注意 : このプロパティにはパス情報がありますが Name プロパティにはないという点を除き、このプロパティは Name プロパティと似ている。このプロパティを使用して、新しいラスター イメージを既存のラスター図形内にロードできまる。


サンプル
(vl-load-com)
(defun repath_images (/ ss i img iname)
; イメージのパスを消すサンプル  
  (setq ss (ssget "X" '((0 . "IMAGE"))))
  (setq i -1)
  (while (< (setq i (1+ i)) (sslength ss))
    (setq img (vlax-ename->vla-object (ssname ss i))
          Iname (vla-get-imagefile img))
    (while (vl-string-search "\\" Iname)
      (setq Iname (substr Iname 2))
    )
    (vla-put-imagefile img Iname)
  )
)

関連事項