「DCL」の版間の差分

2011年6月2日 (木) 23:00時点における版

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

DCLサンプル

DCL (Dialog Control Language)はダイアログボックスを作成するものである。

ダイアログボックスは、ダイアログコントロール言語(DCL)で書かれた ASCII ファイルで定義し、主に LISP プログラムで利用する。ボタンや編集ボックスなどのダイアログボックスの要素を「タイル」と呼び、各タイルのサイズと機能は、個々のタイルの属性でコントロールする。ダイアログボックスのサイズと各部のレイアウトは、最小限の位置情報を使用して自動的に設定される。

AutoCAD の Visual LISP では、ダイアログボックスを表示するためのツールを備えている。 AutoCAD互換CADの中でAutoLISP互換を謳っているものは大抵、DCLによるダイアログ表示もサポートされている。

LISPからダイアログボックスを使用する一般的な手順

load_dialog で DCL ファイルをロードする。
new_dialog で、表示するダイアログボックスを呼び出す。（この時、new_dialog が返す値を必ずチェックし、呼び出しが失敗していないか確認する。失敗した状態で start_dialog を呼び出すと、予測できない結果になる可能性がある。）
ダイアログのタイル値やリスト、イメージなどの設定を初期化したり、action_tile タイルの挙動を設定したりする。この時使用するダイアログ関数は set_tile、mode_tile、start_list、add_list、end_list、start_image、vector_image、fill_image、slide_image、end_image、client_data_tile となる。
start_dialog でダイアログを呼び出す。この時点でコントロールがダイアログボックスに切り替わる。
（ユーザの操作によりアクション(コールバック)内からユーザ入力を処理する。get_tile、get_attr、set_tile、mode_tile などが処理される。
ユーザが終了ボタン(あるいは終了処理)を選択したときに done_dialog が呼び出される。これにより、start_dialog が値を返す。ここで、unload_dialog を呼び出し、DCL ファイルをロード解除する。

参考： LISPのダイアログボックス関数

サンプルコード

 ; ALLCONTROL.DCL 内の allct_dlg というダイアログを読み込み表示するサンプル
(defun viewdcl ( / dcl_id) 
  (setq dcl_id (load_dialog "ALLCONTROL.DCL")) 
  (if (new_dialog "allct_dlg" dcl_id) 
    (progn 
      ; ダイアログの挙動・設定を記述 ation_tile mode_tile set_tile など

      (start_dialog) ; ダイアログ表示
      (unload_dialog dcl_id)  ; ダイアログのアンロード
    ) 
    (princ "error: ALLCONTROL.DCL ファイルがみつかりません。") 
  ) 
)

DCL ファイルには複数のダイアログを保存しておくことが出来るので、メモリに余裕があればすべてのダイアログボックスを一度にロードしておき、特定のダイアログボックスを逐次 new_dialog にて呼び出すことができる。厳しいメモリ環境を考慮するなら複数の DCL ファイルを作成し、load_dialogと unload_dialog を使用してダイアログボックスのセットをメモリから極力削除した形の方法が望ましい。となっているが、今となってはダイアログで消費されるメモリなどたかが知れてるので、積極的にまとめてしまってロードしたままにして使いまわしてもいいのではないかと思う。

タイルの種類

タイルの種類は、以下の通り。

標準のボタン (サブアセンブリ)

定義済みのアクティブタイル

装飾と情報タイル

文字クラスタ

タイルクラスタ

DCLタイル・ギャラリー
boxed_row
boxed_column
button
edit_box
image
list_box
popup_list
slider
boxed_radio_column
boxed_radio_row
text
toggle

タイルの属性

タイルの属性は、以下の通り。

全体の属性
属性名	適用タイル
alignment fixed_height fixed_width height width	すべてのタイル

アクションタイルの属性
属性名	適用タイル
action is_enabled is_tab_stop key mnemonic	button; edit_box; image_button; list_box; popup_list; radio_button; slider; toggle; radio_column; radio_row

タイルクラスタの属性
属性名	適用タイル
children_alignment children_fixed_height children_fixed_width	row; column; radio_row; radio_column; boxed_row; boxed_column; boxed_radio_row; boxed_radio_column.

