[Елена_врн]

В 2009м автокаде написаны на макросы, работающие с объектами AcadSelectionSet. В 2012м автокаде вызов метода sel.SelectOnScreen или ThisDrawing.ActiveSelectionSet приводят к ошибкам. В чем может быть причина?

[gomer]

потому что

[maratovich]

Сообщение от gomer потому что

потому что ... сервиспак ?

[gomer]

потому что непонятна

[Елена_врн]

У кого стоит acad2012 попробуйте, пожалуйста, может какие то галочки в References у меня не хватает...

Код:

[Выделить все]

Sub CopyObject()
'Копирование объекта
Dim sel As AcadSelectionSet
Dim obj
Dim i
On Error GoTo A
ans = MsgBox("Копировать текущее выделение?", vbQuestion + vbYesNoCancel)
Select Case ans
    Case 6
        Set sel = ThisDrawing.ActiveSelectionSet
    Case 2
        Exit Sub
    Case 7
        Set sel = ThisDrawing.SelectionSets.Add("SelTemp")
        sel.SelectOnScreen
End Select
    For i = 0 To sel.count - 1
        Set obj = sel.Item(i).Copy
        obj.Layer = ThisDrawing.ActiveLayer.name
        obj.TrueColor = ThisDrawing.ActiveLayer.TrueColor
    Next i
A:
sel.Delete
End Sub