ScaleEntity error

[Anonymous]

I am useing a SelectionSet to get the Last entity that was create in the drawing. i.e. inserting a Block into drawing.

Then I am useing ScaleEntity on the entity in the Selection Set but keep getting this error message:
Run-time error '438':
Object doesn't support this property or method
What am I doing wrong?

I have a UserForm with a TextBox and a OK button and a Cancel button
---------------------------------
Private Sub cmdOK_Click()
' Create the selection set
Dim blkObj As AcadSelectionSet
Set blkObj = ThisDrawing.SelectionSets.Add("SSET2")
blkObj.Select acSelectionSetLast

MsgBox ("Selection set " & blkObj.Name & ", contains " & _
blkObj.Count & " items " & ", Scale Factor = " & TextBox1) _
, , "Selection Set info"

' Define the scale
Dim basePoint(0 To 2) As Double
Dim SCFT As Double
basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0
SCFT = TextBox1.Text

'Scale the Object
blkObj.ScaleEntity basePoint, SCFT

' Clear SelectionSet from memory
blkObj.Clear
blkObj.Delete
Unload UserForm1
End Sub
--------------------------------

[joesu]

Keith,

Give this a whirl and see what ya think!

Joe
--
Public Sub ScaleLastObject()
Dim oEntity As AcadEntity
With ThisDrawing.ModelSpace
Set oEntity = .Item(.Count - 1)
End With

If TypeOf oEntity Is AcadBlockReference Then
Dim oBlockRef As AcadBlockReference
Set oBlockRef = oEntity
oBlockRef.ScaleEntity oBlockRef.InsertionPoint, 2.5
End If
End Sub

[Anonymous]

Thanks, That worked GREAT.
Keith