(defun C:MBA ()
  (entmake
    '((0 . "block") (2 . "*U") (70 . 3) (10 0.0 0.0 0.0))
  )
  (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)
     )
  )
  (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"))))

 
  (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 . "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")))
)