[求助]：LISP程序中如何判断一个插入的图块中含有几个定义的属性

它山之石

　　LISP程序中如何判断一个插入的图块中含有几个定义的属性，主要是在插入时利用COMMAND命令给属性赋值，需要根据属性个数来写。

梦断江南

vla方法：getattributs
vl：找到insert实体，while  entnext 为属性实体

qjcpj

一段小程序，cnt为插入的图块中含有的属性数。
(defun cal_number        (blk / dxf_search_blk ent)
        (setq dxf_search_blk (tblsearch "block" blk))
        (if        dxf_search_blk
                (progn
                        (setq cnt 0)
                        (setq ent (cdr (assoc '-2 dxf_search_blk)))
                        (while ent
                                (if        (= (cdr (assoc '0 (entget ent))) "ATTDEF")
                                        (setq cnt (1+ cnt))
                                )
                                (setq ent (entnext ent))
                        )
                )
        )
)

它山之石

　　首先要感谢楼上的解答。
　　也许我没说清楚，我的意思是如何判断一个“将要插入”的图块中含有几个属性值。而不是图中已有块的属性个数。
　　比如我要插入本图的图形文件中设定了四个属性值。我的LISP命令为以下代码：
[php]
  (command ".insert" fn pt rqz_bj "" "" A B C D)
[/php]
如果只有三个，上述代码会出错。就需要写成以下的形式：
[php]
  (command ".insert" fn pt rqz_bj "" "" A B C)
[/php]

qjcpj

如何判断一个“将要插入”的图块中含有几个属性值,这个问题我以前编程时曾碰到过。
1.最初时是这样解决的，假如“将要插入”的图块名称为bk，该图块位于"D:\\PLOT\\bk.dwg"文件中，可以在我上传的函数cal_number 开始处输入以下判断
(if(null (tblsearch "block" "bk"))
(command "insert" "D:\\PLOT\\bk.dwg" ^ c)
)
然后利用cal_number函数计算出所含属性数cnt。最后在程序中使用purge命令将虚拟插入的块清除。
2.第二种办法为使用emtmake函数定义一公用模板，程序较复杂。在插入带属性值的块时不会出错。
3.第三种办法最简单，就是在插入图块前将系统变量"attreq"改为0，程序结束时再将"attreq"还原，这种方法在插入带属性值的块时也不会出错。

panzhongw

好办法！又学了一招，不过我一直就认为编程使用属性块的人应该知道块中有几个属性和其顺序，否则使用属性块干吗呢？

urljit

我觉得还可以监视cmdactive的值，这样就可以知道(command ".insert" fn pt rqz_bj "" "" A B C)是否执行完毕，否则可以继续赋值。直到ｃｍｄａｃｔｉｖｅ为０

橄榄滋味

太简单了。插入时数一数不就知道了，至于那么麻烦吗

它山之石

　　谢谢各位了。我最初的想法是先虚拟插入块后再判断，这下有几个思路了。
　　要求数一数的朋友可能没看清问题，如果能确定是几个当然就没这个问题了。

eachy

(vm-cmdf ".insert" blockname pt)
(command)
(length (vlax-invoke (vlax-ename->vla-object (entlast)) 'getattributes))

雪山飞狐(lzh)

为什么不用Vla-InsertBlock?