Господа, кто писал под Автокад?

← →
syte_ser78 © (2005-01-12 11:30) [0]

сабж

← →
DiamondShark © (2005-01-12 11:37) [1]

Удалено модератором

← →
syte_ser78 © (2005-01-12 11:46) [2]

Не совсем коректный вопрос.
Ктонибудь из вас писал под Автокад?

← →
Чеширский_Кот © (2005-01-12 12:10) [3]

Удалено модератором

← →
syte_ser78 © (2005-01-12 12:12) [4]

Ктонибудь под Автокад писал?

← →
REP © (2005-01-12 12:40) [5]

-Вы когда-нибудь имели гомосексуалиста?
-Нет, но я имел человека, который имел гомосексуалиста.

**********************
Я знаю человека, который пишет под автокад.
Могу спросить его, если есть конкретные вопросы.

← →
k2 © (2005-01-12 12:56) [6]

да

← →
syte_ser78 © (2005-01-12 13:00) [7]

REP © (12.01.05 12:40) [5]
Нижеприведенная процедура ищет блоки штампов в акадовских чертежах и сохраняет из заполнение в бд, но... в некоторых случаях при нахождении штампа процедура берет не тот блок для обработки. А, Б, С - для отладки

//ФУНКЦИЯ ПОЛУЧЕНИЯ АТРИБУТОВ ИЗ ШТАМПА АКАДА
procedure search_atrib_dwg(dwg_file_name:string);
var
adoc, atr, itm : variant;
acd:variant;
adress:string;
mds:variant;
t, k : integer;
i,ii:integer;
a,b,c:string;
begin
try
acd := GetActiveOleObject( "AutoCad.Application");
except
acd := CreateOLEObject( "AutoCad.Application");
end;
acd.Visible := true;
try
adoc := acd.Documents.Open(dwg_file_name);
except
end;
//нижеследующий код - ошибка природы, но он - рабоатет!
//ФИГ ТАМ. РАБОТАЕТ НО НЕ ВСЕГДА
mds := adoc.ModelSpace;
t:=mds.Count-1;
begin
itm := mds.Item(t);
if (itm.ObjectName = "AcDbBlockReference") then
begin
for i:=1 to acd.ActiveDocument.Database.Blocks.Count-1 do
begin
a:=acd.ActiveDocument.Database.Blocks.Item(i).name;
if (a="Штамп_СПДС") or (a="Штамп_РЧ") or (a="Штамп_РЧ_2") or (a="SHTAMP") then
begin
if itm.hasattributes then //ТУТА ПРОБЛЕМКИ. БЛОК НАХОДИТСЯ, А АТРИБУТЫ НЕТ
begin
atr:=itm.getattributes;
if not frm_main.tbl_file_atrib.Locate("LINK",dwg_file_name,[]) then
begin
frm_main.tbl_file_atrib.Append;
frm_main.tbl_file_atribLINK.AsString:=dwg_file_name;
for k:= VarArrayLowBound(atr,1) to VarArrayHighBound(atr,1) do
begin
begin
a:=acd.ActiveDocument.Database.Blocks.Item(i).name;
c:=itm.name[i];
b:=atr[k].Tagstring;
if atr[k].Tagstring="Ф_РАЗРАБ" then
frm_main.tbl_file_atribDESIGNER.AsString:=atr[k].TextString;
if atr[k].Tagstring="ИНЖ1" then
frm_main.tbl_file_atribDESIGNER.AsString:=atr[k].TextString;
...
...
end;
end;
frm_main.tbl_file_atrib.post;
end;
end;
end;
end;
end;
end;
//до сюда код - ошибка природі.
acd.Documents.close;
end;

← →
REP © (2005-01-12 13:18) [8]

syte_ser78 © (12.01.05 13:00) [7]
Хм... к сожалению. этот человек пишет непосредственно под Автокад (LISP), а Delphi не знает совсем.
Извини, не понял вопроса. (просто бывает спрашивают про другие языки программирования PHP например...)

← →
k2 © (2005-01-12 13:56) [9]

