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

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

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

<P>你先把你上传的两种字体放到CAD支持的路径下，然后在程序开始运行下面的程序</P>
<P>Set TextStyle = ThisDrawing.TextStyles.Add("Style-等线体(标准) V")<BR>TextStyle.BigFontFile = "等线体(标准)big.shx"<BR>TextStyle.fontFile = "等线体(标准).shx"</P>
<P>完毕后再用StyleName属性赋值就不会报错了，不过还是横行显示，所以你要到 &lt;格式&gt;----&lt;文字样式&gt;里的样式名中选中"Style-等线体(标准) V"。点中"效果"里的"垂直",退出并保存。再用StyleName属性赋值，就没有问题了。</P>

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

<P>手工可以做出来了，谢谢呀。</P>
<P>能不能用VBA写文字时直接实现？</P>

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

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

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

<P>是呀，怎么才能选中（垂直）的那个选择框？？？</P>
<P>高手赶紧帮忙呀。不过我还是十分感谢xinghesnak</P>

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

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

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

能详细的说说吗?

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

cqy，你说的是什么意思？详细说说看。。。。
页: 1 2 [3]
查看完整版本: [VBA]单行文字的垂直排列