LISP使文本居中对齐

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

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

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

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

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

看看这个，也许是一个开始。

史蒂夫

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

我使用以下内容作为宏。

copy

^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

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

copy


(progn
 (vla-put-attachmentpoint mt acmiddlecenter)
 (vla-move mt (vla-get-insertionpoint mt) p)
)

后来我在我的代码中也做了这样的事情，但我会永远记得他帮助过我的那个帖子。

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

copy


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

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

[编程交流] LISP使文本居中对齐

发表回复

精选推荐