[求助]各位老师: cad 中如何按图层进行一次性替换所有字体高度?

guod

各位老师: cad 中如何按图层进行一次性替换所有字体高度?

jxlcrystal

先把图层分离出来，然后用菜单modify－－>object－－>text－－>scale命令，或直接用scaletext命令。

guod

多谢各位老师!

hrbzxl

按图层选择要修改的文字，在属性中修改

winabcd

如果想用lsip语言实现，应如何？

xqyhome

winabcd发表于2004-12-9 10:38:00如果想用lsip语言实现，应如何？

( DEFUN C:ZG (/ H SS ENMING ED H I LEN ) ;改变字高
( PRINC "请选择要修改字体高度的文字实体集:")
( SETQ SS (SSGET))
( SETQ H (GETREAL "字高="))
( SETQ LEN (SSLENGTH SS))
( SETQ I 0)
( WHILE (< I LEN)
( SETQ ENMING (SSNAME SS I))
( SETQ ED (ENTGET ENMING))
;-----------------------------------------------
( IF (EQUAL (CONS 0 "TEXT") (ASSOC 0 ED))
(PROGN
( SETQ ED
( SUBST (CONS 40 H) (ASSOC 40 ED) ED)
)
( ENTMOD ED)
)
)
;--------------------------------------------
( IF (EQUAL (CONS 0 "MTEXT") (ASSOC 0 ED))
(PROGN
( SETQ ED
( SUBST (CONS 40 H) (ASSOC 40 ED) ED)
)
( ENTMOD ED)
)
)
;--------------------------------------------
( SETQ I (1+ I))
)
)

winabcd

楼上的程序不错，对我很有帮助，谢谢！

ouyangboyi

受益匪浅

wengsg

还不如用“特性”来修改文字属性。