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

柔柔

楼上，我对你编的程序还算比较好感（当然用不用是另外一回事），所以再提些建议，愿听则听，不愿听就当我没说。
1，词库文件的扩展名不要用txt，而是改用LIB或DAT等别的不是一下子就能打开的格式。
2，词库文件不宜过多，甚至可以一个文件打遍天下。如何达到呢？可以在文件内分标题（比如加*代表它是标题）和内容（常用短语），读标题就加入“词库”，读内容就加入“常用短语”。

urljit

柔柔：谢谢青睐。我已经考虑过这个问题，两个问题是统一的：名称叫txt，可以让用户自己用另外的软件编辑，我不喜欢“故弄玄虚”（所谓），明明是txt却起了个深奥的名字；继而，这样用户就可以拥有自己不同种类的词库，相近专业之间也可以容易的传递词库了。

以上拙见，不知对否？

柔柔

你要这么认为，也就算了。
编程的人都知道，避免误操作是必须要考虑的。
祝你成功！再见。

bluesky1000

命令结束后，总要提示文件路径，比较麻烦，能否恢复以前版本不用提示路径，这样才比较方便。

它山之石

柔柔长老的意见很对，看看探索者的词库管理。只有一个文件CK.DAT。

urljit

又提出了新的思路和设想，没有精力去改编词库了，况且<input type=button value="50楼"onclick=window.open('http://www.xdcad.net/forum/showthread.php?s=&threadid=287504&perpage=15&display=&pagenumber=4','new5')>的那些东东也需要改变；我自己使用起来还算顺手，我就是用slt把我的lsp加载文件重新排序存盘的。至于修改还是等以后再说吧，眼下以开发与词库不相关的新功能为主。

它山之石

更新的好快。把大家讨论的最多的对话框DIY，有创意。更专心于功能的开发。支持。
一点点建议：
1、程序启动时显示“请选择文字<输入>:”可以更合理些。否则会让人以为一定要选择文字才行，可你是对话框输入文本程序。
2、程序点取消退出时的提示"quit / exit abort"宜屏蔽。
3、原来双击常用词语就可直接写入，现在似乎不行了？

xgwl

我的建议是： 能不能在其他命令调入对话框时， 再调出该程序！ 我的目的很简单，就是想用楼主的词库程序代替目前天正6.5的词库功能,目前天正6.5的词库功能太弱了，还是楼台主的好用！

举个例子:

urljit

最初由 xgwl 发布
[B]我的建议是： 能不能在其他命令调入对话框时， 再调出该程序！ 我的目的很简单，就是想用楼主的词库程序代替目前天正6.5的词库功能,目前天正6.5的词库功能太弱了，还是楼台主的好用！

举个例子: [/B]

恐怕不能如您愿，因为不知道天正的程序内部的代码（也不可能知道），所以不能象你说的那样嵌套进去，遗憾了。

cdlh

楼主的程序确实好用，2.7版又将文字输入和编辑合二为一很有创意，但在输入文字时没有以前方便了，输入命令后要回车两次才能进入文字输入对话框，图纸中的文字一多用起来感觉没有前面的版本爽，因此我和我们公司的同事现在仍在用2.6版。楼主如果能将编辑功能做成按钮放到对话框中就不需要多次回车了，且不会对功能产生影响，不知是否可行？强制转义可否加入对φ的定义（如：2个空格加数字）用输入法的软键盘输入的φ样式很难看，如果能加入对φ的单独定义那我们就可以彻底告别用％％c来输入φ了。

它山之石

再来叨两句
1、程序以修改为主还是以输入为主。我建议程序启动时是输入，在对话框上加个按钮，需要时可以在图中选取字符后修改，而不是现在一开始先选，未选到才输入。
2、可否将下划线功能再扩展一下，以方便在图中写入剖切号。（如我附图所示）
3、增加字符串沿某根线对齐书写的选项。适用于写斜着的字。

urljit

谢谢大家的支持和建议。

也有让我感到遗憾的事情：
居然没有人做出个我让大家DIY的对话框来看看。

如楼上几位所述，增加按钮，增加到什么地方？也是问题。

还有他山之石的剖面号、沿线对齐功能都需要对话框的支持。

