断线问题

HVAC_engineer · 发表于 2022-7-6 06:09:46

大家好，
你能帮我用LISP吗？我为用预定距离分隔的文本换行而创建的LISP。
当我将断开距离“BREAKDIST”指示2个点时，LISP工作正常。但当我要求在键盘上键入距离时，程序在第一次中断后停止。
非常感谢您的建议。
TXTLINE。LSP

MSasu · 发表于 2022-7-6 06:31:48

你的日常工作对我来说很正常；无论距离的输入方法如何，您的BREAKDIST变量都将保持一个实值，因此不会影响例程的行为。我怀疑特定输入组合中存在异常。您注意到命令行中的错误消息了吗？
然而，我可能建议寻找一个自定义线型定义。

如果您决定坚持使用您的解决方案，可能需要选中TEXTBOX内置功能；它将根据字符串的特征为您提供字符串的确切宽度。

jdiala · 发表于 2022-7-6 06:49:05

你有没有用他的代码标记管道？您可以只为图层名使用一个条件，这样就不必每次都键入。

试试这个：

[code]；；；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））（

HVAC_engineer · 发表于 2022-7-6 07:03:01

你好，jdiala，
代码很棒。这正是我需要给管道贴标签的地方。谢谢

jdiala · 发表于 2022-7-6 07:20:14

欢迎光临。我在标记管道时也使用相同的方法。试试下面这个。只需将layer1和layer2替换为层的名称，这样就不必每次运行命令时都键入文本。

[code]；；；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））（

[编程交流] 断线问题

发表回复

精选推荐