1方向に画像をスケールアップ

[Angelo2449]

皆さんこんにちは。
選択したイメージを1方向にスケールアップする lisp コードはありますか?
お問い合わせ

 

[GP.]

(setq imm (vlax-ename->vla オブジェクト (car (entsel))))))
(fla-put-imageheight imm) 6)
(入力画像幅25インチ)

 

[Angelo2449]

グラジエ gp

 

[Angelo2449]

感謝 gp,
私は私のコードにあなたの指示を適用し、それはうまく動作します、私はのために要素を抽出することはできません > 再描画 < :

(間)
(setqイメージ(vlax-ename->vla-object)))
;;;

> entsel < の場合:

(setq ed1 (エントリ)
(setq en1 (cdr -1 ed1)))
(引き込み en1 3)

お問い合わせ

 

[confutatis]

(setqイメージ(vlax-ename->vla-object)))
(vla-highlightイメージ:vlax-true);
(vla-highlightイメージ:vlax-false);;;;;;

ハイライトはまた、通常のregenでそれを削除します

 

[Angelo2449]

私は指示を入力し、私はメッセージを取得します。
"too多くの実際のパラメータ"

 

[Angelo2449]

とりあえず!