[求助]：Entmake做属性块问题！

Dream.Fei

为什么我这个ENTMAKEBLOCK程序不能做含有属性方字的块？
请大家帮我看下。
[php]
(defun C:MB (/ tmp ss ip)
  (if
    (and
      (setq ip (getpoint "Pick Insertion Point (<0,0,0>): "))
      (setq ss (ssget))
    )
     (progn
       (entmake        (list '(0 . "BLOCK")
                      '(2 . "Mark")
                      '(100 . "AcDbEntity")
                      '(100 . "AcDbBlockBegin")
                      '(70 . 1)
                      (cons '10 ip)
                )
       )
       (setq cnt (sslength ss))
       (while (>= (setq cnt (1- cnt)) 0)
         (progn
           (setq tmp (ssname ss cnt))
           (entmake (entget tmp))
           (entdel tmp)
         )
       )
       (setq tmp (entmake '((0 . "ENDBLK"))))
       (entmake (list '(0 . "INSERT") '(2 . "Mark") (cons '10 ip)))
     )
  )
)

[/php]

YueFeng

你并没有写入属性标记的对象DXF组码呀！

Free-Lancer

主实体中必须有子实体跟随标志 66 。

Dream.Fei

我要的是想通过前面这个做块的程序，自己选择“包含有属性文字的对象”，做成一个块。就像CAD自带的 "block" 命令一样。

比如说，我先后Entmake 一个circle，一个Attdef，我现在就想使用上面这个做块的程序，把这二个合成一个块。

或者说如果有办法直接把这二个对象Entmake出来并生成一个块，那肯定是最爽的，但是我不知道怎么做。

要注意的是： 双击合成后的块，显示的应该是“编辑增强属性文字”，而不是“Refedit块编辑“。

请楼上的二位大哥或是有别的高手再给我解释解释，多谢了。