社区 › Auto Lisp › LISP使文本居中对齐

ryankevin15 发表于 2022-7-5 16:06:32

LISP使文本居中对齐

您好，有LISP使文本中间对齐吗？

ryankevin15 发表于 2022-7-5 16:20:27

并且，最好开始move命令抓取中心基点，因为接下来通常会发生这种情况，以便将其移动到对象的中间。

StevJ 发表于 2022-7-5 16:27:41

看看这个，也许是一个开始。
 
史蒂夫

iconeo 发表于 2022-7-5 16:37:55

我使用以下内容作为宏。
 
^C^C(COMMAND "LAYER" "M" "S-ANNO-TEXT" "C" "7" "" "") 'textstyle standard 'textsize $M=$(if,$(=,$(getvar,cvport),1),0.0703125,$(*,0.0703125,$(getvar,dimscale))) mtext \j bc w 0;

ryankevin15 发表于 2022-7-5 16:47:02

颠簸颠簸

Grrr 发表于 2022-7-5 17:01:57

我做的第一个联想就是来自塔瓦的代码，
从他的代码中指出这个片段：

(progn
(vla-put-attachmentpoint mt acmiddlecenter)
(vla-move mt (vla-get-insertionpoint mt) p)
)
 
后来我在我的代码中也做了这样的事情，但我会永远记得他帮助过我的那个帖子。

ryankevin15 发表于 2022-7-5 17:08:38

 


(DEFUN C:mJ ()
(progn
(vla-put-attachmentpoint mt acmiddlecenter)
(vla-move mt (vla-get-insertionpoint mt) p)
)
(princ)
)

 
谢谢你的尝试，但这看起来不起作用。

查看完整版本: LISP使文本居中对齐