使用a/vlisp的图块重命名

csharp · 发表于 2016-10-1 07:25:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

tblobjname "block" 获取到的是类是 AcDbBlockBegin ，这个是不能用重命名的，对块定义重新 entmod ，需要获取到 AcDbSymbolTableRecord，下面的代码就是获取块定义，然后使用 entmod 重命名, 理论上应该支持匿名块互转（未测试)

游客，如果您要查看本帖隐藏内容请回复

q3_2006 · 发表于 2016-10-1 07:38:27

只用过RENAME..学习了..

q3_2006 · 发表于 2016-10-1 07:44:14

匿名块互转..ok...已测试...

q3_2006 · 发表于 2016-10-1 07:54:22

本帖最后由 q3_2006 于 2016-10-1 08:02 编辑

太神奇了大师...我这个图...两个块同名了

iLisp · 发表于 2016-10-1 07:58:38

aduit核查会自动处理的

q3_2006 · 发表于 2016-10-1 08:25:07

这两个也同名 ...

cable2004 · 发表于 2016-10-1 09:06:30

这两个也同名 ...?

HLCAD · 发表于 2016-10-1 09:24:51

回复，向大侠学习程序

newer · 发表于 2016-10-1 10:03:59

q3_2006 发表于 2016-10-1 07:54

匿名块新名字用 *U 试试。

不知道能不能改动态块的名字。

yoyoho · 发表于 2016-10-1 10:32:55

回复,学习程序!!!!

newer · 发表于 2016-10-1 10:59:26

本帖最后由 newer 于 2016-10-1 11:00 编辑

其实，没必要通过VLAX-FOR得到块的对象的，其实通过tblobjname的ENTGET数据的组码 330 ，就能直接得到块定义对象的实体名

命令: (setq o (tblobjname "block" "dd"))
<图元名: -250ae8>

命令: (entget o)
((-1 . <图元名: -250ae8>) (0 . "BLOCK") (330 . <图元名: -250af0>) (5 . "1DB") (100 .
"AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbBlockBegin") (70 . 0) (10 0.0 0.0
0.0) (-2 . <图元名: -250ad8>) (2 . "dd") (1 . ""))

命令: (cdr (assoc 330 (entget o)))
<图元名: -250af0>

下面是测试代码

(defun blk:rename (oldname newname)
(setq o (tblobjname "block" oldname))
(setq ed (entget o)
eblk (cdr (assoc 330 ed))
ed (entget eblk)
ed (subst (cons 2 newname) (cons 2 oldname) ed)
)
(entmod ed)
)

(defun c:tt ()
(if (and (setq e (ssget ":E:S" '((0 . "INSERT"))))
(setq e (ssname e 0)
ed (entget e)
)
(progn
(prompt (strcat "\n选择的块名是:" (setq oldname(cdr (assoc 2 ed)))))
(/= "" (setq newname (getstring "\n输入新块名:")))
(not (tblsearch "block" newname))
)
)
(progn
(blk:rename oldname newname)
)
(prompt "\n改名没成功，输入块名已经存在或者无效的输入。")
)
(princ)
)

q3_2006 · 发表于 2016-10-1 11:57:05

newer 发表于 2016-10-1 10:03

(vla-get-effectivename(vlax-ename->vla-object e))知道真实名称就能改...

iLisp · 发表于 2016-10-1 15:13:34

newer 发表于 2016-10-1 10:59

一直没有注意这个330，只要有了AcDbBlockTableRecord能entget的组码就应该都可以entmod

newer · 发表于 2016-10-1 18:29:33

iLisp 发表于 2016-10-1 15:13

组码330，应该是本实体的owner

命令: (setq a (tblobjname "block" "a"))
<图元名: -250bf0>

命令: (entget a)
((-1 . <图元名: -250bf0>) (0 . "BLOCK") (330 . <图元名: -250bf8>) (5 . "1BA") (100 .
"AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbBlockBegin") (70 . 0) (10 0.0 0.0
0.0) (-2 . <图元名: -250be0>) (2 . "a") (1 . ""))

命令: (setq b (xdrx_object_owner a))
<图元名: -250bf8>

命令: (setq id (xdrx_getpropertyvalue b "objectid"))
-2427896

命令: (vla-get-ownerid (vlax-ename->vla-object a))
-2427896

只是不知道VLAX知道了这个ID后，有哪个VLA函数能得到对应的VLA对象？查函数库没找到。

iLisp · 发表于 2016-10-1 19:25:09

vla 有get objectid方法，也有id->hamdle

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

[每日一码] 使用a/vlisp的图块重命名

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子