[samaratopograf]

Добрый день уважаемые форумчане.

Добавляю в свой чертеж MText программно (на VBA. AutoCAD 2014). У MText есть такое свойство, как скрытие заднего плана .BackgroundFill.
Программно его можно установить в .BackgroundFill = True. А вот как добраться, а главное изменить коэффициент перекрытия?
По умолчанию, коэффициент перекрытия имеет значение 1.5. А мне хотелось бы программно его менять.
На форумах ничего такого не нашел.

[Сергей812]

Сообщение от samaratopograf Спасибо за код, но я на VB пишу.

значит, смиритесь) Даже в Net API не на всю объектную модель акада сделали реализацию оберток по сравнению с ObjectARX, а в COM-интерфейсе и подавно.

----- добавлено через ~1 мин. -----
Boxa, vb - это VBA скорее, судя по заголовку.. а не VB.NET

[samaratopograf]

Сообщение от Boxa а что это меняет? методы и свойства одни и те же, синтаксис только разный

Да в принципе ничего. Спасибо еще раз за помощь ...

[baksconstructor]

Сообщение от samaratopograf Есть. Выше писал. Это коэффициент перекрытия в скрытии заднего плана.

А теперь попробуйте найти :
https://knowledge.autodesk.com/searc...9FE30-htm.html
Это сторонняя настройка, поэтому и нужно подключать AcDbMgd.dll

Сообщение от Сергей812 в Net API - смотрите верхнюю и предпоследнюю строчку скриншота от Boxa в посте №2

он берёт не объект, а свойства примитива, меняет их и отправляет через WriteMessage на строну.

----- добавлено через ~2 мин. -----
Поэтому ни VBA ни Lisp ни СОМ работать не будут, нет этого в автокаде.

[samaratopograf]

Сообщение от Сергей812 Даже в Net API не на всю объектную модель акада сделали реализацию оберток по сравнению с ObjectARX,

Библиотеку ObjectARX и подключил. Все работает .

Сообщение от Сергей812 vb - это VBA скорее, судя по заголовку.. а не VB.NET

Да вроде в заголовке VBA написано)))

[Boxa]

Код:

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

Public Class acad__boxashu

    <CommandMethod("GetMtext")>
    Public Sub GetMtext()

        '' Получениеn текущего документа и базы данных
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim acEd As Editor = acDoc.Editor

        Dim opt1 As PromptEntityOptions = New PromptEntityOptions("Выбери ьтекст:")
        opt1.AllowNone = False

        Dim res1 As PromptEntityResult = acEd.GetEntity(opt1)
        If res1.Status <> PromptStatus.OK Then
            Exit Sub
        End If

        '' Старт транзакции
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

            Dim acMText As MText = acTrans.GetObject(res1.ObjectId, OpenMode.ForRead)
            acEd.WriteMessage(
                    $"BackgroundFill:{acMText.BackgroundFill}; " +
                    $"BackgroundFillColor:{acMText.BackgroundFillColor}; " +
                    $"BackgroundScaleFactor:{acMText.BackgroundScaleFactor}")
            ' Сохранение нового объекта в базе данных
            acTrans.Commit()
            ' Очистка транзакции
        End Using
    End Sub
End Class

[Сергей812]

Сообщение от samaratopograf Библиотеку ObjectARX и подключил. Все работает .

рад за вас - это серьезное продвижение: с VBA на ObjectARX перейти за несколько дней и чтобы при этом все работало.

[trir]

Это сторонняя настройка, поэтому и нужно подключать AcDbMgd.dll

тоже самое можно сказать про VBA и Lisp
Истинный AutoCAD это ObjectARX, а остальное лишь надстройки

[Сергей812]

Сообщение от baksconstructor Это сторонняя настройка, поэтому и нужно подключать AcDbMgd.dll

Т.е. хотите сказать, что Аутодеск кидает в корневую папку акада какие то сторонние библиотеки?

Сообщение от baksconstructor он берёт не объект, а свойства примитива, меняет их и отправляет через WriteMessage на строну.

не поверите, любой примитив что в VBA, что в Net API - это объект)

[samaratopograf]

Спасибо. Я стараюсь))

----- добавлено через ~9 мин. -----

Сообщение от Boxa Код:

Спасибо за код.
Учиться, учиться и еще раз учиться .........

[Сергей812]

Если начали упираться в ограничения VBA объектной модели акада, но страшно переходить на Net полностью - можно в одной сборке (язык VB.NET) писать как в VBA-стиле (Interop), так и в Net. Это плохой стиль программирования, но вы же не на сторону пишете скорее всего.

