[求助]：entmake创建对齐文字在UCS下出错

mochaolong

请大家帮我看一下这段代码,在WCS下能正常运行,但在UCS下的话,所有的文字都创建在wcs原点位置了.有什么办法解决吗?


;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)
)
)
)

cy956

看trans函数
entmake只接受wcs下的点坐标组码