[求助]：怎么设置才能让多行字默认为右上对齐

single888 · 发表于 2005-10-23 08:37:45

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

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

×

CAD中多行字默认是左上对齐，怎么设置才能让多行字默认为右上对齐

似水无痕 · 发表于 2005-10-23 14:11:39

我以前做过一个小程序，是居中的，希望你可以用得着！
(defun c:mmtext (/ basepoint endpoint height string)
  (setvar "CMDECHO" 0)
  (setq basepoint (getpoint "\n输入第一角点："))
  (setq endpoint (getcorner basepoint "\n输入第二个角点："))
  (if (/= x_height nil)
(progn
   (princ "\n输入文字高度或默认")
   (princ "<")
   (princ x_height)
   (princ ">:")
   (setq height (getstring))
)
(setq height (getstring "\n输入文字高度："))
  )
  (setq string (getstring "\n请输入创建的文字："))
  (if (= height "")
(setq height x_height)
(setq x_height height)
  )
  (setq height (atof height))
  (command "mtext" basepoint "j" "mc" "h" height endpoint string "")
  (princ)
)

youbl · 发表于 2005-10-23 15:28:53

多行文字默认为左对齐,如果想右对齐,打开文字工具栏的对正文字,选择右对齐就可以.

single888 · 发表于 2005-10-26 22:32:10

谢谢两位

账号		自动登录	找回密码
密码			立即注册

[求助]：怎么设置才能让多行字默认为右上对齐

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

相关帖子