如何在vlisp程序中重新定义text字的宽度?

shicai · 发表于 2002-11-25 10:56:00

alin · 发表于 2002-11-26 14:25:00

陈伯雄 · 发表于 2002-11-27 10:39:00

(Defun C:TW ()
   (SetQ el (EntGet (Car (EntSel "\n文字: ")))
      tw (GetDist "\n新宽度: ")
   )
   (SetQ el (Subst (Cons 41 tw) (Assoc 41 el) el))
   (EntMod el)
)

shicai · 发表于 2002-11-28 03:39:00

shicai · 发表于 2002-11-28 03:41:00

alin · 发表于 2002-11-28 10:07:00

For example, the font style I want to change is "ISO3098'
The following code can change its width from 1.0 to 2.0

(command "-style" "ISO3098B" "" "" 2.0 "" "" "" "")

You have to regen the drawing to show the effects.

shicai · 发表于 2002-11-28 11:21:00

陈伯雄 · 发表于 2002-11-28 12:38:00

cy956 · 发表于 2002-11-28 15:40:00

不同的字体有不同的“”数，和竖排文字有关。
建议你用entmake做，在本版另一个帖子里面讨论过的。

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

如何在vlisp程序中重新定义text字的宽度?

(command "-style" ...) ???

这样做...

陈兄的程序增加了一个多余的手动操作, 是否繁琐了些?

"-style"我也试过不行, 能否在详细点? 谢谢!

example...

搞定. 可能我的""个数不对. 再次感谢.

这属于“模拟程序”，为说明方法和测试之用...

用style你还会碰到“”次数不对的情况。