这个插入图案的控件应如何做？

yxp

下面是CAD的填充图案的控件，我如果用DCL应如何开发。

alin

你详细看过DCL的有关资料吗？包括帮助文件，一本好的参考书的相关章节。你的问题其实就是一个list_box, 一些image_button和四个button,关键是怎样加载(load_dialog),显示(new_dialog)，设置初值(set_tile)等等，你可能还要用到mode_tile,get_tile, action_tile等函数，所有的这些操控相关控件的相关函数的用法你都要弄清楚，才可以下一步构思怎样让它动起来，并完成要求的功能。DCL的内容不多，也正因为不多，你要弄懂基本上所有的内容才能完成基本的功能。DCL只有懂与不懂，没有懂一点点就可以编出像样的程序的。

yxp

多谢alin版主的解答，有没有范例可以参考啊。

yxp

这个算是有创意的，但是没有源码研究啊，凭自己的大脑什么时候能扣出来？

meflying

前面的那个图其实不用编程,使用图象控件菜单就可以完成,可以参考帮助文件中的自定义部分中的菜单...


后面这个也不算创意,主要是用得上...其实编程写代码不难,难的是设计这样一个程序,你要做哪些事情


如果你没有实际应用经验,即使你的编程水平相当高,你永远写不出上面这样一个程序出来,,,,

yxp

那当然,这又不是凑热闹.


我想插入一批图块,这些图块有大概有十几个目录,每个目录下又有很多分类,每类里面才是要插入的图块,所以得有个树形结构,然后像上面那样做个对话框.

ZZXXQQ

yxp楼主：您想要的对话框代码在ACAD.DCL文件中。 acad_icon: dialog {
key = "label";
initial_focus = "listbox";
: row {
: list_box {
width = 20;
height = 21;
fixed_height = true;
key = "listbox";
allow_accept = true;
}
: column {
: row {
: icon_image { key = "icon1";}
: icon_image { key = "icon2";}
: icon_image { key = "icon3";}
: icon_image { key = "icon4";}
}
: row {
: icon_image { key = "icon5";}
: icon_image { key = "icon6";}
: icon_image { key = "icon7";}
: icon_image { key = "icon8";}
}
: row {
: icon_image { key = "icon9";}
: icon_image { key = "icon10";}
: icon_image { key = "icon11";}
: icon_image { key = "icon12";}
}
: row {
: icon_image { key = "icon13";}
: icon_image { key = "icon14";}
: icon_image { key = "icon15";}
: icon_image { key = "icon16";}
}
: row {
: icon_image { key = "icon17";}
: icon_image { key = "icon18";}
: icon_image { key = "icon19";}
: icon_image { key = "icon20";}
}
}
}
: row {
: row {
spacer_0;
: row {
fixed_width = true;
: button { label = "前页&"; key = "prev"; width = 8;}
:spacer {
width = 2;
}
:button { label = "次页&N"; key = "next"; width = 8;}
}
spacer_0;
}
spacer;
ok_cancel;
}
}
其使用方法参见ACAD.MNU **image_poly
[设置平滑多义线拟合值]
[acad(pm-quad,平面拟合网格)]'_surftype 5
[acad(pm-cubic,立体拟合网格)]'_surftype 6
[acad(pm-bezr,贝奇尔拟合网格)]'_surftype 8
[acad(pl-quad,平面拟合多义线)]'_splinetype 5
[acad(pl-cubic,立体拟合多义线)]'_splinetype 6

yxp

谢了,送朵花,有LISP控制程序吗?

yxp

我用下面的LISP为何加入不了列表框的内容。
(start_list "listbox" ) (add_list "1")
(add_list "2")
(add_list "3")
(add_list "4")
(add_list "5")
(add_list "6")
(add_list "7")
(add_list "8")
(add_list "9") (end_list)

wdb

需要把dwg文件制作成幻灯片才能在图象控件上显示。