entmake lisp 对齐_晓东CAD家园-论坛-晓东工具箱、编程申请-[LISP程序]：entmake创建对齐文字在UCS下出错-请大家帮我看一下这段代码,在WCS下能正常运行,在UCS下的话,...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

请大家帮我看一下这段代码,在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)

)

)

)

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册