dawan 发表于 2003-1-3 13:11:00

如何编程实现explode一个dwg文件中所有名称为“block1”的图块

如何编程实现explode一个dwg文件中所有名称为“block1”的图块

雷 发表于 2003-1-3 13:18:00

(command "explode" (ssget "x" (list (cons 0 "INSERT") (cons 2 "block1

(command "explode" (ssget "x" (list (cons 0 "INSERT") (cons 2 "block1") ) ))

dawan 发表于 2003-1-3 13:54:00

谢谢！但可否将此语句各部分详细解释一下

dawan 发表于 2003-1-3 14:08:00

为什么不行呀？

执行后没有达到预期效果
命令行提示为：
EXTEND
Select boundary edges: (Projmode = UCS, Edgemode = No extend)
Select objects:
为什么呀

CAD菜鸟 发表于 2003-1-3 14:41:00

[分享]

用(command "explode" (ssget "x" (list (cons -4 "<AND") (cons 0 "INSERT") (cons 2 "block1")(cons -4 "AND>") ) ))试试。

dawan 发表于 2003-1-3 16:13:00

还是不行呀

CAD菜鸟 发表于 2003-1-3 16:42:00

我试过，没问题呀，你的块名正确吗？

龙龙仔 发表于 2003-1-3 16:46:00

這樣....

本帖最后由 作者 于 2003-1-3 16:46:52 编辑

;;usage: (expp "block1")
(defun EXPP (BLOCKNAME / N SS)
(setq        SS (ssget "x"
                  (list        (cons 0 "INSERT")
                        (cons 2 BLOCKNAME)
                        (cons 410 (getvar "ctab"))
                  )
           )
)
(setq N 0)
(repeat (sslength SS)
    (command "_.explode" (ssname SS N))
    (setq N (1+ N))
)
(princ)
)

CAD菜鸟 发表于 2003-1-3 16:50:00

更正。。。

explode一次只能炸一个，我刚才测试时用的是一个实体，所以通过，但对于多个实体则不行了。SORRY!

dawan 发表于 2003-1-3 20:59:00

把各位的高招综合起来，问题解决了。小弟万分感谢！！

页: [1] 2
查看完整版本: 如何编程实现explode一个dwg文件中所有名称为“block1”的图块