[求助]：用entmake怎样建立多行文本实体

qqy1

用entmake怎样建立多行文本实体

ll_j

[php](defun mkmtext (textstyle textsize insertpoint boxwidth text)
  (entmake
    (list '(0 . "MTEXT")
          '(100 . "AcDbEntity")
                                        ;    (cons 8 layer)
                                        ;    (cons 62 color)
          '(100 . "AcDbMText")
          (cons 10 insertpoint)
          (cons 40 textsize)
          (cons 41 boxwidth)
                                        ;    '(71 . 1)
                                        ;    '(72 . 5)
          (cons 1 text)                 ;文本可以超过256字符，Acad会自动截取
          (cons 7 textstyle)
                                        ;    '(210 0.0 0.0 1.0)
                                        ;    '(11 1.0 0.0 0.0)
                                        ;    '(50 . 0.0)
                                        ;    '(73 . 1)
                                        ;    '(44 . 1.0)
    )
  )
)[/php]