如何用lsp炸开图中所有的块

龙龙仔 · 发表于 2002-11-3 00:15:00

(DEFUN C:TEST ()
(command "_.EXPLODE" (ssget "X" (list (cons 0 "INSERT"))))
(princ)
)

南子 · 发表于 2002-11-1 17:12:00

;;超级慢的方法
(DEFUN C:TEST ()
(setq N 1)
(princ)
(while (setq AAA (ssget       "X"
                     (list (cons 0 "INSERT") (cons 410 (getvar "ctab")))
               )
   )
  (command "_.EXPLODE" AAA)
  (setq aaa nil)
  (setq N (1+ N))
  (princ)
))

秋枫 · 发表于 2002-11-7 16:00:00

(defun VXEXPODE       (ENT / OBJLST)
  (setq       OBJLST (vlax-safearray->list
               (vlax-variant-value
               (vla-explode
                  ENT
               )
               )
            )
  )
  (vla-delete ENT)
  (foreach MEMB       OBJLST
(if       (= (vla-get-objectname MEMB) "AcDbBlockReference")
   (VXEXPODE MEMB)
)
  )
  (princ)
)
(vl-load-com)
(defun C:EEXP (/ N SS)
  (setq SS (getstring "\nAll(A)/: "))
  (if (/= SS "")
(ssget "X"
         (list (cons 0 "INSERT") (cons 410 (getvar "CTAB")))
)
(ssget '((0 . "INSERT")))
  )
  (vlax-for ENT       (vla-get-activeselectionset
               (vla-get-activedocument (vlax-get-acad-object))
            )
(VXEXPODE ENT)
  )
)

如何用lsp炸开图中所有的块

发表回复

精选推荐

浏览过的版块