Question

请教VB二次开发CAD中插入多个单行文字操作！

下面代码能实现在指定位置插入一个单行文字的功能，请问我要在一个CAD文件中的多个位置插入不同内容的当行文字该如何实现？这一步很重要，希望高手们能够帮我解答，先谢谢大家了！
Private Sub Command1_Click()
Dim styobj1 As AcadTextStyle
Dim typeFace As String
Dim Bold As Boolean
Dim Italic As Boolean
Dim charSet As Long
Dim PitchandFamily As Long
Set styobj1 = acadapp.ActiveDocument.TextStyles.Add("黑体")
typeFace = "黑体"
Italic = False
Bold = True
charSet = 1
PitchandFamily = 1 Or 16
styobj1.SetFont typeFace, Bold, Italic, charSet, PitchandFamily
styobj1.width = 0.75
Dim textobj As AcadText
Dim textstring As String
Dim insertionpoint(0 To 2) As Double
Dim height As Double
Dim width As Double
Dim returnPnt As Variant
textstring = Right((Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)), Len(Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)) - 3)
height = 3
returnPnt1 = ActiveDocument.Utility.GetPoint(, "指定文字插入点: ")
returnPnt2 = ActiveDocument.Utility.GetPoint(, "指定下一个文字插入点: ")
insertionpoint(0) = (returnPnt1(0) + returnPnt2(0)) / 2: insertionpoint(1) = (returnPnt1(1) + returnPnt2(1)) / 2: insertionpoint(2) = (returnPnt1(2) + returnPnt2(2)) / 2
acadapp.ActiveDocument.ActiveTextStyle = styobj1
Set textobj = acadapp.ActiveDocument.PaperSpace.AddText(textstring, insertionpoint, height)
textobj.Alignment = acAlignmentMiddleCenter
textobj.TextAlignmentPoint = insertionpoint
textobj.Update
End Sub

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏5（财富值+成长值）

Answer 1

加一个循环就是了。
但是要设一个循环退出机制。
dim i as integer
i=0
do
i=i+1
。。。
loop unitl i=3

上面的省略号前的可以写在
Dim returnPnt As Variant 下一行

上面的省略号后的可以写在
End Sub 前一行

追问

大神，提醒缺少语句结束，该怎么处理？

追答

^_^
应该是until

追问

恩，傻缺了，大神能不能加我Q，还有几个小问题，希望能够帮忙解答一下，这个对我来说很重要！我的Q295 77 952

追答

sorry，本人珍惜动物，没q！
这个百度账号也不是我的，今天是爱心泛滥了才来做好事的。
^_^

追问

好吧，那我就继续这么问吧，我想通过下面语句控制输入文字个数，但是都是在运行一个之后才弹出要输入文字个数的对话框，请问该怎么调整？还有我想每个输入单行文字的内容都不一样，该如何处理？

Dim i As Integer
i = 0
Do
i = i + 1

。。。

Loop Until i = Val(InputBox("插入字符数", "", 4))
If i = 0 Then i = 4

Answer 2

把这一段i=0Doi=i+1。。。LoopUntili=Val(InputBox("插入字符数","",4))Ifi=0Theni=4改成如下TextLength=Val(InputBox("插入字符数","",4))fori=0toTextLength.nexti

Answer 3

太高级了，不懂