[原创]★listdcl的编缉器★ 替代dcl的完美解决方案！

原地踏步

真是个好东东。感谢楼主了！

mmmmmm

还真是耳目一新，不错。许多年了，很少有这样的辅助DCL程序。这种出新还是值得提倡的。

1：不要和Protobox比，毕竟那是15年前的产品。

2：发现个BUG：加入Radio_column, Radio_row, Boxed_radio_column, Boxed_radio_row, Toggle和Text_part时，属性列表中的“KEY”给丢了。

3：回收站的设想不错，建议当回收站中有控件被选取，在属性列表中显示选中控件的属性，我不知道回收站的内容是否也能保存以便下次读取，如果不能，建议加上。

c3a139

没用过，哪位举个例子演试一下

phoenixdjq

繁体与简体在word中就可以转换的

飞诗(fsxm)

下面是控件数据集合，因为我是从cad中的help的copy过来的~
呵呵，还真的很多的属性没有收录到哦~
非常感谢[color="#61b713"]mmmmmm 指出来。
还有就是:dialog 也有width,height等属性CAD中的help中也没有收录
可能还有很多的属性没有收录到~
再就是如: cancel_button之类常用到的CAD中的help也没有收录，
在我的大意下也没有加入进去~
还有很多的控件与属性or BUG敬请大家指出，
在下一个版本中我一定加上~
回收站的功能本来可以做的与工作区一模一样的~
但为了为了节省有限的界面空间，也为了突出工作区的重点，
所在没有这样做了~不过我下一个版本会给回收站加一个“局部预览”
这样可以直观的看出回收站中控件属性了。
V1。2版的可以“多次导入”而不会覆盖现存于工作区的内容
导出回收站可以通过工作区导出~
导入到回收站也可以通过导入到工作区再移到回收站。

3. ;;=========================容器控件类===============================
4. (setq rq
5.        '
6. ((:dialog "对话框" initial_focus label value)
7.   (:boxed_row      "横框架"  alignment
8.    children_alignment children_fixed_height
9.    children_fixed_width   fixed_height
10.    fixed_width      height  label
11.    width
12.   )
13.   (:boxed_column       "竖框架"    alignment
14.    children_alignment  children_fixed_height
15.    children_fixed_width     fixed_height
16.    fixed_width       height    label
17.    width
18.   )
19.   (:row       "横排列"  alignment
20.    children_alignment children_fixed_height
21.    children_fixed_width   fixed_height
22.    fixed_width      height  label
23.    width
24.   )
25.   (:column      "竖排列"  alignment
26.    children_alignment children_fixed_height
27.    children_fixed_width   fixed_height
28.    fixed_width      height  label
29.    width
30.   )
31.   (:boxed_radio_row    "横单选框"   alignment
32.    children_alignment  children_fixed_height
33.    children_fixed_width     fixed_height
34.    fixed_width       height    label
35.    width
36.   )
37.   (:boxed_radio_column  "竖单选框"
38.    alignment        children_alignment
39.    children_fixed_height
40.    children_fixed_width fixed_height
41.    fixed_width        height
42.    label         width
43.   )
44.   (:radio_row       "横单选排列"   alignment
45.    children_alignment  children_fixed_height
46.    children_fixed_width     fixed_height
47.    fixed_width       height    label
48.    width
49.   )
50.   (:radio_column       "竖单选排列"   alignment
51.    children_alignment  children_fixed_height
52.    children_fixed_width     fixed_height
53.    fixed_width       height    label
54.    width
55.   )
56. )
57. )
58. ;;=========================独立控件类===============================
59. (setq dl
60.        '
61. (
62.   (:edit_box "编缉框"      action     alignment
63.    allow_accept edit_limit    edit_width    fixed_height
64.    fixed_width height       is_enabled    is_tab_stop
65.    label  mnemonic      value     width
66.    password_char
67.   )
68.   (:image       "图片"     action  alignment
69.    aspect_ratio color     fixed_height fixed_width
70.    height       is_enabled   is_tab_stop  mnemonic
71.    value        width
72.   )
73.   (:image_button  "图片按扭" action        alignment
74.    allow_accept  aspect_ratio color        fixed_height
75.    fixed_width  height  is_enabled     is_tab_stop
76.    mnemonic  width
77.   )
78.   (:button      "按扭"     action  alignment
79.    fixed_height fixed_width  height  is_cancel
80.    is_default   is_enabled   is_tab_stop  label
81.    mnemonic     width
82.   )
83.   (:list_box "列表框"      action     alignment
84.    allow_accept fixed_height  fixed_width   height
85.    is_enabled is_tab_stop   label     list
86.    mnemonic multiple_select      tabs
87.    value  width
88.   )
89.   (:popup_list  "下拉框"     action  alignment
90.    edit_width   fixed_height fixed_width  height
91.    is_enabled   is_tab_stop  label  list
92.    mnemonic     tabs     value  width
93.   )
94.   (:radio_button "单选按扭"    action     alignment
95.    fixed_height fixed_width   height     is_enabled
96.    is_tab_stop label       mnemonic     value
97.    width
98.   )
99.   (:slider "滚动条"      action     alignment
100.    big_increment fixed_height  fixed_width   height
101.    label  layout       max_value     min_value
102.    mnemonic small_increment      value
103.    width
104.   )
105.   (:text       "文本"   alignment   fixed_height
106.    fixed_width height   is_bold     label   value
107.    width
108.   )
109.   (:text_part
110.    "文本?"
111.    label
112.   )
113.   (:toggle      "开关"     action  alignment
114.    fixed_height fixed_width  height  is_enabled
115.    is_tab_stop  label     width
116.   )
117.   (:spacer "空白" alignment fixed_height fixed_width height width)
118. )
119. )
120. ;;=========================标准控件类===============================
121. (setq bz
122.        '
123. ("spacer_0;"   "spacer_1;"
124.   "errtile;"   "ok_only;"
125.   "ok_cancel;"   "ok_cancel_help;"
126.   "ok_cancel_help_errtile;"
127.   "ok_cancel_help_info;"
128. )
129. )

