求助caoyin大哥

lljj

以下是一个论坛中一个生成无名块的程序，当得到ss是一个嵌套块的数据时，经炸开pugre后有没有办法直接生成一个无名嵌套块?

(defun mc-make-unname-block(ss / count entlist ent blk)
  (entmake '((0 . "BLOCK")
      (2 . "*U")
      (70 . 1)
      (10 0 0 0)
      ))
  (setq count 0)
  (repeat (sslength ss)
    (setq entlist(entget(setq ent(ssname ss  count))))
    (setq count (1+ count))
    (entmake entlist)
    )
  (setq count 0)
  (repeat(sslength ss)
    (setq ent(ssname ss count))
    (setq count (1+ count))
    (entdel ent)
    )
  (setq blk(entmake '((0 . "ENDBLK"))))
  (if (princ blk)
  (entmake (list (cons 0  "INSERT")
      (cons 2 blk)
      (cons 10 '(0 0 0))
      ))
    )
  blk
  )

caoyin

ss是个选择集跟嵌套块什么关系？请把问题说明白.

lljj

其实是这样，我是想通过取得一个嵌套块内的所有图元（包括所有子图元）的资料(ss)。然后用程序生成(还原)这个嵌套块.

caoyin

参考以下链接

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72104