[求助]块说明和块DXF有关系吗？

龙龙仔

(entget
  (tblobjname
    "block"
    (cdr (assoc 2 (entget (car (entsel "\n点选匿名块: ")))))
  )
)

SWAYWOOD

哦，原来INSERT和BLOCK间还能这样访问啊

alin

I don't understand why you uploaded a drawing B without an anonymous block. It depends on how you converted your block into an anonymous one. I used the Rename Method and the following code is still working well.

(CDR (ASSOC 4 (TBLSEARCH "BLOCK" (CDR (ASSOC 2 (ENTGET (CAR
(ENTSEL))))))))

SWAYWOOD

You are right sir,the anonymous block still has its name,so we can get the information we want directly.I DID not know this before.Thanks!