将标签放在距离之前

datalife · 发表于 2022-7-6 07:01:26

你好
我有一个lisp来测量一条线的长度；
但我想给它贴上标签，如下所示：

现有lisp：

_____________________________
10.5

新lisp：

______________________________
L=10.5

其中L=是我需要的标签。任何人都可以帮助
我在新的Lisp程序？

谢谢
plen。lsp

Tharwat · 发表于 2022-7-6 07:17:25

你好

只需修改代码中的这一行。。。

copy

(setq tStr [color=blue][b](strcat "L= "[/b][/color] (rtos (vla-get-length (vlax-ename->vla-object cEnt)))[b][color=blue])[/color][/b]

datalife · 发表于 2022-7-6 07:22:10

再次感谢它的工作。。。。。。。。。。。塔瓦特

Tharwat · 发表于 2022-7-6 07:29:15

不客气。

Madruga_SP · 发表于 2022-7-6 07:37:31

你好
我觉得这套动作很完美。但是如果你想放苏菲克斯。
E、 g.23.63米

我应该修改哪一行？

当做

Tharwat · 发表于 2022-7-6 07:46:39

这样地。。。

copy


(setq tStr [color=blue][b](strcat [/b][/color](rtos (vla-get-length (vlax-ename->vla-object cEnt))) [b][color=blue]"m")[/color][/b])

Madruga_SP · 发表于 2022-7-6 07:57:29

谢谢，Thawart。

我真的很感谢你的帮助。

当做

Tharwat · 发表于 2022-7-6 08:02:02

随时欢迎你。

所有的功劳都归于例程的作者。

[编程交流] 将标签放在距离之前

发表回复

精选推荐