[编程申请]：请高手们看看这个“生成带属性的匿名块”的程序问题错在哪？

pdesign

高手们，我在明经找到一“生成带属性的匿名块”的程序，但我运行后显示如下：
命令: mbA   
((0 . "SEQEND"))

我是菜鸟请高手们帮我看看问题出在哪，或者有其它更好程序？

附原程序网面：http://www.mjtd.com/bbs/dispbbs. ... ID=7291&ID=7291

原程序如下：

(defun c:mba()
  (entmake '((0 . "block") (2 . "*U")(70 . 1) (10 0.0 0.0 0.0)))
  ;entitty
  (entmake '((0 . "CIRCLE") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "Circle")   
             (10 0.7 1.2 0.0) (40 . 21) (210 0.0 0.0 1.0)))
  ;...
  ;att
  (entmake '((0 . "ATTDEF") (100 . "AcDbEntity")  (67 . 0) (8 . "0") (100 . "AcDbText")
            (10 -2.4 -1.0 0.0) (40 . 2.5) (1 . "0") (50 . 0.0) (41 . 1.0) (51 . 0.0)   
           (7 . "STANDARD") (71 . 0) (72 . 5) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition")
           (3 . "请输入属性") (2 . "属性") (70 . 0) (73 . 0) (74 . 0)))
  ;...
  (setq blkn (entmake '((0 . "ENDBLK"))) )
;  blkn
;)
  ;test
  (setq lst0 '((0 . "INSERT") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbBlockReference") (66 . 1)   
             (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0)
             (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0)))
  (setq lst1 (append lst0 (list (cons 2 blkn))))
  (entmake lst1)
;  (entmake '((0 . "INSERT") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbBlockReference") (66 . 1)   
;             (2 . "*U") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0)
;             (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0)))
  (entmake '((0 . "ATTRIB") (5 . "26") (100 . "AcDbEntity")   
              (67 . 0) (8 . "0") (100 . "AcDbText") (10 -2.4 -1.0 0.0) (40 . 2.5) (1 . "123") (50 . 0.394791) (41 . 0.445714)   
              (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 5) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0)   
              (100 . "AcDbAttribute") (2 . "属性") (70 . 0) (73 . 0) (74 . 0)))
  (entmake '((0 . "SEQEND")))
)
测试通过
Command: ls LIST
Select objects: 1 found

Select objects:
                  BLOCK REFERENCE  Layer: "0"
                            Space: Model space
                   Handle = 24C
                  "*U"
                at point, X=   0.0000  Y=   0.0000  Z=   0.0000
                 X scale factor    1.0000
                 Y scale factor    1.0000
          rotation angle      0
                 Z scale factor    1.0000

                  ATTRIBUTE  Layer: "0"
                            Space: Model space
                   Handle = 24D
             Style = "Standard"
             Font file = txt
       fit between point, X=  -2.4000  Y=  -1.0000  Z=   0.0000
               and point, X=   0.0000  Y=   0.0000  Z=   0.0000
            height    2.5000
             value 123
               tag 属性
          rotation angle     23
             width scale factor    0.4457
         obliquing angle      0
             flags normal
        generation normal

                  END SEQUENCE  Layer: "0"
                            Space: Model space
                   Handle = 24E

LUCAS

程序沒有错!!!
在程序最後加上(princ)會好一點
...
(entmake '((0 . "SEQEND")))
(princ)
)

pdesign

哦，原来是我图边界太大，没看到那个小圆点。

。。。呵呵，我是菜鸟