无名块改为有名块，手中的老出错

alin

这个如何？
(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

alin版主的方法固然好，我也用过，但对动态块无效

alin

You can use on a dynamic block but all the dynamic features will be lost.  As I understand a dynamic block should be anonymous but with an Effective Name.

caoyin

vla-copyobjects 是无法复制动态块的动态属性，不知有其他方法不？？

caoyin

楼上的你认错人了，alin版主不是你的飞哥

caoyin

把有名块又可以改回无名块就简单了

(vla-put-name

(vla-item

(vla-get-Blocks (vla-get-activedocument(vlax-get-acad-object)))

"BlockName")

"*U")