[收币程序](不支持R14)无限使用，用对话框编辑、输入文字(050402 V4.5)

eachy

Button 的Label不能改变，我前面的说法有误。 还可以再改改，作成一个可变的 image_button 和 可以变的  text， image_button 中的上下箭头变化

urljit

下一版本的界面

eachy

2. 
   
3. (defun c:test (/ lst test_id sort fillimage sort_tf)
   
4.   (defun fillimage (/ dx dy)
   
5.     (if        sort_tf
   
6.       (progn
   
7.         (set_tile "sort_lable" "")
   
8.         (set_tile "sort_lable" "词库升序")
   
9.         (setq dx (dimx_tile "up")
   
10.               dy (dimy_tile "up")
    
11.         )
    
12.         (start_image "up")
    
13.         (fill_image 0 0 dx dy 4)
    
14.         (vector_image 0 dy (/ dx 2) 0 1)
    
15.         (vector_image (/ dx 2) 0 dx dy 1)
    
16.         (end_image)
    
17.         (setq sort_tf nil)
    
18.       )
    
19.       (progn
    
20.         (set_tile "sort_lable" "")
    
21.         (set_tile "sort_lable" "词库降序")
    
22.         (setq dx (dimx_tile "up")
    
23.               dy (dimy_tile "up")
    
24.         )
    
25.         (start_image "up")
    
26.         (fill_image 0 0 dx dy 4)
    
27.         (vector_image 0 0 (/ dx 2) dy 1)
    
28.         (vector_image (/ dx 2) dy dx 0 1)
    
29.         (end_image)
    
30.         (setq sort_tf t)
    
31.       )
    
32.     )
    
33. 
    
34.   )
    
35.   (defun sort (/)
    
36.     (fillimage)
    
37.     (start_list "box")
    
38.     (mapcar 'add_list
    
39.             (if        sort_tf
    
40.               lst
    
41.               (reverse lst)
    
42.             )
    
43.     )
    
44.     (end_list)
    
45.   )
    
46.   (setq lst (acad_strlsort '("做法" "常用词语"  "房间" "标题" "名称")))
    
47.   (if (not (setq test_id (load_dialog "tmp.dcl")))
    
48.     (exit)
    
49.   )
    
50.   (if (not (new_dialog "test" test_id))
    
51.     (exit)
    
52.   )
    
53.   (fillimage)
    
54.   (start_list "box")
    
55.   (mapcar 'add_list lst)
    
56.   (end_list)
    
57.   (action_tile "up" "(sort)")
    
58.   (action_tile "down" "(sort)")
    
59.   ;;(action_tile "box" "(sort)")
    
60.   (action_tile "box" "(if (= $reason 4) (sort))")
    
61.   (action_tile "accept" "(done_dialog 0)")
    
62.   (start_dialog)
    
63.   (unload_dialog test_id)
    
64.   (princ)
    
65. )
    

<br /> (defun c:test (/ lst test_id sort fillimage sort_tf)<br />   (defun fillimage (/ dx dy)<br />     (if        sort_tf<br />       (progn<br />         (set_tile "sort_lable" "")<br />         (set_tile "sort_lable" "词库升序")<br />         (setq dx (dimx_tile "up")<br />               dy (dimy_tile "up")<br />         )<br />         (start_image "up")<br />         (fill_image 0 0 dx dy 4)<br />         (vector_image 0 dy (/ dx 2) 0 1)<br />         (vector_image (/ dx 2) 0 dx dy 1)<br />         (end_image)<br />         (setq sort_tf nil)<br />       )<br />       (progn<br />         (set_tile "sort_lable" "")<br />         (set_tile "sort_lable" "词库降序")<br />         (setq dx (dimx_tile "up")<br />               dy (dimy_tile "up")<br />         )<br />         (start_image "up")<br />         (fill_image 0 0 dx dy 4)<br />         (vector_image 0 0 (/ dx 2) dy 1)<br />         (vector_image (/ dx 2) dy dx 0 1)<br />         (end_image)<br />         (setq sort_tf t)<br />       )<br />     )<br /> <br />   )<br />   (defun sort (/)<br />     (fillimage)<br />     (start_list "box")<br />     (mapcar 'add_list<br />             (if        sort_tf<br />               lst<br />               (reverse lst)<br />             )<br />     )<br />     (end_list)<br />   )<br />   (setq lst (acad_strlsort '("做法" "常用词语"  "房间" "标题" "名称")))<br />   (if (not (setq test_id (load_dialog "tmp.dcl")))<br />     (exit)<br />   )<br />   (if (not (new_dialog "test" test_id))<br />     (exit)<br />   )<br />   (fillimage)<br />   (start_list "box")<br />   (mapcar 'add_list lst)<br />   (end_list)<br />   (action_tile "up" "(sort)")<br />   (action_tile "down" "(sort)")<br />   ;;(action_tile "box" "(sort)")<br />   (action_tile "box" "(if (= $reason 4) (sort))")<br />   (action_tile "accept" "(done_dialog 0)")<br />   (start_dialog)<br />   (unload_dialog test_id)<br />   (princ)<br /> )<br />

2. 
   
3. test : dialog {
   
4. label = "Test";
   
5. : column {
   
6.   : list_box {
   
7.     key = "box";
   
8.     width = 15;
   
9.     height = 10;
   
10.     }
    
11.   : button {
    
12.     label = "搜词入库(F)";
    
13.     mnemonic = "F";
    
14.     fixed_width = true;
    
15.     }   
    
16.   : row {
    
17.     alignment = centered;
    
18.     fixed_width = true;
    
19.     : text {
    
20.       width = 8;
    
21.       height = 1;
    
22.       value = "";
    
23.       key = "sort_lable";
    
24.       }
    
25.     : image_button {
    
26.       key = "up";
    
27.       width = 2;
    
28.       color = 4;
    
29.       }   
    
30.     }
    
31.   }
    
32.   ok_only;
    
33. }
    

<br /> test : dialog {<br /> label = "Test";<br /> : column {<br />   : list_box {<br />     key = "box";<br />     width = 15;<br />     height = 10;<br />     }<br />   : button {<br />     label = "搜词入库(F)";<br />     mnemonic = "F";<br />     fixed_width = true;<br />     }    <br />   : row {<br />     alignment = centered;<br />     fixed_width = true;<br />     : text {<br />       width = 8;<br />       height = 1;<br />       value = "";<br />       key = "sort_lable";<br />       }<br />     : image_button {<br />       key = "up";<br />       width = 2;<br />       color = 4;<br />       }    <br />     }<br />   }<br />   ok_only;<br /> }<br />

urljit

谢谢eachy提供的图像按钮，我计划在对话框下面显示有关排序信息，从而可以与用户沟通。

eachy

DIY 只能是重新布局或者简化界面，注意不可以改  Key 的

ydf7332462

不会作dcL,比例除1：100，1：1最好还能其它比例

yangjr

发现一个小问题，当字高为百位时（如600）有下划线时，每编辑（如改字型等）一次文字位移一次。当字高为个位时（如6.00）正常。

xyp1964

功能强大，不错。
问题及建议：
一、点取取消键出现下面提示：
请选择文字/回车输入新字符串: quit / exit abort"quit / exit abort"
二、建议在当前文字编辑栏增加组合功能，即在常用短语中多次点取后能产生组合词。

urljit

最初由 ydf7332462 发布
[B]不会作dcL,比例除1：100，1：1最好还能其它比例 [/B]

其实不存在比例问题，想标多大的文字你可以自己选择的或定义的，只不过这两个比例的经常用到，所以程序启动后自动侦测一下，若弄太多比例恐怕要出错误了。

yangjr 说的字符移位的情况是有一点点，但好像没有那么大，恐怕你的中文字库的问题（我这里也有个hztxt有问题），换个字库看看。

2005我这里没有，也不知道从哪里下载，所以就没有测试。谁知道2005的下载地址烦劳告诉我一下。

xyp：谢谢你的光临指导，错误提示的问题是我将错误捕捉子程序临时屏蔽了，在封装的时候由于匆忙忘记了，下次改正。你说的“组合功能”我这里有，叫“追加模式”，打上对钩即可。

yangjr

上面那个是编辑两次后的结果，每一次后退距离基本上是字符串的长度。又试了试，用第一种改不同字体的结果。

zhy_yi

不知道和mdmedit的易用性比较如何

sjylzf

不知道mdmedit是什么东东？百度搜索不到。

urljit

我这里已经修改上面几位说的字符定位问题，同时修改的还有当目标图层锁定时出现的bug，修复先选择后执行问题。
等等看是否还有其他问题然后修改一并上传。

yangjr

把一级钢筋改为％％130吧，％％c作一级钢筋钢筋符号不好看。

yangjr

urljit  
你的34版(大小:0.00 KB,72次下载)文件没有传好哟。