社区 › Auto Lisp › 文本框居中-来自ENTS

Lee Mac 发表于 2022-7-5 19:06:31

太好了，谢谢你的反馈yathishkumar。

Happy Hobbit 发表于 2022-7-5 19:10:39

是否可以将其更改为文本/多行文字在两个选定点之间居中？
 
有时，需要将*文本居中于块或非矩形多边形的一部分，甚至仅在两个实体之间。
 
我确实试图找出move命令的第二部分在哪里，但我很困惑
 
提前感谢某人
 
-哈里

Lee Mac 发表于 2022-7-5 19:11:38

 
没有时间测试，但请尝试更改：
            (setq p (LM:ssget "\nSelect polyline: "'("_+.:E:S" ((0 . "LWPOLYLINE")))))
收件人：
            (setq p (getpoint "\nSpecify 1st point: "))
         (setq q (getpoint "\nSpecify 2nd point: " p))
 
这是：
6
收件人：
7

Happy Hobbit 发表于 2022-7-5 19:15:41

李，你是个天才
 
非常感谢，lisp涵盖了需要将*文本放入实体MC的所有实例

Lee Mac 发表于 2022-7-5 19:20:07

谢谢你快乐的霍比特人，我很高兴它能帮上忙！

Happy Hobbit 发表于 2022-7-5 19:21:40

这很奇怪，我确信昨天的效果很好。在使用了几次修改后的lisp之后，我注意到了一个小错误。
 
李，如果你有空的话。。。。

Lee Mac 发表于 2022-7-5 19:23:58

您正在读取文本对齐点的坐标还是文本对象边界框的中心？
 
请注意，程序是基于边界框的中心定位文本，而不是基于文本对齐点。

Happy Hobbit 发表于 2022-7-5 19:27:23

引线位于对齐点上。。
 
我只是在想，lisp根据文本实体的整体大小计算文本的中心，当然插入点可能与文本的中心不同，这取决于字符串中的字符。

ILoveMadoka 发表于 2022-7-5 19:32:28

李。。。
 
我刚刚意识到，在尝试了这一套之后，我再也没有回来过。。。
 
就像你所有的东西一样，它工作得很好！
 
 
为了这一点，以及你多年来帮助我的一切。。。
 
谢谢您！！

Lee Mac 发表于 2022-7-5 19:35:13

没问题，伊洛维马多卡-非常欢迎你！
 
这个程序写起来很有趣，所以我很高兴它也被证明是有用的！

查看完整版本: 文本框居中-来自ENTS