Gu_xl 发表于 2011-1-12 22:16:15

本帖最后由 Gu_xl 于 2011-1-12 22:43 编辑

回复 muhanleek 的帖子

;;;Wipeout 后置
(defun c:tt ( / blocks objblk obj )
(setq blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for objblk blocks

(vlax-for obj objblk
    (if (/= "AcDbWipeout" (vla-get-ObjectName obj))
(progn
(vla-copy obj)
(vla-Delete obj)
)
    )
    )
    )
(command "_regen")
)
;;;Wipeout 前置
(defun c:tt1 ( / blocks objblk obj )
(setq blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for objblk blocks

(vlax-for obj objblk
    (if (= "AcDbWipeout" (vla-get-ObjectName obj))
(progn
(vla-copy obj)
(vla-Delete obj)
)
    )
    )
    )
(command "_regen")
)




muhanleek 发表于 2011-1-12 23:07:32

谢了，太好

longer1000 发表于 2012-9-11 15:49:07

G版的确厉害
页: 1 [2]
查看完整版本: 如何获得块中子图元