Question

CAD VBA 标注角度问题

CAD VBA 利用循环标注文字 但每次最后一个都不正常，下面是其中一段代码
'设计高程
With Sheets("中桩坐标")

i = 3
Do Until .Cells(i, 2).value = ""

Set newLayer = DOC.Layers("标注")
DOC.ActiveLayer = newLayer
newLayer.Color = acCyan

dmPnt(0) = (.Cells(i, 2).value - first) * 1.0001 + 50: dmPnt(1) = 112: dmPnt(2) = 0
txtStr = Format(.Cells(i, 5).value, "00.00")
txtHeight = 4
TextObj.Rotation = 3.14159 / 2
insPnt = dmPnt
Set TextObj = DOC.ModelSpace.AddText(txtStr, insPnt, txtHeight)
i = i + 1

Loop

若以下回答无法解决问题，邀请你更新回答

Answer 1

这段语句中你定义了文本旋转角度为90度，但循环次数的参数有点乱。因为代码为一部分，看不到其它内容无法测试。你重点看一下循环次数的参数有无问题吧。