文本周围的矩形

TunzaGibbo · 发表于 2022-7-5 15:45:32

这是我尝试创建的例程的最后一部分。其总体意图非常简单
它只是在矩形内添加一行文本。
正在执行TCIRCLE（Express Tools）命令，然后我必须手动接受或更改默认值。我如何编写TCIRCLE的最后一位，让它自动运行？
谢谢

  (setvar "cecolor" "6")
 (command "_.text" "Justify" "C" inspt "3.5" "0" a )
 ((c:tcircle) a "" "0.35" "" R "" "" )
(princ)
)

BIGAL · 发表于 2022-7-5 15:54:33

这可能类似于extrim，您可以从lisp运行它，但它使用不同的命令“ETRIM”

这是最简单的方法http://www.lee-mac.com/boxtext.html

TunzaGibbo · 发表于 2022-7-5 16:09:55

boxtext仍然有相同的功能。它本身运行良好，但我不知道如何将其放入我的lisp文件中，以便在最后运行。与tcircle相同

Aftertouch · 发表于 2022-7-5 16:18:22

试试这个：

copy


(defun C:TEST ( / )
(setq SS1 (ssget "L"))
(bns_tcircle SS1 "Variable" "Rectangles" nil 0.35)
(princ)
)

TunzaGibbo · 发表于 2022-7-5 16:20:01

谢谢你的回复。我试着输入你的文本，但无法正常工作。
请您在我提交的代码中输入它好吗？

Aftertouch · 发表于 2022-7-5 16:31:52

干得好：
我认为你的“text”命令行是错误的，因为你给定的参数不能在命令中。。。

copy


(defun C:test ( / oldcecolor inspt )
(setq oldcecolor (getvar "CECOLOR"))
(setvar "cecolor" "6")
(setq inspt (getpoint))
(command "_.text" "Justify" "C" inspt "3.5" "0" "")
(setq SS1 (ssget "L"))
(if (not bns_tcircle) (load "acettxt.lsp"))
(bns_tcircle SS1 "Variable" "Rectangles" nil 0.35)
       (setvar "CECOLOR" oldcecolor)
(princ)
)

BIGAL · 发表于 2022-7-5 16:40:42

对像我这样的傻瓜来说，是一种事后体验

TunzaGibbo · 发表于 2022-7-5 16:51:14

非常感谢您在触摸之后，您的代码运行得非常完美

[编程交流] 文本周围的矩形

发表回复

精选推荐