块中有多个块，如何彻底分解？

wdb · 发表于 2003-12-6 13:21:00

块中有多个块，如何在用vlisp插入块时使块彻底分解？关键是不知道如何求得块分解后块中对象的选择集。

无痕 · 发表于 2004-5-1 17:56:00

不用递归也能写的很简单


(defun c:xex ()
   (princ "\n炸开嵌套块.--------------by 无痕.2004.4")
   (setvar "qaflags" 1)
   (setq ss (ssget '((0 . "INSERT"))))
   (while (setq ss (ssget "P" '((0 . "INSERT"))))
       (command ".explode" ss "")
   )(princ)
)

meflying · 发表于 2003-12-6 14:39:00

(ssget "p")

meflying · 发表于 2003-12-6 14:53:00

分解嵌套块程序
;ent可以是对象名，也可以是选择集。。。

copy


(defun explodex(ents / ss i )
  (command "_.explode" ents)
  (setq ss (ssget "P"))
  (setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (if (= "INSERT" (cdr (assoc 0 (entget ent))))
      (explodex ent)
    )
    (setq i (1+ i))
  )
)

BDYCAD · 发表于 2003-12-7 02:55:00

试试改变这个系统变量 qaflags

meflying · 发表于 2003-12-7 08:16:00

我也編了個.供大家指點和參考, 呵呵. 可以根據需要進行修改SSGET的選擇方式.
(defun explode-all(/ all sl n sd);(explode-all)
  (setvar "cmdecho" 0)
  (repeat 2
  (setq all(ssget "x")       sl (sslength all) n 0)
  (repeat sl
(setq sd (cdr (assoc 0 (entget (ssname all n)))))
(if (= sd "INSERT")
   (command ".explode" (ssname all n)))
(setq n (1+ n))))
  (setvar "cmdecho" 1)
  (princ))

mccad · 发表于 2003-12-7 11:02:00

这个变量是控制什么的？为什么帮助文件中搜索不到这个变量？
to:BDYCAD,你的程序不是炸开嵌套块的，你只炸了一层，如果块中有块，你还是无法完全炸开

meflying · 发表于 2003-12-7 13:48:00

to meflying:
http://www.mjtd.com/a2/list.asp?id=459

龙龙仔 · 发表于 2003-12-7 14:38:00

奇怪，为何帮助中没有说明？
看来这个参数是解决BDY的程序的，嵌套的块还得用我那个程序来解决

wdb · 发表于 2003-12-8 10:08:00

QAFLAGS acceps a value between 0 and 32767
bit 0 (1) : ^C in menu macro cancels grips (acts like keyboard ).
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.

块中有多个块，如何彻底分解？

发表回复

精选推荐

浏览过的版块