[Olegus79]

Это легко можно сделать вызвав свойства размера и заполнив соответсвующеее поле, но как это сделать програмно? операторами vba, встроенным в
autocad, желательно из текст должен быть взят из юзерформ

[Boxa]

А поиском и справкой Вы принципиально не пользуетесь?

[Olegus79]

а сиснтаксис? как это это написать? плз плз

[Boxa]

Еще раз.
На картинке, фрагмент справки, там же видна ссылка на Пример использования (Example). Может быть, Вы все таки, откроете справку и прочитаете, что там написано?

[Дима_]

Код:

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

 (vl-load-com)
(vla-put-textoverride (vlax-ename->vla-object (entlast)) "abc")

[Boxa]

Дима_, VBA? =o)

[Дима_]

ААА - слово синтаксис смутило - я подумал, что это в очередной раз вопрос как вызывать метод объектной модели из lispa - а где "разрисованная шпаргалка" я опять забыл.

[Olegus79]

Хорошо, но я не нашел где и как выбирать конкретнй размер. Размерных линий может быть много....

[Boxa]

Продолжим изучение справки...

[allrather]

Olegus79, если ты, вдруг, не понял прекрасные, как я считаю, намеки от Boxa, то вот, пожалуйста:

Код:

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

Sub DimEdit()
    Dim od As AcadDimension
    Dim ss As AcadSelectionSet
    Dim strInput As String
        strInput = ThisDrawing.Utility.GetString(True, vbCr & "ТЕКСТ")
        On Error Resume Next
        ThisDrawing.SelectionSets("SS").Delete
        Set ss = ThisDrawing.SelectionSets.Add("SS")
        ss.SelectOnScreen
            For Each od In ss
                od.TextOverride = strInput
            Next
End Sub

Сообщение от Olegus79 желательно из текст должен быть взят из юзерформ

Ну это уже тонкости, твоя "юзерформ", ты и бери.