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

Lisp在select上绘制圆

大家好，
有人能用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


;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。
页: [1]
查看完整版本: Lisp在select上绘制圆