[serega82]

Добрый день!

Есть программа, которая оставляет текст на чертеже AutoCad по конкретным координатам:

Код:

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

  p:=VarArrayCreate([0, 2],varDouble);
  p[0]:=100;  //x
  p[1]:=100;   //y
  AcadText:=Autocad.ActiveDocument.ModelSpace.AddText('Текст', p, 5);

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

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

Гарантированно работающий вариант - пройтись по всем примитивам ModelSpace и отфильтровать тексты с нужными координатами.

[serega82]

Сообщение от Кулик Алексей aka kpblc Гарантированно работающий вариант - пройтись по всем примитивам ModelSpace и отфильтровать тексты с нужными координатами.

все мои познания работы с AutoCad через delphi заключаются в вычерчивании различных фигур, добавлении текста, изменение цветов, штриховка. Не могли бы вы привести пример Вашего метода или скинуть ссылку, где это можно почитать. Спасибо.

[Дима_]

берете ActiveDocument.ModelSpace (то куда вы через delphi добавляете примитивы) просмативаете все item'ы и у тех из них которые text, mtext проверяете координаты.

[serega82]

Сообщение от Дима_ берете ActiveDocument.ModelSpace (то куда вы через delphi добавляете примитивы) просмативаете все item'ы и у тех из них которые text, mtext проверяете координаты.

Не могли бы вы привести простенький пример, для меня пока это к сожалению дремучий лес.

[Дима_]

Я дельфи не знал и забыл, могу чиркануть на лиспе, либо f# но боюсь для Вас это будет еще более дремучий лес.

[serega82]

Сообщение от Дима_ Я дельфи не знал и забыл, могу чиркануть на лиспе, либо f# но боюсь для Вас это будет еще более дремучий лес.

чирканите пожалуйста на лиспе, думаю смогу перевести на дельфи. команды то одинаковы

[Дима_]

Ну если совсем на лиспе то все это "чирикаеться" в одну строчку (реально в одну) - т.к. там есть готовые функции выборки, но толку от нее Вам никакого, т.к. Вы из дельфи можете использовать ТОЛЬКО объектную модель (ну из дельфи. Net еще и соответствующие API - но это, как я понимаю не "наш" случай). Вот попытался "максимально просто" изложить аналогичную фильтрацию на лиспе (единственно что Вам потрбуеться реализовать самостоятельно это аналог функции distance - (строка 16 - получение расстояния между двумя координатами точек)):

Код:

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

 (vl-load-com)
(defun item-list(obj) ;преобразование коллекции в список
  ((lambda (frec count) (frec 0));объявлем временную рекурсивную функцию и берем количество эл-тов коллекции
   (lambda (x) ;сама временная функция (аргумент номер в коллекции)
     (if (/= x count);если номер не равен количеству эл-тов
         (cons (vla-item obj x) (frec (1+ x)))));добавляем элемент х перед самовызовом функции от x+1
   (vla-get-count obj))); количество элементов (см. строку 3)

(defun search-text(pt len);ищем текстовые примитивы на расстояние не более чем len от точки pt
  (vl-remove-if-not ;отфильтровать все не соответствующие условиям
   '(lambda (obj) ; функция проверки условия от примитива
      (and ((lambda (name); объявляем имя класса
              (or (= name "AcDbText")
                  (= name "AcDbMText"))) ; имя класса соответствует тексту, либо Мтексту 
            (vla-get-objectname obj)); получаем имя класса
           (<= (distance (vlax-safearray->list
                          (vlax-variant-value
                           (vla-get-insertionpoint obj)))
                         pt)
               len))) ; и (к соответствию классов) чтоб не дальше расстояния len от точки pt 
   (item-list (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))))) ; фильруемый список всех вхождений modelspace

