将对象设为块

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

大家好
当我画箭头、线条和文字时，我想把它们变成一个块
我想在块中添加以下属性。如图所示。
有什么线索吗？谢谢

登录/注册后可看大图

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

我知道以下代码可以用于构建块和插入块。但是如何将“移动”点添加到块中，并使块中的文本可以编辑？

copy

(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)
         ))