以下是一个论坛中一个生成无名块的程序,当得到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 )
|