Kann Jemand was mit dieser (Directive ?) anfangen?
Delphi-Quellcode:
procedure TSimpleImportForm.ImportViewPortBegin(Sender: TObject);
var
V: TsgDXFViewPort absolute Sender;
S: string;
begin
S := 'Rect:'
+ sLineBreak + ' Left= ' + FloatToStr(V.Rect.Left)
+ sLineBreak + ' Top= ' + FloatToStr(V.Rect.Top)
+ sLineBreak + ' Z1= ' + FloatToStr(V.Rect.Z1)
+ sLineBreak + ' Right= ' + FloatToStr(V.Rect.Right)
+ sLineBreak + ' Bottom= ' + FloatToStr(V.Rect.Bottom)
+ sLineBreak + ' Z2= ' + FloatToStr(V.Rect.Z2);
S := S + sLineBreak + '---ENTITIES below are displayed in this VIEWPORT---';
FTextFile.Add(S);
end;