ログイン

[nicolas74]

サポート
お問い合わせ 画像で簡単なdclを作成する方法が分かりません。
または、より良い、私が考えるdclファイルが正しく作成されますが、それを返すためにlspファイルを作成することはできません、それは私にエラー、あまりにも多くの引数を与えます。 . . .
お問い合わせ
dcl および lisp の下
お問い合わせ

ファイル 52.dcl:
no_name: 対話 {
ラベル="
:イメージ
キー = "dclimage1";
幅 = 32.3;
高さ = 9.1;
is_tab_stop = false です。
色 = 黒;
アライメント = トップ;
お問い合わせ

ok_cancel_help は、
お問い合わせ
//////////////////////

ファイル lisp
(defun c:imma(/dcl_id) ) )
(defun init_handler() ;initialation_code() )
(setq _x_ (dimx_tile "dclimage1"))
(setq _y_ (dimy_tile "dclimage1"))
(start_image "dclimage1")
(slide_image 0 _x_ _y_ "d:/client/ceb/logo.png")
(end_image) は
(プライアンス)
;初期関数の終了
(defun set_data() ;start set 関数
(プライアンス)
;セット機能の端
(defun get_data() ;start get 関数
(プライアンス)
;取得機能の端
(setq dcl_id の場合)
(new_dialog "no_name" dcl_id の場合)
(プログ)
(setq 結果 nil)
(init_ハンドラ)
(set_data)
(action_tile "accept" (get_data)(done_dialog)(setq result t)))))
(start_dialog) は、
(unload_dialog dcl_id) は、
プロフィール
)
)
)
)
(loaddialog_no_name) は、

 

[nicolas74]

dcl を開くために管理したファイルを編集しますが、画像が表示されません
お問い合わせ
お問い合わせ

