[求助]：求一程序，可以把块中块全部一个命令炸开？

andyhua5240 · 发表于 2006-2-18 15:44:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有时在改图时，遇到块中块中块中块的情况，一个大块中套了n个小块，求一命令，可以一下子将所有的块全部炸开？
比如：一个大块中套了5层，每层又有5个块，想把它全部炸开，用explode，搞死人了？
谢谢！

Underway · 发表于 2006-2-18 22:11:58

;|
From: "Doug Broad"
Newsgroups: autodesk.autocad.customization
Subject: Re: LISP explode doesn't work
Great points Joe. I overlooked xrefs. Oops.
Looked at your program and made a few changes. What
do you think?
|;
;;A program by Joe Burke with changes by D.C. Broad
;;Explode all inserts - skip xrefs.
(defun c:xpAll (/ doc mspace blockflag)
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq mspace (vla-get-ModelSpace doc))
(setq blockflag t)
;;loop until no blocks are found.
(while blockflag
(setq blockflag nil)
(vlax-for x mspace
(cond
((and
(= "AcDbBlockReference" (vlax-get x 'ObjectName))
(not (vlax-property-available-p x 'Path))
)
;;if a block is found assume it might have a nested
;;block and loop again.
(setq blockflag t)
(vla-explode x)
(vla-delete x)
)
)
)
)
(princ)
)

;| 
From: "Doug Broad" 
Newsgroups: autodesk.autocad.customization 
Subject: Re: LISP explode doesn't work 
 
 
Great points Joe.  I overlooked xrefs.  Oops. 
Looked at your program and made a few changes.  What 
do you think? 
|; 
;;A program by Joe Burke with changes by D.C. Broad 
;;Explode all inserts - skip xrefs. 
(defun c:xpAll (/ doc mspace blockflag) 
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) 
  (setq mspace (vla-get-ModelSpace doc)) 
  (setq blockflag t) 
  ;;loop until no blocks are found. 
  (while blockflag 
    (setq blockflag nil) 
    (vlax-for x mspace 
      (cond 
        ((and 
           (= "AcDbBlockReference" (vlax-get x 'ObjectName)) 
           (not (vlax-property-available-p x 'Path)) 
         ) 
         ;;if a block is found assume it might have a nested 
         ;;block and loop again. 
         (setq blockflag t) 
         (vla-explode x) 
         (vla-delete x) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

userzhluserzhl · 发表于 2006-2-19 09:38:35

命令: XPALL ; 错误: Automation 错误。输入无效

能不能炸多重块？

雨箭风刀 · 发表于 2006-2-19 10:37:39

；随手写的，未经测试
[php]
(defun c:xx ()
  (setvar "qaflags" 1)
(if (setq ss (ssget '((0 . "INSERT"))))
(progn
   (while ss
      (command ".explode" ss "")
      (setq ss (ssget "p" '((0 . "INSERT"))))
   )
)
(princ)
)
[/php]

and2008 · 发表于 2006-2-19 13:48:15

上楼的有问题
(LOAD "F:/CAD命令加载/123.lsp") ; 错误: 输入的列表有缺陷
请核查下。

hao3ren · 发表于 2006-2-19 15:48:16

4楼的不能用，2楼的倒是可以，但命令行有不相关的提示

Underway · 发表于 2006-2-19 15:58:57

最初由 userzhluserzhl 发布
[B]命令: XPALL ; 错误: Automation 错误。输入无效

能不能炸多重块？ [/B]

Ref Help file
Loads Visual LISP extensions to AutoLISP

(vl-load-com)

This function loads the extended AutoLISP functions provided with Visual LISP.
The Visual LISP extensions implement ActiveX and
AutoCAD reactor support through AutoLISP,
and also provide ActiveX utility and data conversion functions,
dictionary handling functions, and curve measurement functions.

If the extensions are already loaded, vl-load-com does nothing.

雨箭风刀 · 发表于 2006-2-19 16:16:17

少了括号，重贴如下
[php]
(defun c:xx ()
  (setvar "qaflags" 1)
  (if (setq ss (ssget '((0 . "INSERT"))))
(progn
   (while ss
(command ".explode" ss "")
(setq ss (ssget "p" '((0 . "INSERT"))))
   )
)
  )
  (princ)
)
[/php]

xyp1964 · 发表于 2006-2-19 17:23:37

最初由雨箭风刀发布
[B]少了括号，重贴如下……[/B]

[FONT=courier new]
(defun c:test ()
(setvar "qaflags" 1)
(setq ss (ssget '((0 . "INSERT"))))
(while (setq ss (ssget "P" '((0 . "INSERT"))))
(command ".explode" ss "")
)
(princ)
)[/FONT]

andyhua5240 · 发表于 2006-2-21 01:08:31

各位大哥，小弟一事不解：
请问qaflags这个变量是干什么的？有什么作用呀？
为什么我在CAD的帮助中找不到这个变量的相关说明呀？
设置为0，和设置为1，各有什么作用呀？
谢谢！

xyz518mm · 发表于 2006-2-21 08:47:58

请教一下这个setvar "qaflags" 系统变数是做什么用的,是内定的吗?
烦请解答一下
谢谢~

Underway · 发表于 2006-2-21 08:48:19

http://www.jtbworld.com/autocadtips.htm

What is QAFLAGS?
QAFLAGS been used a long time (<r12) by developers and autodesk themself too.

QAFLAGS acceps a value between 0 and 32767
bit 0 (1) : ^C in menu macro cancels grips (acts like keyboard <Esc>).
bit 1 (2) : no pause during text screen listings.
bit 2 (4) : no "alert" dialogs (text display instead).
bit 7 (128) : accepts "screen picks" (point lists) via (command) function.

Normally QAFLAGS should be set to 0. Because it might be set to
other values it is a good idea to put (setvar "QAFLAGS" 0) in
acaddoc.lsp or any other of your lisp files that you use for startup.

jack2913 · 发表于 2007-6-12 23:37:28

好行不行也，是我不会用还是真的不行，小弟不才，请大侠说的明白点

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：求一程序，可以把块中块全部一个命令炸开？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子