Поиск текста в NanoCAD

@Chuklexa · Регистрация: 11.02.2019

Всем привет, есть идея написать программу в Delphi, которая будет искать заданный текст и менять его цвет в чертеже программы nanoCAD. Вроде программа то должна получиться простетская, но не знаю с чего начать, как написать команду поиска текста, представляю, что это возможно должен быть какой-то цикл, прошу дать толчек. Спасибо.

@Rayvenor · 10.08.2019, 17:54

Chuklexa, как бы вы поиск текста и замену цвета сделали руками?

@Chuklexa · 10.08.2019, 17:57 **[ТС]**

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

@Rayvenor · 10.08.2019, 18:05

Chuklexa, т.е. вы хотите чтобы программа, написанная на Дельфи, лезла бы в другую программу nanoCAD, выполняла бы какие-то действия? Попробуйте программу AutoIt, она сделана для подобных вещей и язык программирования в ней проще.
Делать такое в Дельфи лично я не представляю как.

@GoodWeather · 10.08.2019, 18:06

Что такое "nanoCAD" и что такое "менять цвет текста в чертеже"? Какой-то конкретный пример есть?

@AzAtom · 10.08.2019, 18:25

Если надо подавать команды через командную строку в программе, то можно использовать SendInput, отправлять нажатия кнопок клавиатуры и мыши.

@Chuklexa · 10.08.2019, 19:33 **[ТС]**

nanoCAD это программа которая скопирована с известного AutoCAD, а менять цвет текста это в прямом смысле менять цвет, каждому объекту можно задать цвет будь то линия или текст. Вот я хочу чтоб текст который обнаружен программой менял свой цвет на тот который выберу или задам я. Попробую описать суть работы, есть чертёж разработанный в nanoCAD, у каждого чертежа есть таблица вспомогательных документов где указаны номера документов, а дальше по всему чертежу где то даны ссылки на эти номера (ссылки эти это просто номер документа на выноски), так вот я хочу замутить программку, где я буду вбивать номер чертежа, а программа пробежаться по чертежу и поменяет цвет всем совпадающим ссылкам.

@AzAtom · 10.08.2019, 19:46

Chuklexa, это ничего не говорит тем, кто не работал с nanocad. Конкретно что надо сделать, на какие кнопки надо нажать, чтобы поменять цвет текста?

@Chuklexa · 10.08.2019, 19:49 **[ТС]**

В самой программе есть кнопка для изменения цвета объекта.

@Flip · 10.08.2019, 21:12

Что-то мне подсказывает, что тут напрашивается работа с объектной моделью самого NanoCad, ставить последний не буду за ненадобностью, но информации по API функциям в гугле предостаточно. Алгоритм тут виден следующий: Создаётся объект NanoCad - грузится в него документ - используя API-функции редактируется - сохраняется. В принципе ничего нового. Благо через COM-интерфейс подключить его не проблема. А дальше лопатить функции и править документ на тех условиях, которые вам необходимы. Как получить интерфейсы для работы с любой программой, используя COM найти тоже не проблема. Запускается сам NanoCad (из приложения Delphi) просто:

Delphi

procedure Start_nanoCad(var nanoCadApp: InanoCADApplication);
begin
  try
    GetActiveOleObject('nanoCad.Application').QueryInterface(InanoCADApplication, nanoCadApp);
  except
    nanoCadApp := nil;
  end;
  if not (Assigned(nanoCadApp)) then
  begin
    try
      nanoCadApp := CoApplication.Create;
      nanoCadApp.Visible := True;
    except
      if (Assigned(nanoCadApp)) then
      begin
        nanoCadApp.Quit;
      end;
    end;
  end;
end;

@GoodWeather · 11.08.2019, 03:16

Сообщение от Chuklexa

...а программа пробежаться по чертежу и...

Чёртёж - это у вас документ в данный момент открытый в программе nanoCAD, или файл на диске?

@Rayvenor 317 / 75 / 18 Регистрация: 04.08.2018 Сообщений: 372
	10.08.2019, 17:54	2
	Chuklexa, как бы вы поиск текста и замену цвета сделали руками? 0

@Chuklexa 0 / 0 / 0 Регистрация: 11.02.2019 Сообщений: 18
	10.08.2019, 17:57 [ТС]	3
	Руками бы я это сделал очень просто, команда поиск ввел бы нужный мне текст а потом бы поменял его цвет и так по очереди весь, но это долго если количество текста 25+, вот собственно и появилась идея сделать программу которая сама бы все перебирала и красила. 0

@Rayvenor 317 / 75 / 18 Регистрация: 04.08.2018 Сообщений: 372
	10.08.2019, 18:05	4
	Chuklexa, т.е. вы хотите чтобы программа, написанная на Дельфи, лезла бы в другую программу nanoCAD, выполняла бы какие-то действия? Попробуйте программу AutoIt, она сделана для подобных вещей и язык программирования в ней проще. Делать такое в Дельфи лично я не представляю как. 0

@GoodWeather 880 / 583 / 178 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	10.08.2019, 18:06	5
	Что такое "nanoCAD" и что такое "менять цвет текста в чертеже"? Какой-то конкретный пример есть? 0

@AzAtom 2218 / 1146 / 418 Регистрация: 15.11.2015 Сообщений: 4,573
	10.08.2019, 18:25	6
	Если надо подавать команды через командную строку в программе, то можно использовать SendInput, отправлять нажатия кнопок клавиатуры и мыши. 0

@Chuklexa 0 / 0 / 0 Регистрация: 11.02.2019 Сообщений: 18
	10.08.2019, 19:33 [ТС]	7
	nanoCAD это программа которая скопирована с известного AutoCAD, а менять цвет текста это в прямом смысле менять цвет, каждому объекту можно задать цвет будь то линия или текст. Вот я хочу чтоб текст который обнаружен программой менял свой цвет на тот который выберу или задам я. Попробую описать суть работы, есть чертёж разработанный в nanoCAD, у каждого чертежа есть таблица вспомогательных документов где указаны номера документов, а дальше по всему чертежу где то даны ссылки на эти номера (ссылки эти это просто номер документа на выноски), так вот я хочу замутить программку, где я буду вбивать номер чертежа, а программа пробежаться по чертежу и поменяет цвет всем совпадающим ссылкам. 0

@AzAtom 2218 / 1146 / 418 Регистрация: 15.11.2015 Сообщений: 4,573
	10.08.2019, 19:46	8
	Chuklexa, это ничего не говорит тем, кто не работал с nanocad. Конкретно что надо сделать, на какие кнопки надо нажать, чтобы поменять цвет текста? 0

@Chuklexa 0 / 0 / 0 Регистрация: 11.02.2019 Сообщений: 18
	10.08.2019, 19:49 [ТС]	9
	В самой программе есть кнопка для изменения цвета объекта. 0

@GoodWeather 880 / 583 / 178 Регистрация: 28.02.2017 Сообщений: 2,359 Записей в блоге: 1
	11.08.2019, 03:16	11
	Сообщение от Chuklexa ...а программа пробежаться по чертежу и... Чёртёж - это у вас документ в данный момент открытый в программе nanoCAD, или файл на диске? 0

Опции темы