• Виктор
  • Восстановленный участник
  • На форуме с 1 марта 2007г.
  • Сообщений: 9
  • Спасибо: 0

Тема: Как реализовать разнесение текстовых значений по слоям в зависимости от их содержания?

Прошу помочь реализовать задачу: имеется макрос, который находит и считает число повторений заданных текстовых строк. Имеется база этих строк (около 50) хранящаяся в файле. Макрос считывает искомые строки из файла - в результате выдает саму строку и количество её повторений на рисунке. -т.е. просто считает количество названий приборов соответствующего типа (текстовой строки).
Мне необходимо, чтобы в результате каждая текстовая строка принадлежала слою с таким же названием. Очень рассчитываю на вашу помощь и заранее благодарен.

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как реализовать разнесение текстовых значений по слоям в зависимости от их содержания?

Вот что-то в этом духе, если я правильно понял вопрос:

Sub Test()
    Dim returnObj As AcadObject
    Dim basePnt As Variant
    On Error Resume Next
    ' The following example waits for a selection from the user
RETRY:
    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an text"
    Call Text_Layer(returnObj)
End Sub
Private Sub Text_Layer(TypeString As AcadText)
    Dim LayerName As String
    On Error Resume Next
    LayerName = TypeString.TextString
    TypeString.Layer = LayerName
    MsgBox TypeString.Layer
End Sub