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

xgngg

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

mikewolf2k

pa1,pa2要定义为variant,然后用取得的一个点赋值。不能直接定义为数组。

xgngg

给个例子好吗！

雪山飞狐_lzh

ent.Copy pa1, pa2
错 应该是 ent.Copy.Move pa1,pa2