请看如下程序，如何实现这些功能？

XJ_HE

Private Sub CommandButton1_Click()
Dim a As AcadText
Dim P1(2) As Double
Dim I As Integer,j as integer
I = 1
P1(0) = 0
P1(1) = 0
P1(2) = 0
Do While I < 21
  P1(1) = P1(1) + 13
  j=3
  do while j>0
     Set a = ThisDrawing.ModelSpace.AddText("F" & I & "-A" & j & "/4.2dBm" , P1, 3.5)
    ThisDrawing.Application.Update
    j=j-1
  loop
  I = I + 1
Loop
End Sub



1。如何在每次CAD运行时就加载本程序。

2。如何利用鼠标在屏幕上拾取获得文字间距。

3。是否可以在复制的同时实现文字F1-F21的系列

mccad

给你个回车继续填写，取消则退出的程序：

2. '判断某一键盘键自上次调用该函数以来是否被按过的API函数
   
3. Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
   
4. 
   
5. Private Const VK_ESCAPE = &H1B
   
6. 
   
7. Sub DimNum()
   
8.     On Error Resume Next
   
9.     Dim ESC As Long
   
10.     GetAsyncKeyState VK_ESCAPE
    
11.     Dim kk As String
    
12.     Dim a As AcadText
    
13.     Dim P1 As Variant
    
14.     Dim I As Integer
    
15.     P1 = ThisDrawing.Utility.GetPoint(, vbCrLf & " 请选择标注点：")
    
16.     Dim Dist As Double
    
17.     Dist = ThisDrawing.Utility.GetDistance(P1, vbCrLf & " 请输入距离：")
    
18.     I = ThisDrawing.Utility.GetInteger(vbCrLf & " 请输入起始的楼层号：")
    
19.     Do
    
20.         kk = ThisDrawing.Utility.GetKeyword(vbCrLf & " 按回车标注第" & I & "层，按取消键退出标注")
    
21.         ESC = GetAsyncKeyState(VK_ESCAPE)
    
22.         If ESC <> 0 Then
    
23.             Exit Do
    
24.         Else
    
25.             Set a = ThisDrawing.ModelSpace.AddText("F" & I & "层", P1, 3.5)
    
26.             ThisDrawing.Application.Update
    
27.             I = I + 1
    
28.             P1(1) = P1(1) + Dist
    
29.         End If
    
30.     Loop
    
31. 
    
32. End Sub
    

'判断某一键盘键自上次调用该函数以来是否被按过的API函数<br /> Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer<br /> <br /> Private Const VK_ESCAPE = &H1B<br /> <br /> Sub DimNum()<br />     On Error Resume Next<br />     Dim ESC As Long<br />     GetAsyncKeyState VK_ESCAPE<br />     Dim kk As String<br />     Dim a As AcadText<br />     Dim P1 As Variant<br />     Dim I As Integer<br />     P1 = ThisDrawing.Utility.GetPoint(, vbCrLf & " 请选择标注点：")<br />     Dim Dist As Double<br />     Dist = ThisDrawing.Utility.GetDistance(P1, vbCrLf & " 请输入距离：")<br />     I = ThisDrawing.Utility.GetInteger(vbCrLf & " 请输入起始的楼层号：")<br />     Do<br />         kk = ThisDrawing.Utility.GetKeyword(vbCrLf & " 按回车标注第" & I & "层，按取消键退出标注")<br />         ESC = GetAsyncKeyState(VK_ESCAPE)<br />         If ESC <> 0 Then<br />             Exit Do<br />         Else<br />             Set a = ThisDrawing.ModelSpace.AddText("F" & I & "层", P1, 3.5)<br />             ThisDrawing.Application.Update<br />             I = I + 1<br />             P1(1) = P1(1) + Dist<br />         End If<br />     Loop<br /> <br /> End Sub<br />