[reg123]

Здравствуйте господа и дамы.
Помогите пожалуйста с VBA-кодом

Постараюсь внятно описать проблему.
Есть некий код

Код:

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

Public Sub Test()
Dim acSelSet As AcadSelectionSet
Set acSelSet = ThisDrawing.SelectionSets.Add("rrr")
acSelSet.SelectOnScreen

myFunc acSelSet

ActiveDocument.SelectionSets("rrr").Delete
End Sub

Public Function myFunc(objSet As AcadSelectionSet) As Boolean
Dim strTxt As String
Dim objEnt As AcadEntity

For Each objEnt In objSet
  If TypeOf objEnt Is AcadText Or TypeOf objEnt Is AcadMText Then
    strTxt$ = objEnt.TextString
    
        'здесь мой код
        'здесь мой код
        'здесь мой код

    objEnt.TextString = strTxt
    objEnt.Update
  End If
Next
End Function

Этот код был взят отсюда http://www.cad.dp.ua/stats/a_vba/index.php
Он предлагает выделить объекты, перебирает выделенное в поиске текстовых объектов, выдирает из текстовых объектов содержимое, и уже с этим содержимым (strTxt$) я произвожу различные действия. После этого измененное содержимое обновляется.

Суть в том что иногда в некоторых файлах этот код не работает. Когда я подвожу к этим текстам курсор мыши, то AutoCad подсвечивает целую кучу различных сгруппированных (или несгруппрированных, не знаю) элементов. Я вообще не работаю в AutoCad, я только печатаю чертежи. Углубляться в эту тему мне не хотелось бы. Может кто-нибудь подскажет такой код, чтоб он выдирал текст из всего? (если не совсем понятно могу выложить проблемный файл).
Заранее спасибо.

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

По-моему, он и так "выдернет" все что надо.

[reg123]

Нет, к сожалению не всё.
Хотел выложить файл. Выделил проблемный кусок, скопировал, удалил всё лишнее, но файл всё-равно занимает 5-mb. Пустой (на мой взгляд).

==============================

О, получилось ужать файл. Посмотрите, будьте добры. Вот в этом файле с точки зрения скрипта тестовых объектов нет.

[Дима_]

В вашем примере текст лежит внутри блока - надо делать рекурсивный алгоритм который будет проверять все вложенные блоки (подблоки), на лиспе это не сложно - vb не знаю. Так-же приведенный вами алгоритм не проверяет таблицы - не знаю на сколько это нужно, но в них тоже можетбыть текст.
p.s. В лиспе я бы выдернул текст из всех объектов в которых есть DXF пара с кодом 1 - написанно "на коленке" без проверки (vl-remove nil (mapcar '(lambda (obj) (cdr (assoc 1 (entget obj)))) (список 'ename))), либо через VL - (if (vlax-property-available-p obj 'textstring) (vla-get-textstring obj)) - для таблиц посложнее - в первом случае "вытянет" только первую клетку, во втором надо проверять еще метод gettext и сканировать все клетки, но если нужно - то вобщем ничего сложного - но и если вхождение блока - то рекурсия на его описание.

[reg123]

> Дима_
Спасибо за проявленный интерес.

Рекурсия меня не пугает, опыт имеется. Но я совершенно не владею объектной моделью AutoCad-а. Мне бы очень пригодились подсказки студии

[Дима_]

Я, в свою очередь, совершенно не владею VB про свойства и методы всех объектов акада - есть в "егонойже" справке. На если что-то непонятно - могу написать на лиспе (visual), но в basic переводить - на Ваши плечи.