[分享]：单行文本输入器（无任何限制）！

bluesky1000

自从上了晓东的CAD网站，就不能自拔，开始疯狂的下载，再后面，就开始学习LISP编写程序，并且刚刚学习了DCL的编程，写了一个自己很早就想要的程序，那就是单行文本编辑器，由于是我写的第一个LISP程序，肯定还有许多不完善的地方，希望各位高手、斑竹指点。
目前的单行文本编辑器实现的功能如下：
1.可以选择宋体、楷体、黑体、隶书、仿宋五种我经常使用的字体。
2.可以从下拉框选择字高、角度、文字对齐方式输入文字。
3.也可以手工输入字高、角度来输入文字。
4.可以由颜色对话框选择想要的颜色。
5.可以通过参照文字来确定想要输入的文字的字体、字高、角度、对齐方式来决定输入文字的相应属性。
由于我的想法是对话框尽量要简洁，且能包含常用的功能，所以只是针对单行文本输入这个重点。
由于它是我的第一个程序，略收一点金币，希望见谅。
界面如下：

bluesky1000

程序文件如下：

zuicai

只限定了这几种字体太少了。

bluesky1000

我编这个程序的目的是为了使平时的工作有所帮助，因为平时用的字体也就这些，如果要增加，也很简单啊。
希望下载的朋友能提供好的意见。

ycao

看介绍程序很不错，先下来试试。

urljit

恭喜，恭喜，有同行了
我的那个程序可以给你一些建议吧？

lxyljl

楼主这几种字体都不好呀，一般我都不用的。最好是首选的几种字体可以让用户选择；角度方面，最好是换成坡度（1：？）那种形式，这个应该比角度用的还多吧？

k-777

没有处理好某些情况

bluesky1000

K-777，我在自己的CAD2002、CAD2004上面从来没有出现过这种情况，其它版本我没有试过，你用的CAD版本是多少？
既然说字体太少，那么大家就列几个常用的字体我加进去就是了，不过我自己一般常用的就这样几个。
UILJIT，大师也来捧场了，你的程序我非常喜欢，从一开始的版本就一直下载到最后的版本，没有一次拉下，不过我觉得你的界面太复杂了，所以才编了一个自己用用，但感觉应该和我有同样想法的也有，所以放在这里供大家下载，试用，也是促进自己编出更好的程序。
另外我对程序进行了一些修改，修改如下：
1.改正了在某些情况下的BUG。
2.对宽度因子可以进行设定，因为有的时候我自己只需要宽度因子为1.0，而有的时候需要一定的宽度因子。
修改后的程序见第2楼，大家注意，先把原先旧版的文件删除，然后再使用，命令为DH2。

urljit

楼主，过谦了，大师我可不敢当。
看你的程序的反应，可能使用了（command “text”），建议用entmake代替它，就能减少不同环境下出错的机会。

laoyun

为何不直接用多行文字编辑器

jiangen402

文字样式太少！输入特殊符号不便！字高和角度的对话框也不用那么占地方吧！既然是单行文字，怎么不考虑和已有单行文字对其或缩进的选项，还有行间距问题的解决！既然是编辑工具，就应该考虑一下排版问题的！而且编辑功能也太单调了一点！

bububa918

恭喜楼主，大公无私，连源程序奉献，这样字体我可以自定义。
提个建议：文字高度，角度能否向对正那样只要一个对话框
并且能记住上一次值

bluesky1000

TO jiangen402:
1.文字样式太少的话，大家可以提出，需要哪些，我可以加。
2.输入特殊符号，的确我没有考虑进去，因为我觉得论坛里已经有相关的程序做得很好了，我的目的仅仅是把单行文本做得简洁点。
3.与已有得单行文字对齐的话就不能自己随意确认文字位置了，估计大多数人还是希望能自己随意确认输入位置。
TO BUBUBA918
1.文字高度、角度只要一个对话框的话，必须取消下拉框和输入栏中的一个，这样的话也不方便呀，有时候下拉框方便，有时候又需要输入栏。
2.记住上次的设定，可以做到，但不是每一次输入仅需要一种格式呀。

nuomiyu1108

好像还挺好的吗