单线te周围的多段线

Lt Dan's l · 发表于 2022-7-5 23:57:19

有没有可能在单行文字周围绘制一条多段线，而不必绘制它？

文本：

(defun C:TEST (/ # TXT INS)
 (setq # (getstring "\nSpecify item #: "))
 (setq TXT (strcat "ITEM #:" #))
 (setq INS (getpoint "\nSpecify insertion point: "))
 (entmake (list (cons 0 "text")(cons 1 TXT)(cons 10 ins)
                    (cons 11 ins)(cons 40 2.5)(cons 72 0)))
 (princ)
)

MSasu · 发表于 2022-7-6 00:01:53

请看TEXTBOX函数-它将返回一段文本的边界框（作为对角）。

当做

Lt Dan's l · 发表于 2022-7-6 00:06:49

非常感谢。

ReMark · 发表于 2022-7-6 00:08:55

为什么要经历这么多麻烦？大急流城有一个lisp例程可以实现这一点（即，在选定的文本或多行文字周围放置一条轻量级多段线。该例程的文件名为GR_TBOX.lsp。我刚刚下载了它并尝试了一下。对我来说似乎行得通。

mdbdesign · 发表于 2022-7-6 00:13:01

那么Express Tools中的“tcircle”呢。它具有偏移选项。

ReMark · 发表于 2022-7-6 00:13:23

在这里每天学习新的东西。

mdbdesign · 发表于 2022-7-6 00:16:52

按钮宏（用于矩形）：
*^C^C选择；\tcircle；p0.3;R五、
适用于具有预设偏移（0.3）的单个和窗口选择

^C^C_文本；\\^C^C_选择；五十、 _tcircle；p0.35;R五、 _qleader公司
插入文本，用矩形包装并添加引线（可以反向操作）

Lt Dan's l · 发表于 2022-7-6 00:20:40

谢谢mdbdesign，但为什么是宏？

mdbdesign · 发表于 2022-7-6 00:25:29

好问题。习惯按按钮而不是打字。。。使用all选项比编写lisp更简单。。。我不知道。。。你的选择。

Lt Dan's l · 发表于 2022-7-6 00:28:55

我在acad帮助中找到了一个textbox示例。这帮了大忙！感谢tcircle的努力和知识。我打赌它会派上用场的。

但我发现了一些奇怪的事情。当我试图将tcircle写入lisp时，它不起作用。。

copy

(defun c:test (/ ss)
 (setq ss (ssget))
 (command "_.tcircle" ss "" 0.3 "retangles" "variable")
 (princ)
)

[编程交流] 单线te周围的多段线

发表回复

精选推荐