;;=========================容器控件类=============================== (setq rq        ' ((:dialog "对话框" initial_focus label value)   (:boxed_row      "横框架"  alignment    children_alignment children_fixed_height    children_fixed_width   fixed_height    fixed_width      height  label    width   )   (:boxed_column       "竖框架"    alignment    children_alignment  children_fixed_height    children_fixed_width     fixed_height    fixed_width       height    label    width   )   (:row       "横排列"  alignment    children_alignment children_fixed_height    children_fixed_width   fixed_height    fixed_width      height  label    width   )   (:column      "竖排列"  alignment    children_alignment children_fixed_height    children_fixed_width   fixed_height    fixed_width      height  label    width   )   (:boxed_radio_row    "横单选框"   alignment    children_alignment  children_fixed_height    children_fixed_width     fixed_height    fixed_width       height    label    width   )   (:boxed_radio_column  "竖单选框"    alignment        children_alignment    children_fixed_height    children_fixed_width fixed_height    fixed_width        height    label         width   )   (:radio_row       "横单选排列"   alignment    children_alignment  children_fixed_height    children_fixed_width     fixed_height    fixed_width       height    label    width   )   (:radio_column       "竖单选排列"   alignment    children_alignment  children_fixed_height    children_fixed_width     fixed_height    fixed_width       height    label    width   ) ) ) ;;=========================独立控件类=============================== (setq dl        ' (   (:edit_box "编缉框"      action     alignment    allow_accept edit_limit    edit_width    fixed_height    fixed_width height       is_enabled    is_tab_stop    label  mnemonic      value     width    password_char   )   (:image       "图片"     action  alignment    aspect_ratio color     fixed_height fixed_width    height       is_enabled   is_tab_stop  mnemonic    value        width   )   (:image_button  "图片按扭" action        alignment    allow_accept  aspect_ratio color        fixed_height    fixed_width  height  is_enabled     is_tab_stop    mnemonic  width   )   (:button      "按扭"     action  alignment    fixed_height fixed_width  height  is_cancel    is_default   is_enabled   is_tab_stop  label    mnemonic     width   )   (:list_box "列表框"      action     alignment    allow_accept fixed_height  fixed_width   height    is_enabled is_tab_stop   label     list    mnemonic multiple_select      tabs    value  width   )   (:popup_list  "下拉框"     action  alignment    edit_width   fixed_height fixed_width  height    is_enabled   is_tab_stop  label  list    mnemonic     tabs     value  width   )   (:radio_button "单选按扭"    action     alignment    fixed_height fixed_width   height     is_enabled    is_tab_stop label       mnemonic     value    width   )   (:slider "滚动条"      action     alignment    big_increment fixed_height  fixed_width   height    label  layout       max_value     min_value    mnemonic small_increment      value    width   )   (:text       "文本"   alignment   fixed_height    fixed_width height   is_bold     label   value    width   )   (:text_part    "文本?"    label   )   (:toggle      "开关"     action  alignment    fixed_height fixed_width  height  is_enabled    is_tab_stop  label     width   )   (:spacer "空白" alignment fixed_height fixed_width height width) ) ) ;;=========================标准控件类=============================== (setq bz        ' ("spacer_0;"   "spacer_1;"   "errtile;"   "ok_only;"   "ok_cancel;"   "ok_cancel_help;"   "ok_cancel_help_errtile;"   "ok_cancel_help_info;" ) )

飞诗(fsxm)

发一个附加的“树状”功能：
两种树结构中
个人推荐用“资源管理器”的结构。直观可视性强。
当然如果你习惯于DCL的结构还是可以用DCL的树结构
请保存成.lsp文档 再通过“I.导入”导入成功后会出一个提示
之后就可以看到效果。~

3. ((lambda (/ p1 p2 tree)
4.    (setq tree
5.    (dcl_get_popup
6.      "本文件内共有两种树状结构可选:"
7.      '("资源管理器树状结构" "DCL标准树状结构")
8.      nil
9.    )
10.    )
11.    (if tree
12.      (progn
13.        (cond
14.   ((= tree "DCL标准树状结构")
15.    (defun format_worklist (a / xx str2)
16.      (strcat (fsxm-string "  " (1- (length (car a))))
17.       (cadr a)
18.      )
19.    )
20.    (alert "DCL标准树状结构加载成功 ")
21.   )
22.   (t
23.    (defun format_worklist (a / xx str2)
24.      (setq str2 (cadr a))
25.      (setq xx (cond ((= str2 "}") "│└**End**")
26.       ((= str2 "") "│")
27.       (t (strcat "├" (vl-string-trim "{" str2)))
28.        )
29.      )
30.      (substr (strcat (fsxm-string "│" (1- (length (car a)))) xx)
31.       3
32.      )
33.    )
34.    (alert "资源管理器树状结构加载成功 ")
35.   )
36.        )
37.        (setq p1 (get_tile "work"))
38.        (setq p2 (get_tile "lj"))
39.        (update "work")
40.        (update "lj")
41.        (set_tile "work" p1)
42.        (set_tile "lj" p2)
43.      )
44.      (alert "加载被取消")
45.    )
46. )
47. )
48. nil

((lambda (/ p1 p2 tree)    (setq tree    (dcl_get_popup      "本文件内共有两种树状结构可选:"      '("资源管理器树状结构" "DCL标准树状结构")      nil    )    )    (if tree      (progn        (cond   ((= tree "DCL标准树状结构")    (defun format_worklist (a / xx str2)      (strcat (fsxm-string "  " (1- (length (car a))))       (cadr a)      )    )    (alert "DCL标准树状结构加载成功 ")   )   (t    (defun format_worklist (a / xx str2)      (setq str2 (cadr a))      (setq xx (cond ((= str2 "}") "│└**End**")       ((= str2 "") "│")       (t (strcat "├" (vl-string-trim "{" str2)))        )      )      (substr (strcat (fsxm-string "│" (1- (length (car a)))) xx)       3      )    )    (alert "资源管理器树状结构加载成功 ")   )        )        (setq p1 (get_tile "work"))        (setq p2 (get_tile "lj"))        (update "work")        (update "lj")        (set_tile "work" p1)        (set_tile "lj" p2)      )      (alert "加载被取消")    ) ) ) nil

vken7az2p

试过了繁体版本终于看到清楚的按钮名称了,谢谢作者的用心
发现到在存档,另存,及存成dcl上面的按钮作用,
好像是提示要开启已存在的档案存档
非是另存一个文件,
不知道是不是您当初设计的意思呢?

希望能再看到您的更新作品

mmmmmm

树状结构是个好想法，支持。不过建议在主界面增加radio_button来给用户选择显示的方式会更好。没有必要在导入时提问。

飞诗(fsxm)

正如vken7az2p说的一样

现在的只能选取存在的档案.因为只调用了lisp中getfile函数~

当然用vlisp方法调用通用对话框也是可以有~(不过兼容性不保证)

而且我现在这几个版本只是侧重于"功能上加强"没有对细节改进!

希望大家多提意见~在下一版本中能做到的一定会加上去!

特别是关于程序功能上建议我一定会重点考虑!多谢!

mmmmmm

getfile函数是可以创建新文件的，请仔细参考getfile函数的帮助。