lisp程序

crtrccrt

(defun c:mtt ( / blkn lst0 lst1 )
  (entmake (list
             (cons 0    "MTEXT")
             (cons 100  "AcDbEntity")
             (cons 100  "AcDbMText")
             (cons 67   0)
             (cons 8    "0")
             (cons 7    "STANDARD")
             (cons 43   3.0)
             (cons 73   1)
             (cons 42   50.5)
             (cons 1    "1234\\\P56789");;;\\\P(P大写)
             (list 10   0.0  0.0  0.0)
           )
  )
  (entmake '((0 . "block") (2 . "*U")(70 . 1) (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")))
(princ)
)

aidraft

请楼主解释

梦断江南

这样没头没脑的帖子,也不知道是推荐呢,还是让人解决问题
什么功能也不讲一下.....大家的时间都是有限的