如何得到块名?

zxy9108

      我先定义(setq blocks(vla-get-blocks
         (vla-get-activedocument (vlax-get-acad-object))
       )
 number(vla-get-count blocks)
  na 0)

  然后用(SETQ BNAME (VLA-ITEM BLOCKS NA))得到一个块,然后用什么函数可以得到块名?

BDYCAD

(VLAX-VLA-OBJECT->ENAME (VLA-ITEM BLOCKS NA))

龙龙仔

(setq BLOCKS (vla-get-blocks
        (vla-get-activedocument (vlax-get-acad-object))
      )
)
(vlax-for ENT BLOCKS
  (print (vla-get-name ENT))
)