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

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

mikewolf2k 发表于 2004-7-14 19:24:00

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

xgngg 发表于 2004-7-14 20:17:00

给个例子好吗！

雪山飞狐_lzh 发表于 2004-7-15 10:50:00

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

查看完整版本: 求助，请高手帮我看一下错在那里，谢谢了！