断线问题
大家好，你能帮我用LISP吗？我为用预定距离分隔的文本换行而创建的LISP。
当我将断开距离“BREAKDIST”指示2个点时，LISP工作正常。但当我要求在键盘上键入距离时，程序在第一次中断后停止。
非常感谢您的建议。
TXTLINE。LSP 你的日常工作对我来说很正常；无论距离的输入方法如何，您的BREAKDIST变量都将保持一个实值，因此不会影响例程的行为。我怀疑特定输入组合中存在异常。您注意到命令行中的错误消息了吗？
然而，我可能建议寻找一个自定义线型定义。
如果您决定坚持使用您的解决方案，可能需要选中TEXTBOX内置功能；它将根据字符串的特征为您提供字符串的确切宽度。 你有没有用他的代码标记管道？您可以只为图层名使用一个条件，这样就不必每次都键入。
试试这个：
；；；jdiala 2013年4月9日；；；（defun C:txtline（/e _line _text mid2p fixa bd d l n p p1 p2 rmd t2 tbd th txt x）（defun fixa（a）（if（and（>a（/pi 2））（ 你好，jdiala，
代码很棒。这正是我需要给管道贴标签的地方。谢谢
欢迎光临。我在标记管道时也使用相同的方法。试试下面这个。只需将layer1和layer2替换为层的名称，这样就不必每次运行命令时都键入文本。
；；；jdiala 2013年4月9日；；；（defun C:txtline（/e _line _text mid2p fixa bd d l n p p1 p2 rmd t2 tbd th txt x）（defun fixa（a）（if（and（>a（/pi 2））（
页:
[1]