[LISP程序]：entmake创建对齐文字在UCS下出错

mochaolong

请大家帮我看一下这段代码,在WCS下能正常运行,在UCS下的话,所有的文字都创建在原点位置了.这是什么原因引起的呢?


;entmake建立单行文本  晓东 zxq0220 2007.12.15
(defun mktext (txt pt hi ang style layer al)
(setq al (strcase al nil) pt1 '(0.0 0.0 0.0))
(cond
  ((= al "TL") (setq a72 0 a73 3 pt1 pt))
  ((= al "TC") (setq a72 1 a73 3 pt1 pt))
  ((= al "TR") (setq a72 2 a73 3 pt1 pt))
  ((= al "ML") (setq a72 0 a73 2 pt1 pt))
  ((= al "MC") (setq a72 1 a73 2 pt1 pt))
  ((= al "MR") (setq a72 2 a73 2 pt1 pt))
  ((= al "L") (setq a72 0 a73 0 pt1 pt))
  ((= al "C") (setq a72 1 a73 0 pt1 pt))
  ((= al "R") (setq a72 2 a73 0 pt1 pt))
  ((= al "BL") (setq a72 0 a73 1 pt1 pt))
  ((= al "BC") (setq a72 1 a73 1 pt1 pt))
  ((= al "BR") (setq a72 2 a73 1 pt1 pt))
  ((= al "A") (setq a72 3 a73 0 pt1 (getpoint pt "\nNextPoint :")))
  ((= al "M") (setq a72 4 a73 0 pt1 pt))
  ((= al "F") (setq a72 5 a73 0 pt1 (getpoint pt "\nNextPoint :")))
  (T (setq a72 0 a73 0 pt1 pt))
)
(entmake
  (list
   '(0 . "TEXT")
   '(100 . "AcDbEntity")
   '(67 . 0)
   '(410 . "Model")
   (cons 8 layer)
   '(100 . "AcDbText")
   (cons 10 pt)
   (cons 40 hi)
   (cons 1 txt)
   (cons 50 ang)
   '(41 . 1.0)
   '(51 . 0.0)
   (cons 7 style)
   '(71 . 0)
   (cons 72 a72)
   (cons 11 pt1)
   '(210 0.0 0.0 1.0)
   '(100 . "AcDbText")
   (cons 73 a73)
  )
)
)

gogo9567

太高深了 看不懂！！