你们倒是给出个DIY的对话框呀！

至于"加入对φ的单独定义"是什么含义我不清楚，其实，对字符的定义是字库的事情，我的程序是直接调用字库的，所以叫“转义”，这里不能定义字符，但可以做到两个空格加数字＝Φ数字，这恐怕还得看其他人的意见；那个％％c是acad自古就有的，恐怕想告别都不可能。

它山之石

　　1、你在50楼提供的DCL文件中并没有2.8版所说的“再选再编”按钮。建议将DCL文件与程序一起打包，在对话框标题栏最好注明程序版本号。
　　2、你选择时将我的字体颜色给改了，取消时也不给恢复（有没有借鉴我的那个程序使字体颜色每次不同？）。见图
　　3、取消时还是有"quit / exit abort"的提示。而且用DDMODIFY编辑了插入的字符后再运行SLT就出现"quit / exit abort"的错误。不知是否与我自己定义的什么冲突。你再测试一下吧。
　 4、插入特殊字符不错。但有些可能需要字库支持。最好提供字体形文件或其它保证能正确显示的方法。包括让用户自己定制的功能。

urljit

最初由 它山之石 发布
[B]　　1、你在50楼提供的DCL文件中并没有2.8版所说的“再选再编”按钮。建议将DCL文件与程序一起打包，在对话框标题栏最好注明程序版本号。
　　2、你选择时将我的字体颜色给改了，取消时也不给恢复（有没有借鉴我的?.. [/B]

一、关于dcl，是我忘记上传了，sorry。再次上传包括dcl，也可以自己增加：[PHP]            :button{
                label = "再选再编(&E)";
                key = "re_edit";
                fixed_width = true;
            }
[/PHP]下面的是已经包含了dcl的slt，一楼有不包含的，50楼附件已经更新。
二、颜色我已经采取措施了，回复原来的颜色，至于每次变色，我不打算采用，因为用户可能弄不清到底是哪一个了。
三、error的处理我是这样定义的：

