Topic: getting attributes of a DB using LISP

[soory]

I'm trying to write my first code to insert a DB and get attributes of it. I wrote this:

Code: [Select]

(vl-load-com)
(defun c:abcd (/ p1 blkname en eo dblist dbprops)
(setq blkname "prac2")
(setq p1 (getpoint "\ninsert piont:"))
(command "insert"
BlkName
1.0
1.0
1.0
0.0
)
(setq en (entsel "\nselect block:"))
(setq eo (vlax-ename->vla-object (car en)))
(setq dblist (vlax-invoke eo 'GetDynamicBlockProperties))
(princ)
)
The block inserted properly but getting attributes does not go through.
Any help would be appriciated.
 


<edit: CAB - code tags added>

[CAB]

Welcome to the Swamp. 

[alanjt]

Code: [Select]

(vlax-invoke (vlax-ename->vla-object (car (entsel))) 'GetAttributes)

[Lee Mac]

Either of these may be of help:

http://lee-mac.com/attributefunctions.html

http://lee-mac.com/dynamicblockfunctions.html