旋转文本_VBAExcel:nee
我使用此代码导入文本，但无法旋转文本。需要任何人的帮助。
Sub Txt（）
将ACAD作为AcadApplication进行Dim
将txObj设置为acadText
Dim rotObj作为AcRotationAngle
Dim ws As范围
双精度CrdNo（0到2）
Dim TxNo As字符串
Dim hNo作为双精度
Dim angl为双精度
将最后一行变暗为双行
Dim i为整数
尺寸j为整数
将k设置为整数
设置ws=工作表（“SCR”）。细胞
LastRow=ws（Rows.Count，20）。结束（xlUp）。一行
hNo=0.3
角度=90
对于i=2到最后一行
CrdNo（0）=ws（i，20）：CrdNo（1）=ws（i，21）：CrdNo（2）=“0”
TxNo=ws（i，21）
设置txObj=AcadApplication。ActiveDocument。模型空间。添加文本（TxNo、CrdNo、hNo）
'设置rotObj=AcadApplication。ActiveDocument。模型空间。添加图案填充。旋转（CrdNo，angl）'
下一个i
末端接头
谢谢你的帮助 只需使用
txObj.Rotation = angl
但请记住，角度是弧度。如果要旋转90度，必须设置
其他小问题请参见http://forums.augi.com/showthread.php?155004-VBA导入文本
再见 谢谢RICVBA，
它现在起作用了。。
*竖起大拇指*
页:
[1]