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

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

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

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

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

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

dawan · 发表于 2003-1-3 14:41:00

用(command "explode" (ssget "x" (list (cons -4 "") ) ))试试。

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

;;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)
)

dawan · 发表于 2003-1-3 16:50:00

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

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

发表回复

精选推荐