Question

autolisp，功能要求完善一下，我的lisp功能是：选择一条直线，在直线上标注文字（如6500-3-1010)

（以上数字对应6500为直线的长度，3表示为1830×3，1010表示为6500-（1830×3）=1010。1830为常数），标注文字的位置为离直线的端点（选择位置最近的点，如果默认的话，有的时候文字会颠倒了）550，离线距离为50；文字样式为（Text），图层为（A001），高度为300；直线长度小于等于3660时，只标注长度（如1829）；

要完善的地方：1.选择直线修改为（选择直线或两点）（如果我选择“两点”，第二次使用保持默认“两点”，我选择“直线”，第二次使用保持选择“直线”）；2.文字样式里面增加样式：文字高度：300，宽度因子：150；倾斜角度：0，图层为：A001，文字样式：Text（因为需要Text里面的Romant字体）。（原来的程序是根据AutoCAD里面的当前文字样式来的，所以文字的宽度因子会产生变化）；3.文字的放置位置有的时候会颠倒，（直线先右再左，文字就颠倒了；希望可以完善）；具体程序：http://zhidao.baidu.com/question/574062926.html?quesup2&oldq=1
1.说明一下，编辑的时候，要新建图层A001，新建字体样式Text；否则运行程序会出错。
2.补充说明一下；文字有的时候会颠倒，刚才测试了一下，不是直线划线方向先后的问题，什么原因不是很清楚，不过只要我把直线镜像一下，就解决，不知道原因在什么地方。

若以下回答无法解决问题，邀请你更新回答

Answer 1

这个程序我在写的时候就想过关于图层和文字样式的问题，我以为你指定的图层和文字样式应该是图档中有现成的，所以就没有去定义了。我完善一下再补充上来吧

追问

如果Text不是当前样式，就会出现 宽度因子产生变化，所以还是要定义才可以。在文字样式里面，文字的高度为1；宽度因子为0.5，倾斜角度为0；

追答

程序修改好了，加入了你说的选点模式，并记忆当前的设定，决定下次是选点还是选线。

若是没有图层A001则自动添加该层，文字样式也是一样，输出的文字宽度和斜度不会变化了，另外你说的宽度因子150是指相对于300字度而言，宽度为一半么？如果是的话可修改程序中我标示了的地方，将1改为0.5就行了。

半于文字有时颠倒这个，我暂时没有碰到过，所以不知道是哪里出了问题，你确认下是否是因为UCS座标系的问题？使用<世界>试下呢？

或者你剪取一部分你标示会出现颠倒的文字的图面放附件里吧，我看下从直线上能不能发现什么

追问

不知道为什么，我的提问没有办法上传附件；这个程序使用了一下，指定两点的时候，没有办法镜像，不知道能不能完善？
文字颠倒了，毕竟极小数，这个先用，用的多了，到时候说不定会发现什么，再向你提问完善；可能是这个文件由于（天正）转换为T3格式出现的错误引起的；那个我修改了1为0.5，完全达到我的要求了，这样，我使用这个程序的时候，不需要先去新建图层及字体样式了，非常好的完善。

追答

嗯，刚忘了修正选点下的镜像功能了，现在可以了。

追问

你的程序已经增加了新建图层的功能，那么能不能再增加图层的定义：颜色白，线型为continuous；线宽0；（当然如果有这个图层就不新建图层，图层有修改也不修改它，只有新建图层的时候才这样定义），这样的话，可以说这个程序达到完美了。

追答

嗯，那试试这个吧。