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

shicai · 发表于 2002-11-25 10:56: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)
)

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.

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

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

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

发表回复

精选推荐