blueshake 发表于 2022-7-6 09:57:49

将对象设为块

大家好
当我画箭头、线条和文字时，我想把它们变成一个块
我想在块中添加以下属性。如图所示。
有什么线索吗？谢谢
http://www.ikaca.sh.cn/attachment/201011/13/1745_1289656077U4mQ.png

blueshake 发表于 2022-7-6 10:04:08

属性包括：
1.当我移动文本时，下划线将移动。
2.当我编辑文本时，下划线的长度可以根据文本的长度进行更改。
3.与1相同，当我移动下划线时，文本可以移动到。
 
实际上，它类似于autocad中的mleader。

Lee Mac 发表于 2022-7-6 10:07:26

为什么不使用多重引线（可能带有一个块作为注释），或者我遗漏了什么？

blueshake 发表于 2022-7-6 10:08:15

mleader是一种选择。但它受制于mleader的风格？？？
在机械制图中，有许多情况需要对“倒角角度”进行尺寸标注。
如果我想将mleader与lisp命令一起使用，我应该怎么做？
例如
（命令“_.mleader”…；下面是什么？

blueshake 发表于 2022-7-6 10:14:05

我知道以下代码可以用于构建块和插入块。但是如何将“移动”点添加到块中，并使块中的文本可以编辑？
(entmake (list
         (cons '0 "BLOCK")
         (cons '2 "*U")
         (cons '70 1)
         (cons '10 ip)
         ))
         (setq th (setq tmp le))
         (while (setq tmp (entnext tmp))
         (entmake (entget tmp))
         )
         (setq tmp (entmake (list (cons '0 "ENDBLK"))))
         (while (setq th (entnext th))
         (entdel th)
         )
         (entdel le)
         (setq le nil)
         (entmake (list
         (cons '0 "INSERT")
         (cons '2 tmp)
         (cons '10 ip)
         ))

alanjt 发表于 2022-7-6 10:15:02

可以使用QLeader并附加到块。

blueshake 发表于 2022-7-6 10:19:02

 
@alanjt公司
对不起，我不太明白你的意思。
你能给我看看代码吗？谢谢

alanjt 发表于 2022-7-6 10:22:37

如。
8703。。。。。。。。。。。。

blueshake 发表于 2022-7-6 10:25:49

@李
我注意到你在这里写了一个惊人的Lisp程序。
 
你能改进这个lisp，使整个东西（直线圈文本）成为块吗。并且可以编辑。我是说，当我移动线条时
圆圈（文本）可以一起移动。而我改变文字的大小，文字之外的圆圈可以自动放大吗？？？

Lee Mac 发表于 2022-7-6 10:29:21

 
谢谢BlueShake-但这是一个很旧的程序，代码很糟糕-我在这里更新了一点。
 
但实际上，对于想要实现的目标，最好使用动态块。事实上，我相信已经有预设的动态块可以通过默认的工具选项板使用，它将完全满足您的需要-查看Anotation选项卡下。
 
李
页: [1] 2
查看完整版本: 将对象设为块