» Помогите создать макрос масштабирование

Помогите создать блок масштабирование на VBA. Нужно выделить все объекты и увеличить их на 1000 с опорной точкой в начале координат. Я делал так:
Sub Test()
Dim sset As AcadSelectionSet

Set sset = ThisDrawing.SelectionSets.Add("SS1")
' Запрос объектов от пользователя, Enter - конец ввода
sset.Select acSelectionSetAll
ZoomExtents
Dim basePoint(0 To 2) As Double
Dim scalefactor As Double
basePoint(0) = 0: basePoint(1) = 0: basePoint(2) = 0: scalefactor = 1000
sset.ScaleEntity basePoint, scalefactor
sset.Update

End Sub

Но выдает ошибку типа у объекта sset As AcadSelectionSet нет метода ScaleEntity, как быть?

sashafedorov82, есть подозрение, что ScaleEntity необходимо вызывать на каждом объекте в отдельности. Нужно смотреть документацию AutoCad-a(это же про него, я правильно понял?) по скриптованию.

Да это про AutoCAD.

sashafedorov82
Погуглите.
Вот например http://forums.autodesk.com/t5/visual-basic-customization/scaleentity-error/td-p/356840