社区 › Auto Lisp › 在定位点co上插入文本

Lee Mac 发表于 2022-7-6 15:10:20

这比需要的代码多，但具有更好的错误处理能力，并且比使用“命令调用”更快。
 
（defunc:ty（（（pt（getpoint color“\n选择点：”)（progn（SetBlkTF“ept”（（（0。 “插入”'（8“0”；

Rooster 发表于 2022-7-6 15:12:17

太棒了，差不多了。我唯一的问题是我的文本与块重叠。可以很容易地偏移文本吗？

Lee Mac 发表于 2022-7-6 15:16:20

我不太确定你的文本有多大，或者你的块有多大，所以只需根据你想要的方式改变变量
 
（defunc:ty（（5；

Rooster 发表于 2022-7-6 15:18:07

我的文本只有0.2高，但正如你所见，它与块重叠。。。。

Rooster 发表于 2022-7-6 15:22:07

这就是我想要的样子

Lee Mac 发表于 2022-7-6 15:26:16

 
（defun c:ty（/pt off）（setq off 1.2）；

Rooster 发表于 2022-7-6 15:29:23

好的-这给了我这个（见jpg），所以文本现在太远了！我的块的插入点是指向下方的三角形尖端。是的，对不起-我的意思是文本偏移到块的右侧！doh！

Lee Mac 发表于 2022-7-6 15:31:14

正如我所说，你可以改变变量来改变偏移量：
 
（defun c:ty（/pt off）（setq hoff 0.2）；

Rooster 发表于 2022-7-6 15:34:21

很 完美！谢谢

Rooster 发表于 2022-7-6 15:38:09

不过，只有一件事——它现在给出的数字只有一位小数。你改了这个吗？

查看完整版本: 在定位点co上插入文本