[Makswell]

Всем привет.
Собственно требуется создать программно мультивыноску. Не знаю как?
У объекта ModelSpace есть метод AddMLeader.
У Полещука описание этого метода отсутствует.
Единственная инфа, которую нашёл, оказалась в справке:

AddMLeader method Signature RetVal = object.AddMLeader(pointsArray, leaderLineIndex) Object ModelSpace Collection, PaperSpace Collection, Block The object or objects this method applies to. pointsArray Variant (three-element array of Doubles); input-only The array of 3D WCS coordinates specifying the leader. You must provide at least two point to define the leader. The third point is optional. leaderLineIndex Long; input-only Input index of the mleader cluster. RetVal MLeader object The newly created MLeader object.

И пример оттуда же:

Sub Example_AddMLeader() Dim oML As AcadMLeader Dim points(0 To 14) As Double ' Define the leader points points(0) = 1: points(1) = 1: points(2) = 0 points(3) = 1: points(4) = 2: points(5) = 0 points(6) = 2: points(7) = 2: points(8) = 0 points(9) = 3: points(10) = 2: points(11) = 0 points(12) = 4: points(13) = 4: points(14) = 0 Dim i As Long Set oML = ThisDrawing.ModelSpace.AddMLeader(points, i) End Sub

Пока ничего не понятно. Может кто расшифрует этот код применительно к лиспу, т.к. VBA я не знаю.

[posetitel]

Theodor, точно об одном и том же. Попробуй нажать на миниатюру, тогда в полном размере будет видно, как текст выноски можно смещать вместе с курсором и выбирать, куда лучше разместить на чертеже.
Сергей812, прогулялся по ссылке, там как раз то, что нужно, но написано, опять же, через функцию. Через отдельную функцию и на лиспе было реализовано. Я то полагал, что это можно просто одним параметром указать при вызове мультивыноски, ну либо какую переменную в автокаде поменять.

[Сергей812]

Сообщение от posetitel прогулялся по ссылке, там как раз то, что нужно, но написано, опять же, через функцию.

но реализовано на основе готового EntityJig базового класса, а не через пользовательские костыли.

[posetitel]

сразу не въехал, спасибо, присмотрюсь

[posetitel]

Похоже, такого функционала на VBA и не реализовать в принципе.
На лиспе можно, на С# можно, а вот на VBA нет

[Сергей812]

Сообщение от posetitel Похоже, такого функционала на VBA и не реализовать в принципе.

VBA в МС-офисе родной, в акаде он прикручен сбоку через одно место. Даже не загрузить готовый VBA проект в акад без установленной среды разработки VBA - в отличие от остальных ЯП для разработки надстроек. Поэтому ничего удивительного, что в VBA не полный доступ ко всему API акада (хотя лисп тоже не полный доступ дает, но на нем хотя бы имитацию jig можно сделать).