关于块属性格式刷的问题

liushengri1 · 发表于 2014-10-1 11:38:50

看了masterlong大侠写的：块属性格式刷
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=80718 ，很强悍，现想把选取的单行文字刷到块属性中选取的属性值中去，要如何实现？
如下：把选取的单行文字112113114，或其它选取的其它单行文字刷到块属性中，使aaaaa变成112113114(或aaaaa变成其它的单行文字）。又或使bbbb变成112113114。总的一句话就是：把选中的块属性的属性值变成单行文字的属性值

st788796 · 发表于 2014-10-1 12:31:19

Text <-> Attrib 互刷

(defun c:tt (/ e str)
(if (and (setq e (car (nentsel "\n选择源文字: ")))
(member (xdrx_getpropertyvalue e "isA")
'("AcDbText" "AcDbAttribute")
)
(setq str (xdrx_getpropertyvalue e "textstring"))
)
(while (and (setq e (car (nentsel "\n选择目标文字: ")))
(member (xdrx_getpropertyvalue e "isA")
'("AcDbText" "AcDbAttribute")
)
)
(xdrx_setpropertyvalue e "textstring" str)
)
)
(princ)
)

Free-Lancer · 发表于 2014-10-1 12:44:02

Using DXF Code

(defun c:tt (/ e lst el olst)
(if (and (setq e (car (nentsel "\nSource Text: ")))
(setq lst (assoc 1 (entget e)))
)
(while
(and (setq e (car (nentsel "\nSelect destination object: ")))
(setq el (entget e))
(setq olst (assoc 1 el))
)
(entmod (subst lst olst el))
)
)
(princ)
)

liushengri1 · 发表于 2014-10-1 15:09:06

st788796大师的提示：; 错误: no function definition: XDRX_GETPROPERTYVALUE
Free-Lancer大师的没反应S
ource Text:
Select destination object:

liushengri1 · 发表于 2014-10-1 15:20:35

非常好！Free-Lancer大师的加载lib.VLX后可以用，但图面没有显示出来，还需要重新刷一下才能看见。如果图面大的话那就费时费力

liushengri1 · 发表于 2014-10-1 15:29:10

真是太好了，st788796的加载XDRX_API 后，能用。还不用刷新

Free-Lancer · 发表于 2014-10-1 15:43:43

liushengri1 发表于 2014-10-1 15:09
st788796大师的提示：; 错误: no function definition: XDRX_GETPROPERTYVALUE
Free-Lancer大师的没反应S
...

2015 下 Attrib 修改 Textstring 后会即刻更新，以前版本需要更新下主实体 Insert

liushengri1 · 发表于 2014-10-1 15:52:37

真是太感谢了:P，{:soso_e179:}

XDSoft · 发表于 2014-10-1 18:13:00

liushengri1 发表于 2014-10-1 15:52
真是太感谢了，

做个动画演示吧。另外，你悬赏的别忘记处理下。

明天你好 · 发表于 2014-10-1 21:21:19

Free-Lancer 发表于 2014-10-1 12:44
Using DXF Code

长老，能不能帮我写这个简单的示例呢？
http://bbs.xdcad.org/forum.php?m ... &extra=page%3D1

liushengri1 · 发表于 2014-10-3 11:32:38

悬赏的要怎么处理呀，我找不到处理的方法。我还以为论坛会帮我处理的呢

csharp · 发表于 2014-10-3 11:45:10

liushengri1 发表于 2014-10-3 11:32
悬赏的要怎么处理呀，我找不到处理的方法。我还以为论坛会帮我处理的呢

是不是这个按钮

liushengri1 · 发表于 2014-10-3 12:36:57

点它没反应呀

XDSoft · 发表于 2014-10-3 13:02:52

csharp 发表于 2014-10-3 11:45
是不是这个按钮

你看看主题帖的右下角，有没有让你处理的链接。

liushengri1 · 发表于 2014-10-3 13:08:08

没有呀，不知在那儿找

账号		自动登录	找回密码
密码			立即注册

[编程申请] 关于块属性格式刷的问题

点评

点评

点评

点评

点评

点评