多行文字对齐lisp

gmmdinesh · 发表于 2022-7-5 17:07:50

你好每个人

我需要一个简单的lisp对齐文本或多行文字。
过程如下：（选择对象->指定对齐点->然后选择点并拉伸，可由用户自定义。
（文本垂直自动对齐，对齐也保持在左侧）。

非常感谢您的帮助。
提前感谢
Dinesh P

BIGAL · 发表于 2022-7-5 18:01:18

这是最简单的


(defun C:T2pts ( / pt1 pt2 ang tobj vlobj)
(SETQ PT1 (GETPOINT "\nPick 1st pt" ))
(SETQ PT2 (GETPOINT "\nPick 2nd pt" ))
(setq ang (angle pt1 pt2))
(SETQ TOBJ (ENTSEL "\nPick Text"))
(setq vlobj (vlax-ename->vla-object (car tobj)))
(vlax-put-property vlobj "Rotation" ang)
)
(C:T2pts)

gmmdinesh · 发表于 2022-7-5 18:36:10

嗨，比格尔，
此lisp旋转文本。
但我不需要它，我需要Lisp程序的形象，因为它出现在。
我在办公室里使用的是2014版Autocad，2014版中没有文本对齐命令。
因此，我只需要选择对象和点击对齐点和拉伸lisp可以设置我的喜好

当做
Dinesh P

[编程交流] 多行文字对齐lisp

发表回复

精选推荐