[sychalex]

Добрый день. Помоги пож. новичку. Задача: необходимо вывести координаты выделенного блока. Вот что я смог написать:


Sub TES()
Dim objAcEnt As AcadEntity
Dim strPrmt As String
Dim varMPnt(0 To 2) As Variant
strPrmt = vbCr & "Выберете блок " & strVerb & ":"
ThisDrawing.Utility.GetEntity objAcEnt, varMPnt, strPrmt


MsgBox varMPnt(1)
End Sub

Вопрос: как назначить переменным координаты выделенного блока?

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

Что за координаты? Координаты точки вставки? Координаты описанного параллелограмма?

[sychalex]

наверное, координаты точки вставки блока. В свойствах блока - геометрия - указанные координаты Х и У. я хочу эти значения извлечь в память для дальнейшей работы.

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

Примерно так...

Код:

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

Sub TES()
Dim objAcEnt As AcadEntity
Dim strPrmt As String
Dim varMPnt(0 To 2) As Variant
strPrmt = vbCr & "Выберете блок " & strVerb & ":"
ThisDrawing.Utility.GetEntity objAcEnt, varMPnt, strPrmt

MsgBox objAcEnt.InsertionPoint(0) + ";" + objAcEnt.InsertionPoint(1) + ";" + objAcEnt.InsertionPoint(2)
MsgBox varMPnt(1)
End Sub

[sychalex]

Так пробовал, ругается программа:

[TararykovDG]

sychalex, попробуй так

Код:

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

Sub TES()
Dim returnObj As AcadBlockReference
Dim strPrmt As String
Dim varMPnt(0 To 2) As Variant
strPrmt = vbCr & "Выберете блок " & strVerb & ":"


On Error Resume Next

ThisDrawing.Utility.GetEntity returnObj, varMPnt, strPrmt
    
If Err <> 0 Then
    Err.Clear
    MsgBox "Выбранный примитив не является вхождением блока"
    Exit Sub
Else
    MsgBox Str(returnObj.InsertionPoint(0)) + ";" + Str(returnObj.InsertionPoint(1)) + ";" + Str(returnObj.InsertionPoint(2))
End If

End Sub

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

У меня сейчас только 2012 64 бит, без поддержки VBA. Возможно, надо менять типы переменных: objAcEnt на AcadObject, varMPnt без указания массива на Variant. Если появятся спецы по VBA, они разрулят вопрос...
А вот и подтянулись спецы