обращение к AutoCad

← →
syte_ser78 © (2003-08-07 12:52) [0]

Подскажите, как средствами Delphi обратится к обьектам Autocad (2004).
В общем нужно получить атрибуты блоков из активного документа Autocad, получить доступ к командной строке Autocad.

Имеющийся код -
AcadDocument1.Application.Documents.Open("d:\1.dwg",1,1);
AcadDocument1.Connect;
kolvo_block:=acaddocument1.Application.ActiveDocument.Blocks.Count;
при запущенном Acade выдает ошибку - EOleSysError with message "Интерфейс не поддерживается"

Элемент Acaddocument стал доступен после экспортирования в Delphi файла AutoCAD.TBL

Я до этого писал на VB и только недавно стал пробовать Delphi. Если кому не лень, подскажите плиз.

← →
Dan (2003-08-07 16:26) [1]

К командной строке, например, так:
acd.ActiveDocument.SendCommand("_line"#13"100,100"#13"200,200"#13#13);
где acd : variant получено
try
acd := GetActiveOleObject( "AutoCad.Application");
except
acd := CreateOLEObject( "AutoCad.Application");
end;

По поводу блоков -
adoc := acd.ActiveDocument;
for t :=adoc.Blocks.Count-1 downto 0 do
begin
itm := adoc.Blocks.Item(t);
( node, itm.Name+" ("+itm.Handle+") К командной строке, например, так:
acd.ActiveDocument.SendCommand("_line"#13"100,100"#13"200,200"#13#13);
где acd : variant получено
try
acd := GetActiveOleObject( "AutoCad.Application");
except
acd := CreateOLEObject( "AutoCad.Application");
end;

По поводу блоков -
adoc := acd.ActiveDocument;
for t :=adoc.Blocks.Count-1 downto 0 do
begin
itm := adoc.Blocks.Item(t);
TR.Items.AddChildFirst( node, itm.Name+" ("+itm.Handle+")");
end;

Правда ACAD2000, но работает без вопросов

← →
syte_ser78 © (2003-08-07 17:08) [2]

Огромное спасибо!!!

С командной строкой все просто чудесно.
Вот только немного непонятно насчет "TR.Items.AddChildFirst( node, itm.Name+" ("+itm.Handle+")");"
Как его описать?

← →
Dan (2003-08-07 17:27) [3]

это у меня перечень блоков из чертежа грузился в TreeView...

← →
syte_ser78 © (2003-08-07 17:41) [4]

И последний вопрос, у меня этот код выдает ошибку
TreeView я добавил назвал его TR
undeclared identified "node"

Извини, я только начинаю разбиратся в Delphi

← →
chs2r © (2003-08-07 18:11) [5]

переменная не описана node
а вообще по поводу акада и делфей где можно найти инфу?

← →
Dan (2003-08-07 18:41) [6]

node - это TTreeNode, используемый мною при построении TreeView. Завтра брошу по почте этот проект - сейчас у меня zip отключен, на котором он лежит.

← →
chs2r © (2003-08-07 19:52) [7]

2Dan
кинь пож и мне, тоже надо разобраться
мыло в анкете

← →
syte_ser78 © (2003-08-07 22:44) [8]

Если не сложно, кинь сюда более подробный код с описанием переменных и подключеными модулями.

2 chs2r у меня есть написаный лично код для доступа к обьектам акада на Визуал бейсике. если тебе интересно, могу поделится

2syte_ser78
инересно :) спс, поделись
можешь на мыло

напиши здесь свой email, у меня ограниченый по адресам доступ и на твою анкету попасть не могу

Ventil_Sobaka@mail.ru
;)

обращение к AutoCad Найти похожие ветки