[编程申请]：如何用entmake新建文字

qiaqiadeng

请帮我看一下这个程序，有些问题，运行有错误，可能是属性10有问题，拜托
(defun add-text (p1 p2 h ang txt widesc style lay jus)

  (entmakex (list (cons 0 "TEXT")
                  (cons 100 "AcDbEntity")
;(cons 62 textcolor)
                  (cons 8 lay)
                  (cons 100 "AcDbText")
                  (cond        ((= jus "L") (cons 10 p1)) ;
                        ;((= jus "C") (list 10 0 0 0)) ;
                        ;((= jus "R") (list 10 0 0 0)) ;
                        ((= jus "A") (cons 10 p1)) ;
                        ;((= jus "M") (list 10 0 0 0)) ;
                        ((= jus "F") (cons 10 p1)) ;
                        ;((= jus "TL") (list 10 0 0 0)) ;
                        ;((= jus "TC") (list 10 0 0 0)) ;
                        ;((= jus "TR") (list 10 0 0 0)) ;
                        ;((= jus "ML") (list 10 0 0 0)) ;
                        ;((= jus "MC") (list 10 0 0 0)) ;
                        ;((= jus "MR") (list 10 0 0 0)) ;
                        ((= jus "BL") (cons 10 p1)) ;
                        ;((= jus "BC") (list 10 0 0 0)) ;
                        ;((= jus "BR") (list 10 0 0 0)) ;
                  )
                  (cons 40 h)
                  (cons 1 txt)
                  (cons 50 ang)
                  (cons 41 widesc)
                  (cons 7 style)
                  (cond        ((= jus "L") (cons 72 0)) ;
                        ((= jus "C") (cons 72 1)) ;
                        ((= jus "R") (cons 72 2)) ;
                        ((= jus "A") (cons 72 3)) ;
                        ((= jus "M") (cons 72 4)) ;
                        ((= jus "F") (cons 72 5)) ;
                        ((= jus "TL") (cons 72 0)) ;
                        ((= jus "TC") (cons 72 1)) ;
                        ((= jus "TR") (cons 72 2)) ;
                        ((= jus "ML") (cons 72 0)) ;
                        ((= jus "MC") (cons 72 1)) ;
                        ((= jus "MR") (cons 72 2)) ;
                        ((= jus "BL") (cons 72 0)) ;
                        ((= jus "BC") (cons 72 1)) ;
                        ((= jus "BR") (cons 72 2)) ;
                  )
                  (cond        ((= jus "L") (list 11 0 0 0)) ;p1,nil
                        ((= jus "C") (cons 11 p2)) ;nil,p1
                        ((= jus "R") (cons 11 p2)) ;nil,p1
                        ((= jus "A") (cons 11 p2)) ;p1,p2
                        ((= jus "M") (cons 11 p2)) ;nil,p2
                        ((= jus "F") (cons 11 p2)) ;p1,p2
                        ((= jus "TL") (cons 11 p2)) ;nil,p2
                        ((= jus "TC") (cons 11 p2)) ;nil,p2
                        ((= jus "TR") (cons 11 p2)) ;nil,p2
                        ((= jus "ML") (cons 11 p2)) ;nil,p2
                        ((= jus "MC") (cons 11 p2)) ;nil,p2
                        ((= jus "MR") (cons 11 p2)) ;nil,p2
                        ((= jus "BL") (cons 11 p1)) ;nil,p2
                        ((= jus "BC") (cons 11 p2)) ;nil,p2
                        ((= jus "BR") (cons 11 p2)) ;nil,p2
                  )
                  (cons 100 "AcDbText")
                  (cond        ((= jus "L") (cons 73 0)) ;
                        ((= jus "C") (cons 73 0)) ;
                        ((= jus "R") (cons 73 0)) ;
                        ((= jus "A") (cons 73 0)) ;
                        ((= jus "M") (cons 73 0)) ;
                        ((= jus "F") (cons 73 0)) ;
                        ((= jus "TL") (cons 73 3)) ;
                        ((= jus "TC") (cons 73 3)) ;
                        ((= jus "TR") (cons 73 3)) ;
                        ((= jus "ML") (cons 73 2)) ;
                        ((= jus "MC") (cons 73 2)) ;
                        ((= jus "MR") (cons 73 2)) ;
                        ((= jus "BL") (cons 73 1)) ;
                        ((= jus "BC") (cons 73 1)) ;
                        ((= jus "BR") (cons 73 1)) ;
                  )
            )
  )
)

adisonmaster

程序可以用呀！用下面程序调用可以生成结果。
(add-text '(0 0 0) '(2 0 0) 2.5 0 "hello" 0.7 "standard" "0" "L")