特定のタイルで使用する属性
属性名	適用タイル
allow_accept	edit_box; image_button; list_box
aspect_ration	image; image_button.
big_increment	slider.
color	image; image_button.
edit_limit	edit_box.
edit_width	edit_box; popup_list.
fixed_width_font	edit_box; popup_list.
initial_focus	dialog.
is_cancel	button.
is_default	button.
label	boxed_row; boxed_column; boxed_radio_row; boxed_radio_column; button; dialog; edit_box; list_box; popup_list; radio_button; text; toggle.
layout	slider.
list	list_box; popup_list.
max_value	slider.
min_value	slider.
multiple_select	list_box.
password_char	edit_box.
small_increment	slider.
tabs	list_box; popup_list.
tab_truncate	list_box; popup_list
value	text; all active tiles (except buttons and image_buttons).

互換CADでのDCL表示サンプル

以下は同じDCLファイルを各互換CADで表示したサンプルである。見て分かるように、同じDCLでも解釈が異なるため、各コントロールの左右やレイアウトは全く同じにはならない。

DCL表示の比較
AutoCAD2011
IJCAD 7
IJCADX
BricsCAD v11
GstarCAD 2010
ZWCAD2010

@@ 109行目: / 109行目: @@
 ! 属性名 !!  適用タイル
 |-
-| alignment<br /> fixed_height<br /> fixed_width<br /> height<br /> width || すべてのタイル
+| [[alignment]]<br /> [[fixed_height]]<br /> [[fixed_width]]<br /> [[height]]<br /> [[width]] || すべてのタイル
 |}
@@ 118行目: / 118行目: @@
 ! 属性名 !!  適用タイル
 |-
-| action<br /> is_enabled<br />is_tab_stop<br />key<br /> mnemonic || button; edit_box; image_button; list_box; popup_list; radio_button; slider; toggle; radio_column; radio_row
+| [[action]]<br /> [[is_enabled]]<br />[[is_tab_stop]]<br />[[key]]<br /> [[mnemonic]] || button; edit_box; image_button; list_box; popup_list; radio_button; slider; toggle; radio_column; radio_row
 |}
@@ 127行目: / 127行目: @@
 ! 属性名 !!  適用タイル
 |-
-| children_alignment <br /> children_fixed_height<br /> children_fixed_width
+| [[children_alignment]] <br /> [[children_fixed_height]]<br /> [[children_fixed_width]]
 || row; column; radio_row; radio_column; boxed_row; boxed_column; boxed_radio_row; boxed_radio_column.
 |}
@@ 137行目: / 137行目: @@
 ! 属性名 !!  適用タイル
 |-
-| allow_accept || edit_box; image_button; list_box
+| [[allow_accept]] || edit_box; image_button; list_box
 |-
-| aspect_ration || image; image_button.
+| [[aspect_ration]] || image; image_button.
 |-
-| big_increment || slider.
+| [[big_increment]] || slider.
 |-
-| color || image; image_button.
+| [[color]] || image; image_button.
 |-
-| edit_limit || edit_box.
+| [[edit_limit]] || edit_box.
 |-
-| edit_width || edit_box; popup_list.
+| [[edit_width]] || edit_box; popup_list.
 |-
-| fixed_width_font || edit_box; popup_list.
+| [[fixed_width_font]] || edit_box; popup_list.
 |-
-| initial_focus || dialog.
+| [[initial_focus]] || dialog.
 |-
-| is_cancel || button.
+| [[is_cancel]] || button.
 |-
-| is_default || button.
+| [[is_default]] || button.
 |-
-| label || boxed_row; boxed_column; boxed_radio_row; boxed_radio_column; button; dialog; edit_box; list_box; popup_list; radio_button; text; toggle.
+| [[label]] || boxed_row; boxed_column; boxed_radio_row; boxed_radio_column; button; dialog; edit_box; list_box; popup_list; radio_button; text; toggle.
 |-
-| layout || slider.
+| [[layout]] || slider.
 |-
-| list || list_box; popup_list.
+| [[list_(DCL)|list]] || list_box; popup_list.
 |-
-| max_value || slider.
+| [[max_value]] || slider.
 |-
-| min_value || slider.
+| [[min_value]] || slider.
 |-
-| multiple_select || list_box.
+| [[multiple_select]] || list_box.
 |-
-| password_char || edit_box.
+| [[password_char]] || edit_box.
 |-
-| small_increment || slider.
+| [[small_increment]] || slider.
 |-
-| tabs || list_box; popup_list.
+| [[tabs]] || list_box; popup_list.
 |-
-| tab_truncate || list_box; popup_list
+| [[tab_truncate]] || list_box; popup_list
 |-
-| value || text; all active tiles (except buttons and image_buttons).
+| [[value]] || text; all active tiles (except buttons and image_buttons).
 |}