求教 (entmake 创建《属性》的问题

张大锤

(entmake (list '(0 . "INSERT")(cons 2 "a1")(cons 8 lay)(cons 10 b18a)))
创建一个INSERT 名字：a1  图层：lay=1F平面 位置：b18a   （也可以创建62 颜色什么的）

块的属性 用(entget (car (entsel))) 是读不出来属性的
要用这个才能读出来  
(defun c:xxx()
(vl-load-com)
(setq  entbatt  (entsel "\n選擇 "))
(setq entbatt (car  entbatt))
(setq wattvla (vlax-ename->vla-object entbatt))
(setq attlst  (vlax-safearray->list  (vlax-variant-value (vla-getattributes wattvla))))
(setq mm 0)
(repeat (length attlst)
(setq ent  (nth mm attlst))
(setq enttxt  (vla-get-TextString ent))
(princ enttxt)
(setq mm (1+ mm))
)
(princ)
)


问题：
(command "-insert" "a1" b18b "" "" "" "13" "马桶" )
请问这个格式 要怎么用(entmake 创建块属性 ：  "13" "马桶"  

顺便问一下 读块属性 有没有比上面更简练的方法

张大锤

因为创建大量的 插入块
(command  很卡           是这个函数 本身就很占用内存吗？
(entmake 运行顺畅