[原创]：对话框输入文字

pxt2001

受“探索者”软件中“文字输入命令”的启发，编了一个类似的文字输入的lisp和dcl，广大CAD14拥护者一定需要这个。
命令名称：wz
功能：输入单行文字，可以记忆上次输入的字高，字宽，和前20次输入的文字！即使重新启动CAD，都能记忆。
使用说明：将附件中的tssd.eng字体文件copy到CAD字体文件夹FONTS中，将其它四个文件copy到C:\TANGENT\TCH14\LISP中，并将该C:\TANGENT\TCH14\LISP文件夹，添加到支持文件搜索路径中。重新启动CAD，加载wenzi.lsp，ok！
若将附件中的文件copy到其它文件夹中，请将程序中读写外部文件的地址(findfile "C:\\tangent\\....."改为相应的文件夹所在的地址。
例如：若将附件中的所有文件copy到“D:\文字输入”文件夹中，请将wenzi.lsp程序中的所有(findfile "C:\\tangent\\tch14\\lisp...改为(findfile "D:\\文字输入...，并将“D:\文字输入”文件夹添加到支持文件搜索路径中。
以下是附件中的DCL文件。
大家认为有用就顶一下。

演示见9楼
[php]
wenzi:dialog{
            label="文字输入";
            :boxed_column{
                      label="文字参数";
                      :row{
                          :edit_box{
                                    label="字高";
                                    key="str_h";
                                    edit_width=4;
                          }
                          :edit_box{
                                    label="字宽";
                                    key="str_w";
                                    edit_width=4;
                                    alignment=left;
                          }   
                       }
             }
             spacer_1;
             :popup_list{
                        label="回溯：";
                        key="str_list";
                        edit_width=30;
                        fixed_width=true;
                        height=1;
                        fixed_height=true;
             }
             :edit_box{
                        label="内容：";
                        key="str";
                        edit_width=30;
                        fixed_width=true;
             }
             spacer_1;
             ok_cancel;
}
            
              
                     
                                 
[/php]

陌生人

楼上的别忙灌水，先看看论坛规则

wangmolu

好

lbg1968

CAD14中用的吗，CAD2000中能不能用呢。

pxt2001

最初由 lbg1968 发布
[B]CAD14中用的吗，CAD2000中能不能用呢。 [/B]

在CAD2000平台，天正6的文字输入已经很完美了，也是对话框输入的

它山之石

　　此类程序已经不少了。不知这个有何不同？楼主最好是贴张图上来。或者把功能再说得更详细些。有哪些特色的东东。

pipi002004

不知道自己带字体是什么意思！，能解释一下么？

pxt2001

最初由 pipi002004 发布
[B]不知道自己带字体是什么意思！，能解释一下么？ [/B]

带字体是因为用tssd.eng字体，中英文联体时，不会出现英文字体偏大。因此程序中使用tssd.eng字体
演示见下

[http://www.xdcad.net/techcenter/ ... 0331204637_tech.swf

550066

不能下载

qjcpj

这个，稍有点lisp知识的都能搞！

hstea

好是好，可是我需要一个带引线的文字标注插件。可惜一直没有找到！