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

单线te周围的多段线

有没有可能在单行文字周围绘制一条多段线，而不必绘制它？
 
文本：
(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时，它不起作用。。
(defun c:test (/ ss)
(setq ss (ssget))
(command "_.tcircle" ss "" 0.3 "retangles" "variable")
(princ)
)
页: [1] 2
查看完整版本: 单线te周围的多段线