[tuuuzzzik]

Необходимо получить координаты точки вставки мультивыноски из VBA. В справке для мультивыноски есть свойство Coordinates но оно не работает.
Просьба, подскажите: Какие есть варианты?!? ...такое вабще возможно?!? В поиске и гугле ничего не нашлось!

[Vildar]

У AcadLeader есть свойства Coordinates, и оно работает.
У AcadMLeader его нет почемуто. И аналога я не нашел. Может поможет GetBoundingBox, или покопаться в ExtensionDictionary.
Еще вариант, использовать лисп, там через dxf коды это должно быть можно сделать.
Ну и можно на NET перейти.

[AlexV]

Что-то типа:

Код:

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

Dim xxx As Variant
Dim Mlider As AcadMLeader
****
xxx = Mlider.GetLeaderLineVertices(0)

Что за аргумент в скобках, не знаю; в списке свойств в справке на A2010 сие свойство есть, но в описании видимо опечатка, - по ссылке приходишь на свойство "GetLeaderLineIndexes"

[Олег (jr.)]

Попробуй так

Код:

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

Option Explicit
'Tools->OPtions->Genreral tab->Error Rrapping-->Break on Unhandled Errors
Sub demo()
Dim varPt
Dim oEnt As AcadEntity
Dim i As Long
Dim util As AcadUtility
Dim ml As AcadMLeader

With ThisDrawing
Set util = .Utility
End With

On Error GoTo Err_Control

Do While True
With util
.GetEntity oEnt, varPt, vbLf & "Select multileader"
If TypeOf oEnt Is AcadMLeader Then
Set ml = oEnt

With ml
Dim pts() As Double

pts = .GetLeaderLineVertices(0)
Dim msg As String
msg = ""
For i = 0 To UBound(pts) Step 3
Dim pt(2) As Double

pt(0) = pts(i)
pt(1) = pts(i + 1)
pt(2) = pts(i + 2)

msg = msg & "( " & CStr(Round(pt(0), 3)) & vbTab & CStr(Round(pt(1), 3)) & vbTab & CStr(Round(pt(2), 3)) & " )" & vbCr
Next
MsgBox msg
End With

Else
MsgBox "Selected is not a mleader" & vbLf & "Exit..."
Exit Do
End If


End With

Loop

Exit_Here:
Exit Sub

[Vildar]

Опс, пропустил этот метод.
Вообще мультивыноски не прижились. Юзаем дин.блоки, или СПДС.

[tuuuzzzik]

Отлично!
.GetLeaderLineVertices(0) работает!
Спасибо.