例1.dcl
テキスト サークル: 対話 {
ラベル = "レクリエーション掘削";
: boxed_row(ボックス)

: 編集_box お問い合わせ
キー = "diam";
ラベル = "直径: ";
幅 = 18;
スペーサー;
スペーサー;
スペーサー;

お問い合わせ

: 編集_box お問い合わせ
キー = "xforo";
ラベル = "quota x hole: ";
幅 = 18;

お問い合わせ

: 編集_box お問い合わせ
キー = "yforo";
label = "quota y ホール: ";
幅 = 18;

お問い合わせ

: ボタン {
キー = "svuotatxt";
ラベル = "空";
お問い合わせ
お問い合わせ


キー = "タイトル";
ラベル = "image";////lspファイルから$
スペーサー;
:イメージ
キー = "画像";
幅 = 18;
高さ = 16.59;
固定幅 = true;
Fix_height = true;
aspect_ratio = 1;
色 = -2;
お問い合わせ
ok_cancel は、
お問い合わせ


//////////////////////////////
ファイル lisp

(defun c:ite ( / text dcl_id pressed ang cenpt dist~ pickpt x# y#))


(setq dcl_id)
(新しい_dialog "testocerchio" dcl_id)
(終了)
)
(action_tile "svuotatxt" (set_tile \ "xforo\"\")))
(笑)
「受け入れ」
(setq xforo (get_tile \ "xforo\")) (setq yforo (get_tile \ "yforo\")))) (setq diam (get_tile \ "diam\"))) (done_dialog 1)"


)

(start_image "image")
(setq x# (dimx_tile "image")) )
(setq y# (dimy_tile "image"))
(slide_image 0 x# y# "d:/client/ceb/logo.sld")
(end_image) は




(setq プレスボタン (start_dialog)))
(if = 押されたキー 1)
(プログ)



(print (strcat "x hole is...) :
(プリント(ストキャッツ) y 穴は... :
(プリント(ストキャット「diam hole is... :」)

(setq posforo (strcat xforo "," yforo))))

(プリント)

(コマンド "_circle" posforo "d" ダイアム)


)
)
(unload_dialog dcl_id) は、
(原則)
)

 

[Gio_S]

アップロードしないために、pngファイルを使用することができないということは理解していません。ベクターファイルであるスライド(*.sld)がかかるため、必要に応じて、cadの画面上でスナップショットを作成するコマンドでそれらを取得する必要があります。
ウィンドウのメタファイルである ems と wmf ファイルを使うこともできますが、それらを知りません。
2番目のリストではスライドも使用していますが、どのように作成しましたか?

 

[rpor66]

https://autolisp-exchange.com/tutorials/mydialogs.htm

ho 逮捕 spunto da qui

 

[Gio_S]

しかし、スナップショットを撮ってスライドを作成しましたか? 私はあなたに言う方法がわからない
あなたは、あなたがイメージのために気に何を画面上に持っていた必要があります, そして、mslideを行う
sld として保存するために彼女を与えたい名前を尋ねます。
ここから注文し、それを作成しようとすると、ここでそれを添付し、有効なスライドであるすべての最初をチェックしてください。
私はそれを充電しようとする必要があり、内部のcadコマンドではなく、それが容易であるならば、私はそれを見るためのプログラムがわからない。
画面上の被写体を一元化し、保存する前に拡張機能を使用します。

 

[nicolas74]

こんにちは。
問題はスライドではないです。 正しく動作するmslideコマンドで作成しました。
問題はファイルリスペクトです...
しかし、なぜかわからないんです。 お問い合わせ
私はまた、私が添付するスライドを再作成しようとしました, しかし、ファンシアではありません

 

[nicolas74]

なるほど、 lisp を変更して、イメージの代わりにすべての黒いウィンドウが表示されます...
しかし、スライドが見えない。 誰が私を助けることができますか?
スライドは正しいです。 azwcad の "view" コマンドで、スライドの内容を正しく表示し、正しいイメージが表示されます。
奇妙なことを作ることは、
(setq ximage) (+ (dimx_tile "image"))) 20インチ
(setq yimage (+ dimy_tile "image")) ) 20インチ

ximage と yimage は 20 です。 自分のイメージがゼロサイズだったかのように...
これらにドキュメントがないのはなぜですか?
allego ファイル lisp とスライド
お問い合わせ

 

[nicolas74]

ログイン
testocerchio: ダイアログ {
ラベル = "creazione foratura";
: boxed_row は

: 編集_box お問い合わせ
キー = "diam";
ラベル = "diametro:";
幅 = 8;
スペーサー;
スペーサー;
スペーサー;

お問い合わせ

: 編集_box お問い合わせ
キー = "xforo";
ラベル = "quota x foro:";
幅 = 3;

お問い合わせ

: 編集_box お問い合わせ
キー = "yforo";
ラベル = "quota y foro:";
幅 = 3;

お問い合わせ

: ボタン {
キー = "svuotatxt";
ラベル = "svuota";
お問い合わせ
お問い合わせ


キー = "タイトル";
label = "immagine 1";//lspファイルから$
スペーサー;
スペーサー;
スペーサー;
スペーサー;
:イメージ {
キー = "immagine";
幅 = 50;
高さ = 20;
固定幅 = true;
Fix_height = true;
aspect_ratio = 1;
色 = -2;
お問い合わせ




ok_cancel は、
お問い合わせ

 

[Gio_S]

申し訳ありませんが、私はただ試してみましたが、何も仕事をすることはできませんでした。
コマンドを呼び出すとすぐに "improper 引数"

コマンド:
コマンド: _appload
ローディング c:\cadext\isertesto.lsp
コマンド: c:ite
コマンド: ite
error: 悪用引数
(new_dialog "testocerchio" dcl_id)
(new_dialog "testocerchio" dcl_id) ではなく)
(ない) (終了)
(c:ite)

ひとつのzipパッケージを全て作ってみませんか? Lisp dcl と...
コードのパスなしで、すべてがきれいになるように?
それから私は私が慣れている私のフォルダの拡張子にそれを置きます
それから私はコードを離れることによって隔離しようとします, ので、消化不良のものに戻ります.
私はそれがあなたのものと異なる作る理由を理解していません。

 

[nicolas74]

ラ スライド

 

[nicolas74]

申し訳ありません、このコンテンツはただ今 アメリカ英語 のみです。

 

[Gio_S]

まあ、よく、コードにまとめてまとめました。
今、私は充電まで試してみると、両親が読み込まれる必要がありますどのように充電するか!

 

[nicolas74]

スライドとdclファイルで少しだけlispプログラムを送信できますか? 私は私のインストールでテストをしたいです。 私は彼女の問題を持ってもらいたくない。 お問い合わせ

 

[Gio_S]

私は実際に鉱山の1つを比較しています。
ただし、dcl では lisp が動作する
今私は鉱山のコピーを作る

 

[Gio_S]

ここで私は、私はあなたの興味の一部を強調した lisp に "ここに......ここまで"
すると、sts を生成する ambaradan が 1 つ "ok" ならすべてあります。
とにかく、欲しがらないあなたのdclだと思う...一度に1つの事を追加して報酬をし、補償をします。 また、これらのすべての引数で私を混乱させる可能性があるので、それらをゆっくりと追加する必要があります。 dcl で静的にそれらを状態にし、あまりにも多くのパラメータを与えるようにしないでください

 

[nicolas74]

画像をアップロードできるようになったので、サークルを作らない。
彼は私を殺しています。 しかし、まともな文書が見つかりません?
あなたが私たちをリスペスに目を与える時間を持っている場合... プロブがどこにいるかわからない
お問い合わせ

 

[Gio_S]

基本的には、引数をコマンドに渡しませんか?
あなたのリスペスに何も請求しません。

コマンド: _appload
ローディング c:\cadext\isertesto.lsp
コマンド: c:ite
コマンド: ite
error: 悪用引数
(new_dialog "testocerchio" dcl_id)
(new_dialog "testocerchio" dcl_id) ではなく)
(ない) (終了)
(c:ite)

しかし、スライドは有効で、vslideの負荷と
そのスライドできれいなdclを設定し、最初のステップが配置されている。
lisp に最初の引数を渡す方法を参照してください。

 

[Gio_S]

置いた値を使用する例...

リスペクト
(action_tile "xxx" (setq usertext $value)))

dclで
: edit_box { 整列 = 中心
ラベル = "current";
値 = 33;
キー = "xxx";
お問い合わせ

と lisp で、チェックアウト
(princユーザテキスト)
彼が私が33代のdclで手渡されたものを私に書いた

 

[Gio_S]

その後、関数の宣言された引数としてユーザが置いた値を取得する方法があることがわかります。
しかし、今は機能的にはっきりと思えるので、ここまで止まりました。
それぞれのキーは、dcl から抜け出すと、それを別の連続行で宣言した変数に割り当てます。 dcl edit_boxes と同じステップ

"(action_tile "xxx" (setq usertex ... )
"(action_tile "xxxetcなど)" (setq usertextetetc...)

 

[nicolas74]

なるほど、すべてをやり遂げました。
ファイル lisp の下の姿勢に添付し、dcl ファイルを下に移動して、任意のスライドファイル(slide1.sld)と共にサポートします。

(defun c:ite )
(setq dcl_id)
(新しい_dialog "testocerchio" dcl_id)
(終了)

(setvar「cmdecho」) 1) 1
(setq x (dimx_tile "image") y (dimy_style "image"))
(start_image "image")
(fill_image 0 x y 0)
(setq パスld)
(slide_image 0 x y パスld)
(end_image) は

(action_tile "svuotatxt" (set_tile \ "xforo\"\")(set_tile \ "yforo\")(set_tile \ "diam\"\")))
(action_tile "accept" (setq xforo (get_tile \ "xforo\"))) (setq yforo (get_tile \ "yforo\")))) (setq diam (get_tile \ "diam\"))) (done_dialog 1)")
(action_tile "cancel" (done_dialog) (setq プレスボタン 0))))

(setq プレスボタン (start_dialog)))
(if = 押されたキー 1)
(プログ)
(setq posforo (strcat xforo "," yforo))))
(コマンド "_circle" posforo "d" ダイアム)
)
)
(unload_dialog dcl_id) は、
(原則)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ファイルdcl例1.dcl
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

テキスト サークル: 対話 {
ラベル = "レクリエーション掘削";
: boxed_row(ボックス)
: 編集_box お問い合わせ
キー = "diam";
ラベル = "直径: ";
幅 = 8;
スペーサー;
お問い合わせ
: 編集_box お問い合わせ
キー = "xforo";
ラベル = "quota x hole: ";
幅 = 3;
お問い合わせ
: 編集_box お問い合わせ
キー = "yforo";
label = "quota y ホール: ";
幅 = 3;
お問い合わせ
: ボタン {
キー = "svuotatxt";
ラベル = "空";
お問い合わせ
お問い合わせ
キー = "タイトル";
ラベル = "ホール";
スペーサー;
:イメージ
キー = "画像";
幅 = 50;
高さ = 20;
Fixed_width = 偽;
Fix_height = false;
aspect_ratio = 0;
色 = 0;
お問い合わせ
ok_cancel は、
お問い合わせ