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

你好
 
只需修改代码中的这一行。。。
 
(setq tStr (strcat "L= " (rtos (vla-get-length (vlax-ename->vla-object cEnt))))

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

 
这样地。。。
 

(setq tStr (strcat (rtos (vla-get-length (vlax-ename->vla-object cEnt))) "m"))

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

谢谢，Thawart。
 
我真的很感谢你的帮助。
 
当做

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

 
随时欢迎你。
 
所有的功劳都归于例程的作者。
页: [1]
查看完整版本: 将标签放在距离之前