无名块制作问题

27012701

我用在明经下载的函数，制作无名块时，一般都可以作成，但是有属性块的时候，就没办法作成。

给出  “无效的复杂对象。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
;而无名块并能做成。

龙龙仔

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=9545&replyID=37668

27012701

太谢谢您啦！问题已经用你的办法解决啦！