关于delphi对cad二次开发的问题

龙/奋斗

我现在在写一个关于delphi对cad二次开发的程序，如下图，想要找一条竖线，与多条斜线有2个交点时画出这条竖线（图中红色的线）。程序代码：unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj,ActiveX;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  obj_Doc,obj_ModelSpace, obj_Acad: Variant;
  boo:boolean;
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
boo:=false;
  try
  obj_Acad:=GetActiveOleObject('AutoCAD.Application');
  except
  obj_Acad:=CreateOleObject('AutoCad.Application');
  end;
  obj_Acad.visible:=True;
  obj_Doc:=obj_Acad.ActiveDocument;
  obj_ModelSpace:=obj_Doc.ModelSpace;
  obj_Acad.zoomextents;
  showmessage('ok');
  boo:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  obj_polyline,obj_line,Rectangularpolyline:Variant;
  DistBetweenRows, DistBetweenColumns, DistBetweenLevels:double;
  NumberOfRows,NumberOfColumns,NumberOfLevels:integer;
  fitpoints:Variant;
  point1,point2:Variant;
  intPoints:Variant; //保存交点
  k,i,num:integer;
  str:string;
begin
k:=0;
  point1:=VarArrayCreate([0,2],VarDouble);
  point2:=VarArrayCreate([0,2],VarDouble);
  for i:=0 to 5 do
  begin
  fitpoints:=VarArrayCreate([0,5],VarDouble);
  fitpoints[0]:=0+3*i;fitpoints[1]:=0;fitpoints[2]:=0;
  fitpoints[3]:=5+3*i;fitpoints[4]:=5;fitpoints[5]:=0;
  obj_Polyline:=obj_ModelSpace.AddPolyline(fitpoints);
  point1[0]:=i+0.0;point1[1]:=0.0;point1[2]:=0.0;
  point2[0]:=i+0.0;point2[1]:=5.0;point2[2]:=0.0;
  obj_line:=obj_ModelSpace.Addline(point1,point2);
  intPoints:=obj_line.IntersectWith(obj_polyline, 0);
  if  VarIsArray(intPoints)  then
    k:=k+1;
  if k<>2 then
  obj_line.Delete
  else
  Exit;
  end;
end;
end.红色的代码不能实现，也是问题的关键，有哪位朋友可以帮忙解决下

wangyily

强烈支持楼主ing……

evasong

真是难得给力的帖子啊。

殇冰逝水

帮你顶顶吧

Song168

大虾  看好你   期待你的成果