[samaratopograf]

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

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

[Boxa]

Вообще нужное Вам свойство называется BackgroundScaleFactor вот только в VBA его может и не быть...

[samaratopograf]

Сообщение от Boxa BackgroundScaleFactor вот только в VBA его может и не быть...

Я искал)))) не нашел.
А через .net можно?

[Boxa]

Сообщение от samaratopograf А через .net можно?

да, конечно.

[samaratopograf]

Сообщение от Boxa да, конечно.

Спасибо. Не хотелось в .net лезть, но видимо по другому не получится.
Да и сделать текст аннотативным на vba вот тоже не получалось, а с .net видимо получится ...
Буду .net "курить"))).

Спасибо еще раз!

[samaratopograf]

Сообщение от Boxa Вообще нужное Вам свойство называется BackgroundScaleFactor вот только в VBA его может и не быть...

А вы какую сборку используете.

Поставил себе VS2015.
Проект на VisualBasic
Подключил Autodesk.AutoCAD.Interop
Interop.AXDBLib

В этих сборках для MText нет таких свойств, как BackgroundScaleFactor, как у вас.
Может что не так делаю конечно. Буду рад любой помощи ...

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

А зачем Interop? В данном случае, мне кажется, надо без него работать.

[Сергей812]

COM Interop (Взаимодействие с COM) — технология, включённая в .NET CLR, позволяющая объектам COM взаимодействовать с объектами .NET, и наоборот.
механизмы те же, просто "зашли" со стороны Net-сборки, а не со стороны VBA/ внешней программы через COM-интерфейс.

[baksconstructor]

Собственно где в объектной модели находится BackgroundScaleFactor ?

[Сергей812]

Autodesk.AutoCAD.DatabaseServices.MText

[samaratopograf]

Немного поторопился.
Скачал Autodesk_ObjectARX_2014
Подключил AcDbMgd.dll
Теперь наконец-то добрался до всех свойств MText'а.
Построил сборку. Загрузил в Акад. Все работает.
Спасибо всем за поддержку.

[Boxa]

samaratopograf, через Autodesk.AutoCAD.Interop Вы к СОМ подключаетесь и получаете то же, что и в VBA, и смысл...

Я не знаю какую версию акада Вы используете, но в последних (с 2013 и далее), для того что бы воспользоваться кодом ниже, нужно подключить acCoreMgd, AcDbMgd, acMgd (копировать локально - false) ну и версию .NEt указать правильно в настройках проекта.

Код:

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

 using App = Autodesk.AutoCAD.ApplicationServices;
using Db = Autodesk.AutoCAD.DatabaseServices;
using Ed = Autodesk.AutoCAD.EditorInput;
using Rtm = Autodesk.AutoCAD.Runtime;

[assembly: Rtm.CommandClass(typeof(samaratopograf_BackgroundFill.Commands))]
namespace samaratopograf_BackgroundFill
{
    public class Commands
    {
        [Rtm.CommandMethod("GetMText")]
        static public void GetMText()
        {
            App.Document acDoc = App.Application.DocumentManager.MdiActiveDocument;
            if (acDoc == null) return;

            Db.Database acCurDb = acDoc.Database;
            Ed.Editor acEd = acDoc.Editor;

            Ed.PromptEntityOptions opt1 = new Ed.PromptEntityOptions("\nВыбери мтекст:");
            opt1.AllowNone = false;

            Ed.PromptEntityResult res1 = acEd.GetEntity(opt1);
            if (res1.Status != Ed.PromptStatus.OK)
                return;

            using (Db.Transaction acTrans = acCurDb.TransactionManager.StartOpenCloseTransaction())
            {
                Db.MText acMText = acTrans.GetObject(res1.ObjectId, Db.OpenMode.ForRead) as Db.MText;
                acEd.WriteMessage(
                    $"BackgroundFill:{acMText.BackgroundFill}; " + 
                    $"BackgroundFillColor:{acMText.BackgroundFillColor}; " +
                    $"BackgroundScaleFactor:{acMText.BackgroundScaleFactor}");
                acTrans.Commit();
            }
        }
    }
}

Удачи.

[baksconstructor]

Сообщение от Сергей812 Autodesk.AutoCAD.DatabaseServices.MText

Где ?

[samaratopograf]

Сообщение от baksconstructor Собственно где в объектной модели находится BackgroundScaleFactor ?

Это скрытие заднего плана. Коэффициент перекрытия. Средствами VBA до него не добраться (((

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

Сообщение от samaratopograf Немного поторопился. Скачал Autodesk_ObjectARX_2014 Подключил AcDbMgd.dll

Сообщение от Boxa нужно подключить acCoreMgd, AcDbMgd, acMgd

Спасибо всем.

[baksconstructor]

Сообщение от samaratopograf Средствами VBA до него не добраться (((

Причем здесь VBA, если его в объектной модели нет ? Нет описания данного параметра, нет такого объекта в автокаде, значит это не родная приблуда

[Boxa]

Сообщение от baksconstructor Где ?

Там где Вы ищите его и нет, о чем было написано в #2 сообщении, это свойство есть в .NET API, т.е. нужно смотреть другой раздел справки.

----- добавлено через 59 сек. -----

Сообщение от baksconstructor Причем здесь VBA, если его в объектной модели нет ? Нет описания данного параметра, нет такого объекта в автокаде, значит это не родная приблуда

Смешно. Вы код в #12 посмотрите. В VBA / COM дохрена чего нет, чтож только на него ровняться.

[samaratopograf]

[quote=Boxa;1618709]samaratopograf



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

[Сергей812]

baksconstructor, в Net API - смотрите верхнюю и предпоследнюю строчку скриншота от Boxa в посте №2

[samaratopograf]

Сообщение от baksconstructor Причем здесь VBA, если его в объектной модели нет ?

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

[Boxa]

Сообщение от samaratopograf но я на VB пишу.

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

[Сергей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