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

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

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

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

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

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

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

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

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

为什么不行呀？

[分享]

还是不行呀

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

這樣....

更正。。。

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