请各位代验证在MDT6.0(autocad 2002)下EXPLODE命令之LISP写法

龙龙仔

最近发现在MDT6.0下EXPLODE命令之写法为
(COMMAND "_.EXPLODE" SS "")
以前所有版本都是下列的写法!!
(COMMAND "_.EXPLODE" SS)
到底是我系统有问题或写法如上所述!!!!!!!

陈伯雄

龙龙仔

龙龙仔

秘密系统变量 qaflags 在R14时改成1可爆开所有图块。
但在autocad 2000(含)以上,已不能设为1,可有新的资料吗?
我最近发现系统变量 qaflags设为32767,
则在lisp中使用explode如下:
(command “_.explode”  图块 “”)
需要多加””,有一次因乱试系统变量 qaflags的值,害自已要重灌autocad

e2002

http://www.manusoft.com/Resources/AcadExposed/index.stm

baozhiliang

在lisp中如何写程序将图档中的所有图块炸开？（COMMAND “EXPLODE” “ALL”）怎么就是不管用呢？[br]（COMMAND “EXPLODE” “ALL”）怎么就是不管用呢？但是在命令拦中按这个格式输入却可以执行，不知为何？请帮忙解围！

龙龙仔

;;;炸开所有图块 by 秋枫
;;;Expblk2 炸开所有图块
(defun C:EXPBLK2 (/ BLOCKLIST SS BLOCKNAME I BLOCKOBJ LASTENTITY
                  BLOCKOBJ2 COUNT
                 )
  (vl-load-com)
  (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)
)

baozhiliang

雷

(setq a (ssget "x" (list (cons 0 "INSERT")) ))
（COMMAND “EXPLODE” A ""）
就这么简单。