• На форуме с 4 июня 2004г.
  • Сообщений: 7
  • Спасибо: 0

Тема: Заливка фигур в Autocad

Помогите разобраться с заливкой в AutoCad 2004 из Delphi 7. Имею на чертеже круг, который необходимо закрасить. Вроде бы нужно использовать команду "ACad.ActiveDocument.ModelSpace.AddHatch(.........)", но не знаю, что писать в скобках. Как указать объект заливки? не понимаю.

  • Vanek
  • Восстановленный участник
  • На форуме с 7 июня 2004г.
  • Сообщений: 10
  • Спасибо: 0

Re: Заливка фигур в Autocad

сам недавно столкнулся с  похожей задачкой , вот мой код:

procedure TForm1.Button4Click(Sender: TObject);
var  pt:variant;
     x,y,z:string;
    ddd:double;
    a:integer;
 begin
// получаем точку куда надо штриховать
pt:=AcadApp.ActiveDocument.Utility.GetPoint ;
 // pt- array of double
//преобразуем координаты в строки
ddd:=pt[0];
a:=trunc(ddd);
x:=floattostr(a); // x
ddd:=pt[1];
a:=trunc(ddd);
y:=floattostr(a);  //y
ddd:=pt[2];
a:=trunc(ddd);
z:=floattostr(a);  // z
// штрихуем
AcadApp.activedocument.SendCommand('-bhatch'+' '+'p'+'2'+' '+'0'+' '+ x+',' +y+' '+' ');
                                  {  p properties
                                     2 scale
                                     0 angle
                                     x,y coordinates               }
end;

  • Vanek
  • Восстановленный участник
  • На форуме с 7 июня 2004г.
  • Сообщений: 10
  • Спасибо: 0

Re: Заливка фигур в Autocad

Внимание!!!    акад воспринимает пробел как ентер, обрати внимание на пустые ' ', в них ОБЯЗАТЕЛЬНО должен быть пробел!!!