[VBA]单行文字的垂直排列

yuangw1234 · 发表于 2006-5-9 21:04:00

是字体的原因，你可以新建一行字，然后去变它的字体（用ed方法一个一个去变），看是哪种字体，我曾经变过，不过现在不记得是哪种字体了，如果找到后把这种字体发上来，因为我看这里有好几个人在找

xinghesnak · 发表于 2006-5-10 09:29:00

你先把你上传的两种字体放到CAD支持的路径下，然后在程序开始运行下面的程序

Set TextStyle = ThisDrawing.TextStyles.Add("Style-等线体(标准) V")
TextStyle.BigFontFile = "等线体(标准)big.shx"
TextStyle.fontFile = "等线体(标准).shx"

完毕后再用StyleName属性赋值就不会报错了，不过还是横行显示，所以你要到 <格式>----<文字样式>里的样式名中选中"Style-等线体(标准) V"。点中"效果"里的"垂直",退出并保存。再用StyleName属性赋值，就没有问题了。

dchlmz · 发表于 2006-5-10 10:05:00

手工可以做出来了，谢谢呀。

能不能用VBA写文字时直接实现？

xinghesnak · 发表于 2006-5-10 11:09:00

呵呵！我就是不知道怎么选中（垂直）的那个选择框，有高手能帮忙更好，学习学习！

dchlmz · 发表于 2006-5-10 11:53:00

是呀，怎么才能选中（垂直）的那个选择框？？？

高手赶紧帮忙呀。不过我还是十分感谢xinghesnak

cqy · 发表于 2006-5-11 13:42:00

选择基点, 建立循环确定插入点,应该可以,但结果是隋机的.

dchlmz · 发表于 2006-5-12 09:53:00

能详细的说说吗?

xinghesnak · 发表于 2006-5-13 08:48:00

cqy，你说的是什么意思？详细说说看。。。。

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