无名块制作问题
 

无名块制作问题
www.dimcax.com
无名块制作问题
我用在明经下载的函数，制作无名块时，一般都可以作成，但是有属性块的时候，就没办法作成。
给出 “无效的复杂对象。nil”的提示。
请帮忙修改一下。


(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
)
;提示：无效的复杂对象。nil
;而无名块并能做成。
该文件为 autocad
d
要努力学习,不进则退
网络u盘：
太谢谢您啦！问题已经用你的办法解决啦！
d