Времени немножко нехватка разобраться с твоим кодом, попробуй запустить процедурку, если твои аттрибуты не найдутся, то возможно проблема в файле, блоки возможно ExternalReference или ещё куча причин, если што я в чате часик побуду, удачи
procedure GetAttributesInfoFromActiveDocument; var acad: AcadApplication; adoc: AcadDocument; mp: AcadModelSpace; i, j: integer; bref: IAcadBlockReference; attrs: OleVariant; obj: IDispatch; atref: IAcadAttributeReference; begin try acad := GetActiveOleObject("AutoCad.Application")as AcadApplication; except showmessage("Запустите Автокад"); end; if not assigned(acad) then exit; adoc := acad.ActiveDocument; mp := adoc.ModelSpace; form1.memo1.Clear; for i := 0 to pred(mp.Count) do begin if mp.Item(i).ObjectName = "AcDbBlockReference" then begin bref := mp.Item(i) as IAcadBlockReference; Form1.Memo1.Lines.Add("*** BlockReferenceName: " + bref.Name + "***"); end else continue; if bref.HasAttributes then attrs := bref.GetAttributes else continue; for j := VarArrayLowBound(attrs,1) to VarArrayHighBound(attrs,1) do try obj := attrs[j]; atref := obj as IAcadAttributeReference; Form1.Memo1.Lines.Add("Аттрибут: "+ atref.TagString + " Значение аттрибута: " + atref.TextString); except Form1.Memo1.Lines.Add(Ошибка определения аттрибута."); end; end; end;

← →
syte_ser78 © (2005-01-12 14:43) [10]

ОГРОМНОЕ СПАСИБО!!!!!!!!!!!!!!

← →
syte_ser78 © (2005-01-12 15:15) [11]

Еще вопрос с К2
Есть огромные чертежи из которых меня интересует всего один блок (штамп). Может проще использовать qselect для выбора этого блока а не перебирать все блоки?

← →
k2 © (2005-01-13 11:24) [12]

по поводу QSelect я не в курсе, нет вроде такого метода в объектной модели, если ты про команду Автокада, то любые посылы через SendCommand могут работать некорректно, и пользоваться ими следует в самом крайнем случае
procedure TForm1.Button2Click(Sender: TObject); var bref: IAcadBlockReference; ss: IAcadSelectionSet; ft, fd, llp, urp: OleVariant; i: integer; begin try acad := GetActiveOleObject("AutoCad.Application")as AcadApplication; except showmessage("Откройте файл."); end; if not assigned(acad) then exit; adoc := acad.ActiveDocument; mp := adoc.ModelSpace; try ss := adoc.SelectionSets.Item("ShtampSS"); except ss := adoc.SelectionSets.Add("ShtampSS"); end; if not assigned(ss) then exit; ss.Clear; ft := VarArrayCreate([0, 0], varSmallint); fd := VarArrayCreate([0, 0], varVariant); ft[0] := 2; fd[0] := "ЗнакА"; llp := VarArrayCreate([0, 2], varDouble); urp := VarArrayCreate([0, 2], varDouble); llp[0] := 0; llp[1] := 0; llp[2] := 0; //можно использовать границы окна или ещё што urp[0] := 1000; urp[1] := 1000; urp[2] := 0; ss.Select(acSelectionSetWindow, llp, urp, ft, fd); ss.Highlight(true); acad.Update; end;

fd[0] := "ЗнакА"; - название блока :) просто проверяла на всякий случай
PS. с продолжением лучше наверное будет в основную перебраться, внешняя почта с работы закрыта к сожалению

небольшой вопросик по FilterType (ft)
Какое необходимо установить значение если я хочу включить в селекшинсэт несколько блоков (с разным именем) и не уверен что все они есть. Тоесть включить в селекшинсет те блоки имена которых будут перечисленны в fd и которые найдутся в пространстве модели

ft := VarArrayCreate([0, 3], varSmallint); fd := VarArrayCreate([0, 3], varVariant); ft[0] := -4; fd[0] := "<or"; ft[1] := 2; fd[1] := "Name1"; ft[2] := 2; fd[2] := "Name2"; ft[3] := -4; fd[3] := "or>";
В справке и более сложное условие есть, запиши fd в одну строку и поймешь сразу как они генерятся

Ок. Спасибо. Чуть позже (отметим Старый Новый Год), попробую. С праздничком!

Господа, кто писал под Автокад? Найти похожие ветки