求助，请高手帮我看一下错在那里，谢谢了！

xgngg · 发表于 2004-7-14 18:44:00

Private Sub CommandButton1_Click()

   UserForm1.Hide


   Dim ss As AcadSelectionSet
   On Error Resume Next
   ThisDrawing.SelectionSets("mccad").Delete
   Set ss = ThisDrawing.SelectionSets.Add("mccad")

   '对象选择
   ThisDrawing.Utility.Prompt vbCr & "请选择复制的对象："
   ss.SelectOnScreen

   Dim pa1(0 To 2) As Double
   pa1(0) = 0: pa1(1) = 0: pa1(2) = 0


   Dim pa2(0 To 2) As Double
   pa2(0) = textbox1: pa2(1) = TextBox2: pa2(2) = 0

   '进行复制
   Dim ent As AcadEntity
   If ss.Count > 0 Then
   For Each ent In ss
   ent.Copy pa1, pa2
   Next
   End If