絵画名を描きます。

[Angelo2449]

皆さんこんにちは。
一度画像の名前とパスを抽出する小さなプログラムを書きたいと思います
選択します。
最初の部分を書きました。

 (defun c:estraimm (/イメージ ed1 en1))

(setqイメージ nil)
(歌)
(=イメージニル)
(setqイメージ)
;;;

(setq ed1 (エントリ)
(setq en1 (cdr -1 ed1)))
(princ "\ned1 xxxxxxxxx")
(princ ed1)
(princ "\n")
(reraw e13)

;;;

仕上げる手が必要です!
お問い合わせ

 

[confutatis]

(defun c:estraimm (/イメージ))
(間)
(setqイメージ)
;;;
(setq名(vla-get-name)))))
(setq パス (vla-get-imagefile (vlax-ename->vla-object)))))))
(princ "\nnome: ")(正式名称)
(princ "\npercourse: ")(princ パス)
(プライアンス)
;;;

必要なデータは、名前とパス変数に含まれています。

 

[Cristallo]

乾燥と効率的な... このフォーラムで見逃した時間

 

[rpor66]

情報の完全性のため:
(setq n (cdr (assoc 340))))
(setq名(cdr))

(entget Image) 340 のサブリストには、ファイルの名前が格納されているエンティティティティティティティの名前、サブリスト1、パスの完全な名前が含まれています。

 

[Cristallo]

vl- vlax を使用せずにソリューション
お問い合わせ