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

龙龙仔 · 发表于 2002-6-17 12:44:00

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

龙龙仔 · 发表于 2002-8-1 10:42:00

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

e2002 · 发表于 2002-8-1 12:03:00

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

baozhiliang · 发表于 2002-8-1 19:06:00

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

龙龙仔 · 发表于 2002-8-2 08:31:00

;;;炸开所有图块 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 (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)
)

龙龙仔 · 发表于 2002-8-2 20:47:00

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

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

发表回复

精选推荐

浏览过的版块