求助caoyin大哥
 

求助caoyin大哥
www.dimcax.com
求助caoyin大哥
以下是一个论坛中一个生成无名块的程序，当得到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
)
d
ss是个选择集跟嵌套块什么关系？请把问题说明白.
d
其实是这样，我是想通过取得一个嵌套块内的所有图元（包括所有子图元）的资料(ss)。然后用程序生成(还原)这个嵌套块.
d
参考以下链接
d