创建无名块的问题

EL_JAY

一直用这里龙龙仔提供的方法创建无名块 http://bbs.mjtd.com/forum.php?mo ... =9545&replyID=37668
在低版本CAD没问题，最近需要升级到2012,报错了 发现改块名不行。望各位指点一下，谢谢！

2.       (setq BLKREF (vlax-ename->vla-object (entlast)))
   
3.       (vla-put-name
   
4. (vla-item (vla-get-blocks
   
5.       (vla-get-activedocument (vlax-get-acad-object))
   
6.     )
   
7.     (vla-get-name BLKREF)
   
8. )
   
9. "*U"
   
10.       )
    
11.       (vlax-release-object BLKREF)

      (setq BLKREF (vlax-ename->vla-object (entlast)))<br />       (vla-put-name<br /> (vla-item (vla-get-blocks<br />       (vla-get-activedocument (vlax-get-acad-object))<br />     )<br />     (vla-get-name BLKREF)<br /> )<br /> "*U"<br />       )<br />       (vlax-release-object BLKREF)

ucuc2003

这是一位老大的作品

清风明月名字

谢谢2楼楼主的分享！很有用啊。

395969

谢谢分享