AutoCAD

[AnTe]

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

Возникла задача, в первом варианте: перебор всех ПОЗИЦИЙ, в автокаде-механиксе, принимается свойство позиции "зона", принимается "обозначение", затем "обозначение" должно быть отредактировано.

При обдумывании вариантов, остановился писать всё на Delphi, с использованием Automation, т.к. программа для редактирования обозначений позиций написана на Delphi, и организовывать связку акадовский ЛИСП - мой редактор - обратно, если я правильно понимаю, будет крайне затруднительно.

попробовал начать, методом тыка, использовать Automation, дошёл примерно до такого:

 AcadDoc: IAcadDocument;
 SelCount: integer; 
 ObjName: string;
......
  AcadDoc := AcadApp.ActiveDocument;
  lblName.Caption := AcadDoc.Name;

  SelCount := AcadDoc.ActiveSelectionSet.Count;
  {не нашёл свойства, содержащего ВСЕ объекты документа :(
   взял кол-во выделенных} 


  for i := 0 to SelCount - 1 do
  begin
    ObjName := AcadDoc.ActiveSelectionSet.Item(i).ObjectName;
    if ObjName = 'mcsDbObjectSpcLeader' then
      ... {не знаю, что теперь делать с объектом}
  end;

Подскажите, если кто сталкивался - каким образом правильно перебирать объекты, как делать приведение типа, и читать свойство.

Второе - объект "позиция" - объект MechaniCS !
Не возникнет ли при этом каких-нибудь очевидных проблем? Даётся ли доступ к объектам MechaniCS, через automation ?

Ну и третье, порекомендуйте, что можно прочитать, для "быстрого старта", Automation в AutoCAD. Желательно на русском, и поменьше

задачу, в первом варианте, нужно сделать срочно

[Stilet]

каким образом правильно перебирать объекты

Проясни ситуацию: "зона", "обозначение" - это ведь ты сейчас говоришь о полях штампа чертежа?

Даётся ли доступ к объектам MechaniCS, через automation ?

Это нужно читать в его мануалах. Насколько я знаю Механикс это примочка, создающая обычнейшие объекты Автокада, так что к ним можно подцепиться обычным способом.

что можно прочитать

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

[AnTe]

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

Проясни ситуацию: "зона", "обозначение" - это ведь ты сейчас говоришь о полях штампа чертежа?

Нет, это для сборочного чертежа. На нём кучка деталей, которые должны быть отмечены ПОЗИЦИЯМИ. Позиция - это модифицированный MechaniCS-ом объект "выноска". На чертеже у позиции есть только номер, MechaniCS позволяет задать его прочие атрибуты (обозначение, наименование, кол-во, примечание, которые на чертеже не показываются), затем он позволяет сформировать спецификацию, и, в соответствии с нею, автоматом перенумеровать позиции (на чертеже), а так же в самой спецификации отобразить обозначения и прочее, и зону взять с чертежа.

Мне нужно подменить их вызов, или редактировать позиции самостоятельно. т.е. программа - полная замена "спецификации" MechaniCS-а, для реализации функционала необходимо и достаточно:
1. Получить все позиции, для каждой считать идентифицирующее поле, лучше всего обозначение , и, обязательно, зону, на чертеже.
2. Задать номер, для нужной позиции (после того, как я их пронумерую в своей спецификации - переберу все, и раздам новые номера).

В принципе, практически всё. Остальное - дело моей программы, и замена СП MechaniCS-а, с реализацией необходимого (улучшенного) функционала, готова.

Это нужно читать в его мануалах. Насколько я знаю Механикс это примочка, создающая обычнейшие объекты Автокада, так что к ним можно подцепиться обычным способом.

Хорошо бы... Полагаю, к ним нет как минимум хелпа. По крайней мере, сходу я не нашёл

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

посмотри, плиз, и, если не сложно - есть ли там пара слов про MechaniCS..

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

а вот то, что я нашёл интересненького
http://www.delphimaster.ru/articles/autocad/index.html
http://dwg.ru/pub/8

Пара примеров, с разными подходами, простенькие. Но в них только СТРОЯТСЯ новые объекты, а мне нужно анализировать имеющиеся.

Пролистал документацию - с ходу не могу понять, как же делать приведение типов. Перебираю все объекты, для примера, ищу ЛИНИЮ, у неё хочу найти координату точки:

var ov: OleVariant;
...
for i := 0 to AcadDoc.ModelSpace.Count - 1 do
begin
  sObjName := AcadDoc.ModelSpace.Item(i).ObjectName;
  lbMainInfo.Items.Add(sObjName);
    if sObjName = 'AcDbLine' then
    begin
     ov := (AcadDoc.ModelSpace.Item(i) as IAcadLine).StartPoint;
     // Как брать координаты точки - не понятно.
    end;
end;

AcadDoc.ModelSpace.Item(i) as IAcadLine - компилятор принимает, даёт StartPoint, которая имеет тип OleVariant, а как загружать координаты точки - не понятно

upd: как загружать координаты точки - нашёл. Это простой массив.
ov[0], ov[1], ov[2] - вот три координаты.

Наверное, основной вопрос, где же взять описание на типы данных MechaniCS-а:

    if sObjName = 'mcsDbObjectSpcLeader' then
    begin
      .... ??

[Sibedir]

На сколько я понял ваш MechaniCS - это все-равно что наш SPDS. А если это так - дело дрянь. Серьезно. Сколько не пытались выципить из СПДС-объектов их свойства ниче не получалось. У меня один очень хороший знакомый плотно занимается программированием под AutoCAD. Он этот AutoCAD как шар вертит, а СПДС объекты как черный ящик. Читаются только свойства группы General, 3D Visualization и т.п.. Остальных как-будто и нет вовсе. При работе с ними возникает ощущение, что значения его свойств находятся вообще не в области памяти самого приложения ACAD.

[AnTe]

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

У меня дома книженция есть по-моему Поляков

Наверное, Полищук?
"Николай Полещук AutoCad2004 Разработка и адаптация приложений"
Вчера довольно долго пытался найти эл.версию, безуспешно. Сегодня, после твоего поста, удвоил усилия, и вот... что-то качаю!

Sibedir, спасибо! Прогноз, конечно, грустный, однако, надеюсь, не на столько.

Знакомая программирует на AutoLisp, и в отладчике видны все свойства некоторых объектов MechaniCS (по крайней мере "основную надпись" читала, и изменяла, программно). т.е. из AutoLISP оттуда она может доступиться к полям объектов MechaniCS. Не знаю пока, как "перевести" всё это в объекты ActiveX, т.к. мне, по всей видимости, гораздо удобнее, если получится редактировать поля из Delphi, а не вызывать моё приложение из акада.

[Sibedir]

Любопытный факт. С одной стороны AutoCAD знает о свойствах СПДС-объектов. Вы можете менять их не только в диалоговых окнах, вызываемых из дополнительных библиотек, но и в стандартном окне Properties (аналог инспектора объектов в Delphi). Хотя закрадываются сомнения, когда понимаешь, что в этом окне отоброжены не все свойства. Но это еще не все. При работе с фильтром (функция qselect) для всех СПДС-объектов нам доступны лишь свойства из вышеуказанных групп General, 3D Visualization и т.п.. Этими свойствами обладает любой объект в AutoCAD (в силу наследования от общего предка). Остальных свойств объекта AutoCAD не видит.
По всей видимости разработчики фирмы Consistent Software намеренно разместили свойства своих объектов в "отдельном месте", а функцию просмотра свойств в окне Properties просто подменили. Хотя я в этом вопросе не компетентен, это только мое предположение.

[AnTe]

В отладчике VisualBasic свойств не видно

Беру первый выделенный объект, вывожу его ObjectName
(.ActiveDocument.ActiveSelectionSet .Item(0).ObjectName)

Скриншот, отладчика, затем результат, если выделена линия, и если выделен объект MechaniCS "позиция"

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

В отладчике LISP-а идентификаторы свойств видны... Нельзя ли к ним перейти к св-вам VBA, или, похоже, доступа к объектам нет, в принципе?

Похоже, после праздников начинаю спешное изучение LISP, и делать вызов своей проги, оттуда...

[Stilet]

"Николай Полещук AutoCad2004 Разработка и адаптация приложений"

точно точно... он самый. Но про Механикс там точно ничего нет.
Я вообще очень мало встречал литературы по программированию CAD/CAM/CAE/PLM... Такое впечатление что их писали партизаны...

AnTe

Я, когда наши проставляют Механиксовские шероховатости на чертеже, нисколечки не стесняясь разбиваю это все командой Explode на элементы, и тогда уже можно добраться до текста (там зачастую компонент MText если не ошибаюсь)
Хотя конечно мозго%№%№ та еще...

[Sibedir]

"САПР на базе AutoCAD - как это делается" Зуев С. и тот самый Полещук Н. - 1092 стр. в djvu - 29.7МВ.
http://www.knigka.info/2008/02/27/sa...delaetsja.html

[AnTe]

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

"САПР на базе AutoCAD - как это делается" Зуев С. и тот самый Полещук Н. - 1092 стр. в djvu - 29.7МВ.

Да, тоже неплохая книга. В ней встречается даже тот же текст, но чуть поподробней, чем в "AutoCad2004 Разработка и адаптация приложений". Но принципиально ничего нового нет

у меня какая-то косячная версия, некоторые страницы перепутаны, некоторых нехватает, в самых интересных местах а вот тут брать нельзя:

http://www.knigka.info/2008/02/27/sa...delaetsja.html

при нажатии "скачать" выкидывает, похоже на клон депозита "http://depositfille.com/", и закачивается exe непонятного происхождения.

с СПДС-объектами интересное замечание. Похоже, меня ожидает какая-то схожая песня.

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

Я, когда наши проставляют Механиксовские шероховатости на чертеже, нисколечки не стесняясь разбиваю это все командой Explode на элементы, и тогда уже можно добраться до текста (там зачастую компонент MText если не ошибаюсь)
Хотя конечно мозго%№%№ та еще...

Explode - это команда AutoLISP? (просто не начинал ещё его изучать)

Вообще, интересует вопрос, может, можно из имён процедур autolisp получить имена процедур, для доступа через автоматизацию? или этого доступа там, скорее всего, нет, в принципе? Похоже, придётся писать часть на лиспе, и регить свой com-сервер, для связи с моей программой. Для моей задачи - извращение, однако...

ps про партизанов - верное замечание, у меня сложилось точно такое же впечатление