lucas_3333 发表于 2015-9-29 08:49 
没有看9楼吗? 给出思路了,你不按套路走, 那也没办法了 ,你说不行,你就贴出你不行的代码,
你要是这样下去等 ...
一、首先,应你的要求,代码贴到下面。不过我想好奇一下,都玩到动态块的人,还有没用过entnext循环或者vlax-for遍历的?
二、然后非常感谢你还能一直在关注此帖,但是如果你会并且愿意帮我,那我感谢你,不愿意呢,也没人会逼着你。
三、你说的思路,提问之前早就尝试过了,而你在自己并没实践过的情况下就去怀疑别人,是不是有点太自以为是了呢?
四、不知道你是从哪儿看出来,我就是来等代码的,至于结不结帖,该不该结贴,要不要结贴,你急什么呢? - (defun getenlst(blkname / en enlst)
- (setq enlst (list (cdr (assoc -2 (tblsearch "block" blkname)))))
- (while (setq en (entnext (car enlst)))
- (setq enlst (cons en enlst))
- )
- enlst
- )
 - (defun getenlst(en / lst)
- (vlax-for x
- (vla-item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
- (Vlax-Get (vlax-ename->vla-object en)"Name"))
- (setq lst (cons (vlax-vla-object->ename x) lst))
- )
- lst
- )
|