[Boxa]

baksconstructor, Спасибо. Вы сделали мой день.

Сообщение от samaratopograf Библиотеку ObjectARX и подключил. Все работает . Да вроде в заголовке VBA написано)))

А вот как Вы к VBA, ARX библиотеки прицепили и это еще и заработало, для меня загадка

ЗЫ.
скопировав отправку сообщения из C# в код VB.NET с удивлением обнаружил, что оператор конкатенации $ и тут работает... я особо за развитием VB.NEt не слежу, но прикольно.

[baksconstructor]

Offtop:

Сообщение от Boxa baksconstructor, Спасибо. Вы сделали мой день.

Всегда рад направить на путь истинный

[Сергей812]

Offtop:

Сообщение от Boxa А вот как Вы к VBA, ARX библиотеки прицепили и это еще и заработало, для меня загадка

Ибо VBA - это вершина программирования, а все остальное - чистые понты. Объясняли же недавно)

[samaratopograf]

Сообщение от Boxa А вот как Вы к VBA, ARX библиотеки прицепили и это еще и заработало, для меня загадка

ХИ))))

Я же написал, что поставил себе Visual Studio 2015(VS2015).

[Владимир_М]

Offtop:

Сообщение от Сергей812 Ибо VBA - это вершина программирования

А не поделитесь ссылочкой (конкретной), где и кто это утверждал? Любопытно было бы взглянуть

[baksconstructor]

Offtop:

Сообщение от Сергей812 Ибо VBA - это вершина программирования, а все остальное - чистые понты. Объясняли же недавно)

Повторюсь - не знаю как некоторые, но люди на VB6 (VBA) делают то что другим и не снилось.

Сообщение от Владимир_М Любопытно было бы взглянуть

Здеся мы, я не программист, я пользователь, и как пользователь это утверждаю.

[trir]

библиотеки NET API лежат в папке AutoCAD'а (а ещё их можно поставить через nuget) - для этого не обязательное качать ObjectARX SDK (тем более, что они там другие), хотя там есть много полезного

Повторюсь - не знаю как некоторые, но люди на VB6 (VBA) делают то что другим и не снилось.

знаем

[Сергей812]

Сообщение от Владимир_М А не поделитесь ссылочкой (конкретной), где и кто это утверждал? Любопытно было бы взглянуть

вы участвовали в общении в этой ветке, и недавно.

Сообщение от baksconstructor но люди на VB6 (VBA) делают то что другим и не снилось.

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

[Владимир_М]

Offtop:

Сообщение от Сергей812 вы участвовали в общении в этой ветке, и недавно.

Да, конечно, и я это прекрасно помню... Но я просил именно ссылку на конкретную цитату... Ну да ладно, baksconstructor, уже ответил.
Вопрос снимается...

[MapperPro]

Сообщение от samaratopograf Добавляю в свой чертеж MText программно (на VBA. AutoCAD 2014). У MText есть такое свойство, как скрытие заднего плана .BackgroundFill.

Добрый день уважаемые форумчане! Тема старая, но не менее актуальная.
Вопрос изначально был о доступе к свойствам MTEXT из-под VBA. Для себя решил эту задачу при помощи VLAX. Недавно (2022).

Код:

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

Option Explicit

Sub testPropBackScaleVL()
Dim myBackScale As Double
Dim myBackColor As Integer
Dim pnt(0 To 2) As Double
Dim objVL As Vlax

    Set objVL = New Vlax
    pnt(0) = 200: pnt(1) = 300: pnt(2) = 0
    myBackScale = 1
    myBackColor = 3
    
    With ThisDrawing.ModelSpace.AddMText(pnt, 0, "Proverka")
        .AttachmentPoint = acAttachmentPointMiddleCenter
        .Height = 2.5
        .color = 5
        .BackgroundFill = True
        .Update
    End With

    objVL.GetLispSymbol "(setpropertyvalue (entlast) ""BackgroundScaleFactor"" " & myBackScale & ")"
    objVL.GetLispSymbol "(setpropertyvalue (entlast) ""UseBackgroundColor"" " & 0 & ")"
    objVL.GetLispSymbol "(setpropertyvalue (entlast) ""BackgroundFillColor"" " & myBackColor & ")"

    Debug.Print objVL.GetLispSymbol("(getpropertyvalue (entlast) ""BackgroundScaleFactor"")")
End Sub