VBA的问题，请教各位高手！

microgerm

我用VBA做了个窗体，上面有个BUTTON，目的是点击改按钮在图上花直线，但每次点击都出错，说AUTO CAD主窗体不可见，请问如何解决？

mccad

这是按钮的点击事件，没有问题的：

2. Private Sub CommandButton1_Click()
   
3.     Dim P1(2) As Double
   
4.     Dim P2(2) As Double
   
5.     Dim Line As AcadLine
   
6.     P1(0) = 5: P1(1) = 5
   
7.     P2(0) = 25: P2(1) = 50
   
8.     Set Line = ThisDrawing.ModelSpace.AddLine(P1, P2)
   
9.     ThisDrawing.Regen acActiveViewport
   
10. End Sub
    

Private Sub CommandButton1_Click()<br />     Dim P1(2) As Double<br />     Dim P2(2) As Double<br />     Dim Line As AcadLine<br />     P1(0) = 5: P1(1) = 5<br />     P2(0) = 25: P2(1) = 50<br />     Set Line = ThisDrawing.ModelSpace.AddLine(P1, P2)<br />     ThisDrawing.Regen acActiveViewport<br /> End Sub<br />