对象重命名的奇怪的问题！！！

caoyin · 发表于 2007-10-24 13:19

已知bn是当前文档中的一个匿名块的块名(比如：“*U112”)，nn是新块名(比如：“NewBlock”)

通过以下的代码执行，

   (vla-put-name (vla-item (vla-get-blocks
                              (vla-get-activedocument (vlax-get-acad-object))
                            )
                            bn
                  )
                  nn
    )

完成后，想用 refedit 命令编辑，选择时却提示不能编辑匿名块,我用PROPERTIES命令查看，重命名已经成功,用entget查看块名也没错。

entmod的方法也是如此！！郁闷。。。

更奇怪的是我用block命令另外定义其他图元为：“NewBlock”却不会提示块名存在，查看一下，一个文件中竟然有重名的两个不同的块。。。

龙龙仔 · 发表于 2007-10-25 08:09

一點也不奇怪,在r2006以上修復一下即可

caoyin · 发表于 2007-10-25 09:00

我用的是2006，用2008打开也是一样，请问版主怎么修复？

龙龙仔 · 发表于 2007-10-25 12:14

本帖最后由作者于 2007-10-25 12:26:12 编辑

http://www.xdcad.net/forum/showthread.php?s=&threadid=519029&perpage=15&display=&pagenumber=1

已知bn是当前文档中的一个匿名块的块名(比如：“*U112”)，nn是新块名(比如：“NewBlock”)

通过以下的代码执行，

   (vla-put-name (vla-item (vla-get-blocks
                              (vla-get-activedocument (vlax-get-acad-object))
                            )
                            bn
                  )
                  nn
    )

完成后

修復一下即可

caoyin · 发表于 2007-10-25 13:33

懂了，其实就是 vla-auditinfo 啊，谢谢！送花！！

alin · 发表于 2007-10-25 14:07

;;Or you can use copyobjects method
;;Or you can use copyobjects method
(defun C:AN2N (/ obj bkn)
(setq obj (vlax-ename->vla-object (car (entsel "\nSelect an anonymous block: "))))
(setq bkn (getstring "\nEnter new name: "))
(Anon2Namedblock obj bkn)
)
;;;
(defun Anon2Namedblock
(anonblkref bname / doc blks objs idx namedblkdef anonblkde)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq blks (vla-get-blocks doc))
(setq anonblkdef (vla-item blks (vla-get-name anonblkref)))
(setq namedblkdef (vla-add blks (vlax-3d-point '(0 0 0)) bname))
(setq objs (vlax-make-safearray
vlax-vbobject
(cons 0 (1- (vla-get-count anonblkdef)))
)
)
(setq idx 0)
(vlax-for obj anonblkdef
(vlax-safearray-put-element objs idx obj)
(setq idx (1+ idx))
)
(vla-copyobjects doc objs namedblkdef)
(vla-put-origin namedblkdef (vla-get-origin anonblkdef))
(vla-put-name anonblkref bname)
)

caoyin · 发表于 2007-10-26 09:12

alin 版主的程序虽然不是本帖所要的，却让我学到其他的方面的知识！！受益匪浅！

highflybir · 发表于 2007-10-26 12:19

本帖最后由作者于 2007-10-26 12:21:45 编辑

注意了，对于2006及其以上版本，无名块和普通块之间已经可以用如下方法转化了。

....

; ConvertToAnonymousBlock ()
; ConvertToStaticBlock (1)

....

龙龙仔 · 发表于 2007-10-26 12:23

注意:alin版主程序只改單一圖塊參考,不是改圖塊定義

alin · 发表于 2007-10-26 20:43

龙龙仔发表于2007-10-26 12:23:00注意:alin版主程序只改單一圖塊參考,不是改圖塊定義

呵呵，的确只是再做了一个一模一样的有名块把点选的无名块参照替换了。但如果继续把图档内所有该无名块参照都替换掉了，再把该无名块定义删除，结果是一样的。还是你的办法高明。

highflybir: 我简单试了一下ConvertToStaticBlock，好像结果块定义的原点移位了。是不是还要变换？

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