[ngg]

Здравствуйте!

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

можно ли сделать это стандартными командами или на VBA? (от lisp'a, к сожадению, достаточно далек )

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

См. команду _.find

[CaMoCAD]

_find не поможет ибо в окне FIND работают маски (хоть бы такая - *), а вот в окне REPLACE этот номер не проходит

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

CaMoCAD, в AutoCAD 2008 команду _.replace не нашел.

[Хмурый]

Кулик Алексей aka kpblc, это имелись в виду поля в диалоговом окне команды find

[CaMoCAD]

Сообщение от Хмурый Кулик Алексей aka kpblc, это имелись в виду поля в диалоговом окне команды find

Да, конечно

[ngg]

Сообщение от CaMoCAD _find не поможет ибо в окне FIND работают маски (хоть бы такая - *)

в том-то и дело, что find не предполагает добавление, а только замену

[CaMoCAD]

Сообщение от ngg в том-то и дело, что find не предполагает добавление, а только замену

так я и предложил бы заменить[*] (любая строка) на [ххх*], к сожалению, не додумано как-то; ради интереса проверил сейчас,- в MSWord и MSExcel то же самое

[ngg]

а как на счет VBA? в том же excel подобная проблема решается элементарно...

[zenon]

из набора TP команда DSTP_ANNOPRESUF

[bernata]

Да. Есть такая команда => AnnPreSuf (быстрый вызов - APS)

[usernameisden]

Я такое придумал себе на VBA:

Код:

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

Sub dobavitsimvol()
Dim SSet1 As AcadSelectionSet
Dim txt As AcadObject
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Dim dobavP As String
Dim dobavL As String


ThisDrawing.Utility.InitializeUserInput 1
dobavP = ThisDrawing.Utility.GetString(1, vbCrLf & "добавить справа)")


dobavL = ThisDrawing.Utility.GetString(1, vbCrLf & "добавить слева)")
If dobavL = "" And dobavP = "" Then GoTo 20



'ThisDrawing.SelectionSets.Item("NewSelectionSet").Delete
    Set SSet1 = ThisDrawing.SelectionSets.Add("NewSelectionSet")

FilterType(0) = 0
FilterData(0) = "text"

SSet1.SelectOnScreen FilterType, FilterData
            For Each txt In SSet1
        
If dobavP <> "" Then txt.TextString = txt.TextString + dobavP
If dobavL <> "" Then txt.TextString = dobavL + txt.TextString

            Next

'MsgBox dobav
ThisDrawing.SelectionSets.Item("NewSelectionSet").Delete

20 End Sub

[VVA]

Еще пару ссылок
Добавить суффикс в текст
Как добавить префикс к однострочному тексту в AutoCAD 2016
Довольно мощный автонумератор и не только.