пример запуска - (search-text '(0 0 0) 10) - найти все тексты удаленные не более чем на 10 ед. рисунка от точки (0 0 0).

[gomer]

object.SelectAtPoint(Point, [FilterType], [FilterData]) ?

[serega82]

Дима_ спасибо! код это очень не просто перевести на дельфи.

Сообщение от gomer object.SelectAtPoint(Point, [FilterType], [FilterData]) ?

спасибо! объект я получу, полагаю в моем случае код будет выглядить так:
Var_OleVarian.SelectAtPoint(P));
но как из переменной Var_OleVarian прочитать текст, если он есть там? Или в случае нахождения в этой переменной только текста, то переменная и будет этим текстом?

[Дима_]

То gomer через SelectAtPoint с учетом точек по моему будут выбранны только видимые в текущем масштабе. Ну и потом все равно из набора "вытягивать" (я не знаю есть-ли в дельфи автоматические преобразования "слаботипизированных" коллекций).

[trir]

Код:

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

Sub Example_SelectAtPoint()
    ' This example adds objects to a selection set by identifying a point.
    ' At first all objects at the point are added to the selection set. Then
    ' only circle objects at the point are added to the selection set.
    
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET1")
   
    ' Add to the selection set all the objects that lie at point(6.8,9.4,0) 
    Dim point(0 To 2) As Double
    point(0) = 6.8: point(1) = 9.4: point(2) = 0
    ssetObj.SelectAtPoint point
    
    ' Add to the selection set all the Circles that lie at point (6.8,9.4,0) 
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "Circle"
    
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
    
    ssetObj.SelectAtPoint point, groupCode, dataCode
    
End Sub

Изучай VBA и справку для разработчиков

gpCode(0) = 0
dataValue(0) = "Text"

[serega82]

to trir Спасибо!

[Rembo_4]

При выборе SelectAtPoint надо указывать точки вставки текста или любую точку в приделах текста?

[Дима_]

там вариантов чего надо (и соответственно чего получим) вагон и маленькая тележка - см. help по лисп функции ssget

[serega82]

Разобрался, выкладываю мож кому то пригодится на дельфи:

Код:

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

   p:=VarArrayCreate([0, 2],varDouble);
 //координаты точки, которая попадает на текст
   p[0]:=10;  //x
   p[1]:=20;   //y
  try
    SelSet:= Autocad.ActiveDocument.SelectionSets.Add('TextFromPoint');  //SelSet : OleVarian
  except
    SelSet:= Autocad.ActiveDocument.SelectionSets.Item('TextFromPoint');
    SelSet.Delete;
    SelSet:= Autocad.ActiveDocument.SelectionSets.Add('TextFromPoint');
  end;
  SelSet.SelectAtPoint(p);
  try
    st:=SelSet.Item(0).TextString;
  except
    st:='';
  end;
  if (st<>'') then 
  begin
    showmessage('текст найден '+st);
    Autocad:=unassigned;
    Autocad:=0;
    exit;
  end;

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

serega82, почувствуй разницу между тэгами quote (цитата) и code (код).

[Александр Ривилис]

Сообщение от serega82 Разобрался

Это иллюзия. Иллюзия, что этот код будет стабильно работать. Тебе уже писали, что метод SelectAtPoint работает только тогда, когда точка видна на экране. И это не единственное ограничение.

[serega82]

Сообщение от Александр Ривилис Это иллюзия. Иллюзия, что этот код будет стабильно работать. Тебе уже писали, что метод SelectAtPoint работает только тогда, когда точка видна на экране. И это не единственное ограничение.

не спорю, этот код был собран из кусков из интернета. я не программист, и все что описывается на многих форумах для меня по большому счету не понятно. по этой причине я подгонял этот код под результат, тупо меняя типы переменных, переставляю все местами по 10 раз. в течении вечера добился работоспособности, хоть и не универсальной, не оптимальной, но в моем случае рабочий. К сожалению код на дельфи я не нашел, а подсказки и советы были на языке программистов, для меня не особо понятном :-)