DCL对话框控件属性一览表
本帖最后由 1291500406 于 2019-3-17 21:44 编辑属性释义及常用值相关控件
action链接一个LISP函数，响应鼠标或键盘动作button,edit_box,image,image_button,list_box,popup_list,radio_button,slider,toggle
alignment控件布局，值：left,centered,right,top,centered,bottom所有控件
allow_accept控件是否相应ENTER键，值：true,falseedit_box,image_button,list_box
aspect_radio控制控件的宽高比image,image_button
big_increment滑动条最大步进值slider
childre_alignment容器里控件内部控件布局boxed_column,boxed_radio_column,boxed_radio_row,boxed_row,column,radio_column,radio_row,row
child_fixed_height全部控件
child_fixed_width全部控件
color图像、背景、矢量快的颜色image，imange_button
edit_limit编辑框最大允许字符数，默认值132edit_box
edit_width编辑框宽度edit_box,popup_list
fixed_height全部控件
fixed_width全部控件
fixed_width_font列距和行距不变情况下调整字符间距list_box,popup_list
height控件最小高度全部控件
initial_focus确定对话框内被聚焦的控件dialog
is_bold字体是否粗体显示text
is_cancel是否相应ESC按键button
is_default是否相应ENTER按键button
is_enabled控件是否有效button,edit_box,iamge,image_button,list_box,popup_list,radio_button,toggle
is_tab_stop控件是否接受TAB聚焦button,edit_box,iamge,image_button,list_box,popup_list,radio_button,toggle
key控件关键字button,edit_box,iamge,image_button,list_box,popup_list,radio_button,slider,text,toggle
label控件标签boxed_column,boxed_radio_column,boxed_radio_row,boxed_row,button,dialog,edit_box,list_box,
popup_list,radio_button,slider,text,text_part,toggle
layoutslider控件的方向slider
list初始值list_box,popup_list
max_valueslider最大值slider
min_valueslider最小值slider
mnemonic控件助记符button，edit_box,image,list_box,popup_list,radio_button,slider,toggle
multiple_select可否多选list_box
password_char用户输入屏蔽字符edit_box
small_incrementslider控件最小步进值slider
tabslist_box,popup_list
tab_truncatelist_box,popup_list
value初始值dialog,edit_box,imange,list_box,popup_list,radio_button,slider,text,toggle
width控件最小宽度全部控件
常用预定义控件包括ok_only,ok_cancel,errtile,ok_cancel_help,ok_cancel_help_errtile,ok_cancel_help_info
例子:
bb:dialog{ }
:spacer { }
:text { }
:text_part{ }
:edit_box { }
:button { }
:toggle{ }
:radio_button{ }
: slider{ }
:popup_list{ }
:list_box { }
:image { }
:image_button{ }
ok_only;
ok_button;
help_button;
cancel_button;
info_button;
ok_cancel;
ok_cancel_help;
ok_cancel_help_info;
ok_cancel_help_errtile;
:row{ }
:column{ }
:boxed_column{ }
:boxed_row{ }
:boxed_radio_row{ }
:boxed_radio_column{ }
:concatenation{ }
spacer_1;
edit_width = 1;
errtile;
width = 1;
height = 1;
fixed_height = true ;
fixed_width = true ;
fixed_width_font=true;
horizontal_margin = none;
vertical_margin = none;
label = 必强MP3;
key =bb;
color = -15 ;
aspect_ratio = 1 ;
alignment=left;
alignment=right;
alignment=centered;
is_cancel = true;
allow_accept = true;
value=50;
min_value = 1;
max_value = 100;
small_increment = 1;
big_increment = 1;
layout=vertical;
文字组码
组码 说明
100 子类标记 (AcDbText)
39 厚度（可选；默认值 = 0）
10 第一对齐点（在 OCS 中）
DXF：X 值；APP：三维点
20, 30 DXF：第一对齐点的 Y 值和 Z 值（在 OCS 中）
40 文字高度
1 默认值（字符串本身）
50 文字旋转角度（可选；默认值 = 0）
41 X 相对缩放比例宽度（可选；默认值 = 1）
使用拟合类型的文字时，该值也将进行调整。
51 倾斜角（可选；默认值 = 0）
7 文字样式名（可选；默认值 = 标准）
71 文字生成标志（可选；默认值 = 0）：
2 = 文字反向（在 X 轴方向镜像）
4 = 文字倒置（在 Y 轴方向镜像)
72 文字水平对正类型（可选；默认值 = 0）整数代码（非按位编码）
0 = 左对正；1 = 居中对正；2 = 右对正
3 = 对齐（如果垂直对齐 = 0）
4 = 中间（如果垂直对齐 = 0）
5 = 拟合（如果垂直对齐 = 0）
详细信息请参见组 72 和 73 整数代码表
11 第二对齐点（在 OCS 中）（可选）
DXF：X 值；APP：三维点
只有当 72 或 73 组的值非零时，该值才有意义（如果对正不是基线对正/左对正）
21, 31 DXF：第二对齐点的 Y 值和 Z 值（在 OCS 中）（可选）
210 拉伸方向（可选；默认值 = 0, 0, 1）
DXF：X 值；APP：三维矢量
220, 230 DXF：拉伸方向的 Y 值和 Z 值（可选）
100 子类标记 (AcDbText)
73 文字垂直对正类型（可选；默认值 = 0）：整数代码（非按位编码）：
0 = 基线对正；1 = 底端对正；2 = 居中对正；3 = 顶端对正
详细信息请参见组 72 和 73 整数代码表
下表详细说明了组码 72（水平对齐）和组码 73（垂直对齐）。
组 72 和 73 整数代码
组 73
组 72
0
1
2
3
4
5
3（顶端对正） 左上 中上 右上
2（居中对正） 左中 正中 右中
1（底端对正） 左下 中下 右下
0（基线对正） 左 中心 右 对齐 中间 拟合
(if (and (= (cdr (assoc 72 ent)) 0) (= (cdr (assoc 73 ent)) 0) )
(entmod (setq ent (subst(cons 10 pt)(assoc 10 ent)ent)))(entmod (setq ent (subst(cons 11 pt)(assoc 11 ent)ent))))
坐个沙发:P:P 这个是写对话框必备的属性表，怎么会没用 学习了我用DCL做窗口还是很有用的 怎样调整列表list_box的行矩 极好的学习了 谢谢楼主分享 lifuq1979 发表于 2019-6-16 22:39
怎样调整列表list_box的行矩
我是加空行（空字符串），用一个函数控制点击空行无效就行
页:
[1]
2