[olga87]

Здравствуйте Уважаемые программисты AutoCAD / NanoCAD!

Подскажите пожалуйста, как в excel-vba после того как нужный блок "помечен" - blockObj.HIGHLIGHT True, затем выбрать его (select)?
Т.е. в NanoCAD блок при

Код:

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

blockObj.HIGHLIGHT True

True "помечается", но "без ручек". Но если этот блок выделить кликом мышкой, то он выбирается. Как сделать это программно на vba-excel?


entHandle = ActiveCell.Offset(0, -4).Value
Set blockObj = acadDoc.HandleToObject(entHandle)

blockObj.HIGHLIGHT True '? добавить выбор этого блока (иначе зуммирование блока работает некорректно)


blockObj.GetBoundingBox varMin, varMax
If varMax(0) > varMax1(0) Then varMax1(0) = varMax(0)
If varMax(1) > varMax1(1) Then varMax1(1) = varMax(1)
If varMin(0) < varMin1(0) Then varMin1(0) = varMin(0)
If varMin(1) < varMin1(1) Then varMin1(1) = varMin(1)

vbdBoundingBox1 = Array(varMin1, varMax1)
Dim varZoomWindow As Variant
acadDoc.Application.ZoomWindow vbdBoundingBox1(0), vbdBoundingBox1(1)

Заранее спасибо!

----- добавлено через ~11 мин. -----
Из командной строки в NanoCAD работает так

Код:

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

(command "_ZOOM" "_O" (handent "175C") "")

Как это же прописать в vba-excel?

[Кулик Алексей aka kpblc]

А никак. В СОМ нет вариантов полноценной подсветки выбора (с ручками)

[olga87]

Сообщение от Кулик Алексей aka kpblc А никак. В СОМ нет вариантов полноценной подсветки выбора (с ручками)

Спасибо!