[求助]：关于实体显示方式的控制

Qlin

请保存为xl.dcl

2. 
   
3. [FONT=courier new]
   
4. qaec_mselelist : dialog {
   
5.     label = "LayerIso 0.1";
   
6.     initial_focus = "bk2_list1";
   
7.     : text {
   
8.         key = "bk2_txt1";
   
9.         width = 28;
   
10.     }
    
11.     : list_box {
    
12.         key = "bk2_list1";
    
13.         allow_accept = true;
    
14.         width = 28;
    
15.         height = 15;
    
16.         fixed_height = true;
    
17.         multiple_select = true;
    
18.     }
    
19.     : row {
    
20.         fixed_width = true;
    
21.         alignment = centered;
    
22.         : button {
    
23.             label = "OK";
    
24.             key = "bk2_ok";
    
25.             mnemonic = "O";
    
26.             is_default = true;
    
27.             width = 8;
    
28.             fixed_width = true;
    
29.         }
    
30.         : button {
    
31.             label = "Cancel";
    
32.             key = "bk2_cancel";
    
33.             mnemonic = "C";
    
34.             is_cancel = true;
    
35.             width = 8;
    
36.             fixed_width = true;
    
37.         }
    
38.     }
    
39.     : spacer {
    
40.     }
    
41. }[/FONT]

<br /> [FONT=courier new]<br /> qaec_mselelist : dialog {<br />     label = "LayerIso 0.1";<br />     initial_focus = "bk2_list1";<br />     : text {<br />         key = "bk2_txt1";<br />         width = 28;<br />     }<br />     : list_box {<br />         key = "bk2_list1";<br />         allow_accept = true;<br />         width = 28;<br />         height = 15;<br />         fixed_height = true;<br />         multiple_select = true;<br />     }<br />     : row {<br />         fixed_width = true;<br />         alignment = centered;<br />         : button {<br />             label = "OK";<br />             key = "bk2_ok";<br />             mnemonic = "O";<br />             is_default = true;<br />             width = 8;<br />             fixed_width = true;<br />         }<br />         : button {<br />             label = "Cancel";<br />             key = "bk2_cancel";<br />             mnemonic = "C";<br />             is_cancel = true;<br />             width = 8;<br />             fixed_width = true;<br />         }<br />     }<br />     : spacer {<br />     }<br /> }[/FONT]

XDSoft

最初由 Qlin 发布
[B]晓东的程序（特别是开发库）真的很好!
假期有点空，受到各位的鼓励，我也重新拣起放了几年的autolisp，
试着在用户界面上作了些修改：
1、合并锁定与恢复命令
2、可以多选(这个晓东已经做好了，这几天联不上论坛... [/B]

谢谢！

还有个说明的地方，就是多选情况下，选一个层的实体，这个层的所有实体都”虚显“，防止用户重复选层。

这个功能，LISP实现和ARX实现在速度上有天壤之别，打开一个较大的图，试验下就能知道。ARX的虚显，可以用ET工具的图层工具来测试，会发现ARX的实现很快的，这也是二进制代码和解释运行的LISP的差别。

晓东工具箱现在的这个命令，虚显已经提供ARX实现的API了，xdrx_pickset_redraw，等更新工具箱后，大家可以试验下这个API。

BTW:欢迎你常来，LISP很好的。

XDSoft

最初由 Qlin 发布
[B]请保存为xl.dcl

[CODE]

qaec_mselelist : dialog {
    label = "LayerIso 0.1";
    initial_focus = "bk2_list1";
    : text {
        key = "bk2_txt1";
        width = 28;
  ... [/B]

个人觉得，选层这样的交互，还是让用户直接选实体比较直观。图层很多的情况下，对话框选，速度要比直接点实体慢些。

Qlin

关于虚显，的确lisp很慢，所有我特别用了一个表
来记录已经虚显的物体，恢复的时候只对选择的物体
进行，这样也是为了效率不得已为之。
对了，程序结尾有个(redraw)语句是多余的，能帮我去掉吗？

对话框的加入，只是让人多一种选择，可能AutoCAD和
3D MAX老是混着用，经常会用一个软件方便的地方同
另一个软件比较，这个对话框就是学了max的H键。

谢谢你帮我重新排版，发贴的时候没有仔细阅读说明 :)
这里的气氛很好，我会经常来学习。

XDSoft

最初由 Qlin 发布
[B]关于虚显，的确lisp很慢，所有我特别用了一个表
来记录已经虚显的物体，恢复的时候只对选择的物体
进行，这样也是为了效率不得已为之。
对了，程序结尾有个(redraw)语句是多余的，能帮我去掉吗？

对话框的加入... [/B]

如何排版，论坛介绍过了，去搜索下帖子。

自己可以编辑修改自己的帖子的，包括修改，删除，你点下帖子下面的“编辑”按钮，进入就知道如何做了，REDRAW的，你自己去修改吧：）

大家是互相学习！

Qlin

知道怎么修改帖子了，谢谢！