[求助]：为什么不能移动所选对象??

karl_chan

以下为VB中的程序
模块中写:
Option Explicit
Dim acadApp As Object
Dim Preference As Object
Dim acaddoc As Object
Dim Paspace As Object
Dim MoSpace As Object

Public rp As Variant


form1写:

Private Sub Command1_Click()

On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
   Err.Clear
   Set acadApp = CreateObject("AutoCAD.Application")
   If Err Then
      MsgBox Err.Description
      Exit Sub
   End If
End If

acadApp.Visible = True
Set Preference = acadApp.Preference
Set acaddoc = acadApp.ActiveDocument
Set MoSpace = acaddoc.ModelSpace
Set Paspace = acaddoc.PaperSpace

Dim sl As AcadSelectionSet
Dim i As Integer

Dim ctr(0 to 2) As Double
Dim g(0 To 2) As Double


On Error Resume Next
acaddoc.SelectionSets("sel").Delete
Set sl = acaddoc.SelectionSets.Add("sel")

rp = acaddoc.Utility.GetPoint(, "select a region: ")
sl.SelectAtPoint rp

ctr(0) = 100
ctr(1) = 100
ctr(2) = 0
g(0) = 0
g(1) = 0
g(2) = 0

sl.Item(i).Move ctr, g

End Sub
请问为什么不能移动所选对象

不好意思,以上程序没有错误

yunzhong80

在sl.Item(i).Move ctr, g 前加一句
acadDoc.Application.ZoomAll()

misters

acaddoc.sendcommond "move" & 对象