Lisp在select上绘制圆

Saqib_theleo · 发表于 2022-7-5 18:50:36

大家好，
有人能用lisp在选定的对象或文本上画圆吗。如果有人有或可以做这个Lisp程序，请做一个。我会很感激的。
谢谢

nod684 · 发表于 2022-7-5 19:08:44

是否要将文本括在圆上？

如果您的EXPRESSTOOLS菜单已激活。。。您可以使用TCIRCLE命令
并选择要放置圆圈的文本

你也可以从文本中调整圆的间距

Saqib_theleo · 发表于 2022-7-5 19:15:23

哦，是的，有了快速工具，这是可能的。谢谢你告诉我。
之前应该知道：o

nod684 · 发表于 2022-7-5 19:31:50

不客气，伙计！

kemalcitil · 发表于 2022-7-5 19:47:42

伙计们，我需要一个用文字代替圆圈的lisp。。与此相反。。有什么解决办法吗？

rlx · 发表于 2022-7-5 19:56:17

copy


;replace circle with text
(defun c:rcwt ( / ss i ccen th ta txt)
 (setq txt "hello" th 2.5 ta 0)
 (if (setq ss (ssget "x" '((0 . "CIRCLE"))))
   (progn
     (setq i 0)
     (while (setq e (ssname ss i))
       (setq ccen (cdr (assoc 10 (entget e))))
       (entdel e)
       (command ".text" "j" "m" ccen th ta txt)
       (setq i (1+ i))
     )
   )
 )
)

gr.R。

[编程交流] Lisp在select上绘制圆

发表回复

精选推荐