lljj 发表于 2009-1-19 16:39:00

求助caoyin大哥

<p>以下是一个论坛中一个生成无名块的程序，当得到ss是一个嵌套块的数据时，经炸开pugre后有没有办法直接生成一个无名嵌套块?</p><p>(defun mc-make-unname-block(ss / count entlist ent blk)<br/>&nbsp;&nbsp;(entmake '((0 . "BLOCK")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (2 . "*U")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (70 . 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (10 0 0 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))<br/>&nbsp;&nbsp;(setq count 0)<br/>&nbsp;&nbsp;(repeat (sslength ss)<br/>&nbsp;&nbsp;&nbsp;&nbsp;(setq entlist(entget(setq ent(ssname ss&nbsp;&nbsp;count))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;(setq count (1+ count))<br/>&nbsp;&nbsp;&nbsp;&nbsp;(entmake entlist)<br/>&nbsp;&nbsp;&nbsp;&nbsp;)<br/>&nbsp;&nbsp;(setq count 0)<br/>&nbsp;&nbsp;(repeat(sslength ss)<br/>&nbsp;&nbsp;&nbsp;&nbsp;(setq ent(ssname ss count))<br/>&nbsp;&nbsp;&nbsp;&nbsp;(setq count (1+ count))<br/>&nbsp;&nbsp;&nbsp;&nbsp;(entdel ent)<br/>&nbsp;&nbsp;&nbsp;&nbsp;)<br/>&nbsp;&nbsp;(setq blk(entmake '((0 . "ENDBLK"))))<br/>&nbsp;&nbsp;(if (princ blk)<br/>&nbsp;&nbsp;(entmake (list (cons 0&nbsp;&nbsp;"INSERT")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 2 blk)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 10 '(0 0 0))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ))<br/>&nbsp;&nbsp;&nbsp;&nbsp;)<br/>&nbsp;&nbsp;blk<br/>&nbsp;&nbsp;)<br/></p>

caoyin 发表于 2009-1-20 15:01:00

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

lljj 发表于 2009-1-20 16:55:00

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

caoyin 发表于 2009-1-22 18:09:00

<p>参考以下链接</p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72104">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72104</a></p>
页: [1]
查看完整版本: 求助caoyin大哥