炸开所有图块 by 秋枫

YueFeng

Expblk2 炸开所有图块
(defun C:ExpBlk2
         (/        blocklist    ss      blockname
          i        blockobj    lastentity blockobj2
          count
         )
  (setq ss (ssget '((0 . "INSERT"))))
  (if (null ss)(exit))
  (setq    i 0
    blocklist nil
  )
  (while (< i (sslength ss))
    (setq blockname (ssname ss i))
    (setq blockobj (vlax-ename->vla-object blockname))
                    ;    (if    (= (abs (vla-get-XscaleFactor blockobj))
                    ;      (abs (vla-get-YScaleFactor blockobj))
                    ;      (abs (vla-get-ZscaleFactor Blockobj))
                    ;    )
                    ;      (progn
    (setq blocklist (append blocklist (list blockobj)))
                    ;      )
                    ;    )
    (setq i (1+ i))
  )

  (setvar "cmdecho" 0)
  (command "_.UNDO" "Auto" "off")
  (command "_.UNDO" "_GROUP")
  (setvar "cmdecho" 1)

  (setq count 0)
  (while blocklist
    (setq lastentity (entlast))
    (foreach blockobj blocklist
                    ; (setvar "cmdecho" 0)
                    ; (command "_.EXPLODE" (vlax-vla-object->ename blockobj))
                    ; (setvar "cmdecho" 1)
      (vla-explode blockobj)
      (vla-delete blockobj)
      (princ "\r")
      (princ count)
      (princ " block(s) exploded.")
      
      (setq count (1+ count))
      (setq blocklist (cdr blocklist))
      (while (not (eq lastentity (entlast)))
    (setq lastentity (entnext lastentity))
    (if (= "INSERT" (cdr (assoc 0 (entget lastentity))))
      (progn
        (setq blockobj2 (vlax-ename->vla-object lastentity))
                    ;        (if    (= (abs (vla-get-XscaleFactor blockobj2))
                    ;          (abs (vla-get-YScaleFactor blockobj2))
                    ;          (abs (vla-get-ZscaleFactor Blockobj2))
                    ;        )
                    ;          (progn
        (setq blocklist (append blocklist (list blockobj2)))
                    ;          )
                    ;        )
      )
    )
      )
    )
  )
  (setvar "cmdecho" 0)
  (command "_.UNDO" "END")
  (setvar "cmdecho" 1)

  (princ)
)

无忧

这个程序有什么用？平时画图时会把所有的块都炸开吗？

LUCAS

最初由 无忧 发布
[B]这个程序有什么用？平时画图时会把所有的块都炸开吗？ [/B]

当你以立体图”3DSOLID”来设计成大型立体图组件时,因螺丝,螺帽…相同立体图都以区块建立,为把图档大小缩少(便会建立蜂巢式区块[区块中有区块]),但当要做三视图时那非全部炸开不可,不用程序来做,有时可把立体图炸成REGION OR BODY,我自已也有写这样的一个程序

XDSoft

最初由 LUCAS 发布
[B]

当你以立体图”3DSOLID”来设计成大型立体图组件时,因螺丝,螺帽…相同立体图都以区块建立,为把图档大小缩... [/B]

若方便，给大家贴出来吧，LUCAS

:9 :9 :9

snajm

学习了