我想编个程序，实现通过SelectOnScreen选择块后对块的编辑以及对块的缩放

glacier272 · 发表于 2012-1-19 16:09:00

想请教以下各位专家，如下的问题：
我想编个程序，实现通过SelectOnScreen选择块后对块的编辑以及对块的缩放，但调试时老出现问题：运行时错误‘424' 要求对象程序如下：
Option Explicit
Public BlockObj As AcadObject                '定义块
Dim BlockObjAttributes As Variant          '定义属性
Dim i As Integer                            '定义循环变量
Public BlockName As String                '定义块名称
Dim sset As AcadSelectionSet          '定义sset对象
Dim handle As VariantPrivate Sub CommandButton1_Click()
  Me.Hide                                     '退出窗体
  On Error Resume Next
ThisDrawing.SelectionSets.Item("BlockEdit").Delete
Set sset = ThisDrawing.SelectionSets.Add("BlockEdit")
sset.SelectOnScreen                                                 '在屏幕上选择对象

  Set BlockObj = ThisDrawing.HandleToObject(sset.Item(0).handle)       '通过句柄获得块,获取与给定句柄对应的对象
  BlockName = BlockObj.Name                                           '获取块名称
BlockObjAttributes = BlockObj.GetAttributes                         '获取块属性
Me.Show                                                                                     '显示窗体

End Sub
Private Sub CommandButton2_Click()
Dim basePoint(0 To 2) As Double
Dim scalefactor As Double
basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0
scalefactor = 0.5
BlockObj.ScaleEntity basePoint, scalefactor
End Sub