[AnteC]

Есть процедура
Private Sub Cross3DPoint(Cheked3DPline As Acad3DPolyline)
В которая почти аналогична
Private Sub CrossPoint(ChekedPline As AcadLWPolyline)

отличия заключаются в получении координат -
X21 = ChekedPline.Coordinates(ii * 2) у AcadLWPolyline и
X21 = Cheked3DPline.Coordinates(ii * 3) у Acad3DPolyline

Те встречаются варианты с обычными полилиниями и с 3D полилиниями. Для них нужно вычислить точки пересечения с другой полилинией.
Логично предположить, что можно использовать за место Acad3DPolyline - AcadObject и иметь всего 1 процедуру за место двух (меньше места в коде + неудобно править сразу 2 процедуры)
Но при использовании:

Код:

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

If TypeOf Cheked3DPline Is Acad3DPolyline Then
            X21 = Cheked3DPline.Coordinates(ii * 3)
        Else
            X21 = Cheked3DPline.Coordinates(ii * 2)
        End If

при i=0 получаю Run-time error 451. Property let procedure not defined and property get procedure did not return an object
при выполнении X21 = Cheked3DPline.Coordinates(ii * 3). Хотя в окне Watches прекрасно вижу Cheked3DPline.Coordinates(0)
Возможно ли все-таки использовать 1 процедуру за место двух?

ПС и еще небольшой вопрос
При использовании ThisDrawing.StartUndoMark и ThisDrawing.EndUndoMark можно ли как-то переименовать отменяемое действие?
Т.е. при их использовании в окне undo акада появляется "группа команд" , можно ли изменить например на "Макрос А"?

[Олег (jr.)]

Попробуй использовать SendCommand в конце программы, например

Код:

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

Sub MainProgramCommands()
With ThisDrawing
.StartUndoMark
Call MacrosA()
Call MacrosB()
'--------------------'
Call MacrosZZZ()
.EndUndoMark
Dim cmd as string
cmd="_U" & vbcr
.SendCommand cmd
.Regen 0
end with
End Sub

[AnteC]

Возможно я запутано выразился. Мне не нужно отменять действие, я хочу удобочитаемое название в списке undo (не знаю как он правильно называется - появляется при нажатии на стрелку вниз на кнопке undo) акада, для того, чтобы пользователю после выполнения программы было легко отличить это действие в списке.

[Олег (jr.)]

Сомневаюсь что это возможно на VBA извини

[Александр Ривилис]

Сообщение от AnteC Т.е. при их использовании в окне undo акада появляется "группа команд" , можно ли изменить например на "Макрос А"?

Нельзя.