[求助]： [求助]请教高手,如何修文字样式的高宽比?

userzhluserzhl · 发表于 2009-5-4 08:34:54

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

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

×

[求助]请教高手,如何修文字样式的高宽比?

qjcpj · 发表于 2009-5-6 22:22:54

在标注值前添加 \W数值;
注意W为大写，数值为你要修改的高宽比值，分号;不能缺少。

hawnn · 发表于 2009-5-6 22:28:49

如果是直接改的话按"Ctrl+1"
在对象属性框中有个"宽度比例"改数值就好了
如果是lisp的话,对象的第41项群码代表宽度比例系数,用相应函数修改就好了
当然,我说的是单行文字,多行文字直接拉就好了
而文字样式" style"中间一点有个"宽度比例"

qjcpj · 发表于 2009-5-6 22:41:10

看看效果。

userzhluserzhl · 发表于 2009-5-7 09:04:01

我可能没说清楚,我是想修改下面的:

lixiaochun · 发表于 2009-5-7 10:50:36

感觉你还是没有说清楚，直接修改宽度因子的数值——这个还用问吗？

你是想在lisp程序中改宽度因子的数值？

gysjy · 发表于 2009-5-7 22:29:11

下面的程序可以实现修改高宽比的功能：
[PHP](defun c:nn ( / n sl ss) ;;修改文字高宽比
  (princ "\n==== 修改文字高宽比 gysjy  09.5.7 ====")
  (command "undo" "g")
  (princ "\n选择要改高宽比的文字：")
  (setq ss (ssget '((0 . "TEXT")))
      sl (sslength ss) n 0
      w (getreal "\n 输入新的高宽比<0.8>：")
  )
  (if (= w nil)(setq w 0.8))
  (while (> sl n)
(setq sn (ssname ss n) n (1+ n)
      en (entget sn)
      en (subst (cons 41 w) (assoc 41 en) en)
)
(entmod en)
  )
  (command "undo" "e")
  (princ)
)[/PHP]

userzhluserzhl · 发表于 2009-5-7 23:36:02

我对文字样式的组码进行修改时不知为何会出错.

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

[求助] [求助]： [求助]请教高手,如何修文字样式的高宽比?

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

相关帖子