求助：获取嵌套块选择集lisp

shi · 发表于 2012-4-18 21:43:03

本帖最后由 shi 于 2012-4-18 21:43 编辑

获取图纸中所有嵌套块的选择集，然后move选择集对象

Gu_xl · 发表于 2012-4-18 21:57:32

遍历图形所有块定义，找出嵌套块，然后用法ssget建立选择集！

shi · 发表于 2012-4-18 21:59:58

本帖最后由 shi 于 2012-4-18 22:01 编辑

版主能给个代码吗？本来是用vba写的，只差最后一步move不知道如何做，网上找了一天也没找到答案！lisp还是一点都不懂啊

tm20038175 · 发表于 2012-4-18 22:18:19

嵌套块可是难点呀，懂得人不多，好像需要嵌套和递规……

Gu_xl · 发表于 2012-4-18 22:24:58

本帖最后由 Gu_xl 于 2012-4-19 09:06 编辑

shi 发表于 2012-4-18 21:59
版主能给个代码吗？本来是用vba写的，只差最后一步move不知道如何做，网上找了一天也没找到答案！lisp还是一 ...

;;返回嵌套块选择集
(defun getnestblock (/ BLOCKS LOOP FILTER SS)
(setq blocks (vla-get-blocks
(vla-get-ActiveDocument (vlax-get-acad-object))
)
)
(vlax-for blkdef blocks
(if (not
(or (= "*Model_Space" (vla-get-name blkdef))
(WCMATCH (vla-get-name blkdef) "`*Paper_Space*")
)
)
(progn
(setq Loop t)
(vlax-for obj blkdef
(if (and loop
(or
(= "AcDbBlockReference" (vla-get-ObjectName obj))
(= "AcDbMInsertBlock" (vla-get-ObjectName obj))
)
)
(if filter
(setq filter (strcat filter "," (vla-get-name blkdef))
loop nil
)
(setq filter (vla-get-name blkdef)
loop nil
)
)
)
)
)
)
)
(if filter
(setq ss (ssget "x" (list '(0 . "insert") (cons 2 filter))))
)
)

;;返回嵌套块选择集 
(defun getnestblock (/ BLOCKS LOOP FILTER SS) 
  (setq blocks (vla-get-blocks 
   (vla-get-ActiveDocument (vlax-get-acad-object)) 
        ) 
  ) 
  (vlax-for blkdef blocks 
    (if (not 
   (or (= "*Model_Space" (vla-get-name blkdef)) 
       (WCMATCH (vla-get-name blkdef) "`*Paper_Space*") 
   ) 
) 
      (progn 
(setq Loop t) 
(vlax-for obj blkdef 
   (if (and loop 
     (or 
       (= "AcDbBlockReference" (vla-get-ObjectName obj)) 
       (= "AcDbMInsertBlock" (vla-get-ObjectName obj)) 
     ) 
       ) 
     (if filter 
       (setq filter (strcat filter "," (vla-get-name blkdef)) 
      loop   nil 
       ) 
       (setq filter (vla-get-name blkdef) 
      loop   nil 
       ) 
     ) 
   ) 
) 
      ) 
    ) 
  ) 
  (if filter 
    (setq ss (ssget "x" (list '(0 . "insert") (cons 2 filter)))) 
  ) 
)

shi · 发表于 2012-4-19 10:39:44

谢谢版主热心相助！

不知道怎么运行，我复制粘贴到命令行后，输入getnestblock，怎么提示未知命令呢？

shi · 发表于 2012-4-19 11:42:16

再次感谢版主，临时补了一点lisp知识，知道如何运行了

vlisp2012 · 发表于 2012-4-19 18:56:18

要啥有啥，G版会七十二般变化啊！！

pzweng · 发表于 2012-4-20 13:45:45

看看具体的功能

xiaxiang · 发表于 2012-4-20 19:33:50

想看程序的同时不知道该说啥

账号		自动登录	找回密码
密码			注册