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

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

Private Sub CommandButton1_Click()<BR>               <BR>               UserForm1.Hide<BR>               <BR>                       <BR>                       Dim ss As AcadSelectionSet<BR>                       On Error Resume Next<BR>                       ThisDrawing.SelectionSets("mccad").Delete<BR>                       Set ss = ThisDrawing.SelectionSets.Add("mccad")<BR>                               <BR>                       '对象选择<BR>                       ThisDrawing.Utility.Prompt vbCr &amp; "请选择复制的对象："<BR>                       ss.SelectOnScreen<BR>                                <BR>                                                <BR>                       Dim pa1(0 To 2) As Double<BR>               pa1(0) = 0: pa1(1) = 0: pa1(2) = 0<BR>                       <BR>               <BR>               Dim pa2(0 To 2) As Double<BR>               pa2(0) = textbox1: pa2(1) = TextBox2: pa2(2) = 0<BR>                       



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

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<BR>错


应该是


ent.Copy.Move pa1,pa2
页: [1]
查看完整版本: 求助，请高手帮我看一下错在那里，谢谢了！