谁可以写个速度最快的判断块中有没有属性定义

mccad

你的意思是你写了一个判断，但觉得速度不够快。怎么不把你的代码贴出来呢。

jxlsp

你的速度不快的是什么样的呀?

carrot1983

不知道会不会更快...

(and (= (vla-get-objectname
   (setq blkref (vlax-ename->vla-object ent))
 )
 "AcDbBlockReference"
     )
     (vla-get-hasattributes blkref)
)

caoyin

楼上的最简单，不过要修改一下

(and (= (vla-get-objectname
   (setq blkref (vlax-ename->vla-object (car (entsel))))
 )
 "AcDbBlockReference"
     )
     (= (vla-get-hasattributes blkref) :vlax-true)
)

或者

(vl-catch-all-apply
        'vlax-invoke
        (list (vlax-ename->vla-object (car (entsel))) 'getattributes)
)

狂刀lxx

选的时候用ssget 66组码过滤

lyd2003001

尽管没试过，我还是觉得狂刀说的有道理，省事。

carrot1983

是的...组码66过滤...昨天刚看过