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

glacier272

想请教以下各位专家，如下的问题：

我想编个程序，实现通过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 Variant



Private 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

glacier272

BlockObj.ScaleEntity basePoint, scalefactor 对象是否有问题？

glacier272

glacier272 发表于 2012-1-19 16:33
BlockObj.ScaleEntity basePoint, scalefactor 对象是否有问题？

请高手解决下啊