2. (defun slterr (s)
   
3.   (if (/= s "Function cancelled")
   
4.     (princ)
   
5.     (princ ".")
   
6.   )
   
7.   (setq *error* olderr)
   

(defun slterr (s)<br />   (if (/= s "Function cancelled")<br />     (princ)<br />     (princ ".")<br />   )<br />   (setq *error* olderr)<br />

至于与ddmodify的问题，我觉得可能还是变量名子的重复造成的。
我这里列出我的变量表：

1. 内部变量        bt_txt_len SEL newlaynm oldcolor temcolor etype plw idx_lst
   
2.                       distx          disty            forcet    slt_editp
   
3.               elist        BT_PT              hjnum     index
   
4.               DOWHAT        FILE0          stlnm            hz              i
   
5.               crtnum        RDLN          STLLST     STLNM_LST
   
6.               IMPTP        SC_NUM          UDLN            USU_LST   sortab
   
7.               ename        ha          va            bt_pt2    run
   
8.               el        n          lft_pt    sel1      elist
   
9.               pt_lb        pt_lt          pt_rb            pt_rt     laynm_lst
   
10.               laylst        laynm_lst laynm_crt laynm     filenm
    
11.               filenm2        ifrtn
    
12. 
    
13. ; === 顶层统计:
    
14. ; 全局变量: (BT_HI BT_TXT ELIST ENAME HA LAYNM OLDCOLOR PT_RB SLT_GKB STLNM_CRT UDLN VA)
    
15. ; 函数定义 (带参数): ((MODFI_TXT . 0))
    
16. .
    
17. ; === 顶层统计:
    
18. ; 全局变量: (BT_HI BT_TXT ELIST ENAME ETYPE HA IFRTN
    
19. LAYNM_CRT OLDCOLOR SLT_EDITP SLT_GKB STLNM_CRT
    
20. TEMCOLOR VA)
    
21. ; 函数定义 (带参数): ((SLCT_TXT_TIQU . 0))
    
22. .
    
23. ; === 顶层统计:
    
24. ; 全局变量: (BT_PT DISTX DISTY PT_LB PT_LT
    
25. PT_RB PT_RT)
    
26. ; 函数定义 (带参数): ((TXT4PT . 1))
    
27. .
    
28. ; === 顶层统计:
    
29. ; 全局变量: (BT_TXT)
    
30. ; 函数定义 (带参数): ((TRANSTXT . 1))
    
31. .
    
32. ; === 顶层统计:
    
33. ; 全局变量: (*ERROR* OLDERR)
    
34. ; 函数定义 (带参数): ((SLTERR . 1))
    
35. .
    
36. ; === 顶层统计:
    
37. ; 全局变量: (BT_HI BT_TXT ELIST HA HJNUM IMPTP LAYNM
    
38. SEL1 SLT_GKB STLNM_CRT UDLN USU_LST VA)
    
39. ; 函数定义 (带参数): ((MKTXT . 2))
    
40. .
    
41. ; === 顶层统计:
    
42. ; 全局变量: (BT_HI BT_PT DISTX ELIST ENAME LAYNM PLW
    
43. PT_LB PT_RB SC_NUM SEL1 SLT_EDITP SLT_GKB STLNM_CRT)
    
44. ; 函数定义 (带参数): ((DR_UDLN . 0))
    
45. .
    
46. ; === 顶层统计:
    
47. ; 全局变量: (UDLN)
    
48. ; 函数定义 (带参数): ((UD . 0))
    
49. .
    
50. ; === 顶层统计:
    
51. ; 全局变量: (IMPTP)
    
52. ; 函数定义 (带参数): ((IM . 0))
    
53. .
    
54. ; === 顶层统计:
    
55. ; 全局变量: (FILE2 FILENM2 IDX_LST RDLN)
    
56. ; 函数定义 (带参数): ((FL->LST0 . 0))
    
57. .
    
58. ; === 顶层统计:
    
59. ; 全局变量: (FILE0 FILENM FILENM2 RDLN USU_LST)
    
60. ; 函数定义 (带参数): ((FL->LST . 0))
    
61. .
    
62. ; === 顶层统计:
    
63. ; 全局变量: (HA VA)
    
64. ; 函数定义 (带参数): ((JLIST_ACT . 1))
    
65. .
    
66. ; === 顶层统计:
    
67. ; 全局变量: (EL I3 IMPTP SEL1 UDLN)
    
68. ; 函数定义 (带参数): ((IF_DEL . 0))
    
69. .
    
70. ; === 顶层统计:
    
71. ; 全局变量: ($VALUE *ERROR* BT_HI BT_TXT CRTNUM FILE0
    
72. FILE1 FILENM FILENM2 FORCET GROUPNAME HJNUM I
    
73. IDX_LST IDX_NUM J JLIST JST_NUM LAYNM LAYNM_LST
    
74. NEW_LST OLDERR PLW RDLN SC_NUM SEL0
    
75. SLTERR SLT_GKB SORTAB STLNM_CRT STLNM_CRTNUM
    
76. TXT_1 USUAL_NUM USU_LST)
    
77. ; 函数定义 (带参数): ((C:SLT . 0))
    

复制代码

四、关于字符的形、字体定义，从前倒是做过，但超出了这次的讨论范围，还是算了吧。

52CAD

不错的小程序。不过，这应该是一个单行文字编辑程序吧？楼主怎么起了一个"单行文字标注"的名称呀？运行程序，出现的不是文字输入框，而是一个文字选框，进入到文字输入界面完成文字的输入，再运行，出现的又是文字选框，一看命令行提示：请选择文字/回车输入新字符串，我晕~~~~~~  既然界面中已有了"再选再编"，我看保留启动程序时的"选择文字"已无必要。不但可以加快输入速度还可以少用N次回车键，何乐而不为？(使用ACAD十多年的经验总结：操作步骤越少越好啦)
如果这是一个"文字编辑工具"不支持的东西太多,功能太弱,不应该加"精",如果这是一个"单行文字输入工具",有创意,已比较优秀了,全面超越了天正的文字输入,值得加"精"推荐!

发现一个BUG：框选文字但不进行编辑，按ESC退出，同样的步骤连续进行几次程序会进入死循环，命令行不断出现 _slt "quit / exit abort"

我说话直直的，有冒犯之处还请见谅。