用delphi开发CAD的图框3：开始绘制边框

前面的准备工作做好后就可以画边框了。下面是程序代码。没有包括四角上的剪切标记线。
var
pot1,pot2,pot3,pot4:variant;///定义临时点变量。
procedureTForm1.huitu();
begin
fumian;//调用幅面里面的参数
bili;//调用选用的比例值
////////--------画外框---------//////
pot1:=vararraycreate([0,2],5);
pot1[0]:=0;pot1[1]:=0;pot1[2]:=0;
pot2:=vararraycreate([0,2],5);
pot2[0]:=tkkuan*strtofloat(blzhi);pot2[1]:=0;pot2[2]:=0;
pot3:=vararraycreate([0,2],5);
pot3[0]:=tkkuan*strtofloat(blzhi);pot3[1]:=tkgao*strtofloat(blzhi);pot3[2]:=0;
pot4:=vararraycreate([0,2],5);
pot4[0]:=0;pot4[1]:=tkgao*strtofloat(blzhi);pot4[2]:=0;
caddoc.modelspace.addline(pot1,pot2);
caddoc.modelspace.addline(pot3,pot2);
caddoc.modelspace.addline(pot3,pot4);
caddoc.modelspace.addline(pot4,pot1);
//////////////-----画外框--------/////
////////////-----画内框---------//////
pot1:=vararraycreate([0,2],5);
pot1[0]:=25*strtofloat(blzhi);pot1[1]:=bianju*strtofloat(blzhi);pot1[2]:=0;
pot2:=vararraycreate([0,2],5);
pot2[0]:=(tkkuan-bianju)*strtofloat(blzhi);pot2[1]:=bianju*strtofloat(blzhi);pot2[2]:=0;
pot3:=vararraycreate([0,2],5);
pot3[0]:=(tkkuan-bianju)*strtofloat(blzhi);pot3[1]:=(tkgao-bianju)*strtofloat(blzhi);pot3[2]:=0;
pot4:=vararraycreate([0,2],5);
pot4[0]:=25*strtofloat(blzhi);pot4[1]:=(tkgao-bianju)*strtofloat(blzhi);pot4[2]:=0;
caddoc.modelspace.addline(pot1,pot2);
caddoc.modelspace.addline(pot3,pot2);
caddoc.modelspace.addline(pot3,pot4);
caddoc.modelspace.addline(pot4,pot1);
/////////////画内框---------/////////////
////////////-----对齐短线---------//////
pot1:=vararraycreate([0,2],5);
pot1[0]:=0;pot1[1]:=((tkgao-bianju*2)div2)*strtofloat(blzhi);pot1[2]:=0;
pot2:=vararraycreate([0,2],5);
pot2[0]:=30;pot2[1]:=((tkgao-bianju*2)div2)*strtofloat(blzhi);pot2[2]:=0;
caddoc.modelspace.addline(pot1,pot2);//短横左
pot1:=vararraycreate([0,2],5);
pot1[0]:=tkkuan-bianju-5;pot1[1]:=((tkgao-bianju*2)div2)*strtofloat(blzhi);pot1[2]:=0;
pot2:=vararraycreate([0,2],5);
pot2[0]:=tkkuan;pot2[1]:=((tkgao-bianju*2)div2)*strtofloat(blzhi);pot2[2]:=0;
caddoc.modelspace.addline(pot1,pot2);//短横右
pot1:=vararraycreate([0,2],5);
pot1[0]:=(25+(tkkuan-bianju-25)div2)*strtofloat(blzhi);pot1[1]:=(tkgao-bianju-5)*strtofloat(blzhi);pot1[2]:=0;
pot2:=vararraycreate([0,2],5);
pot2[0]:=(25+(tkkuan-bianju-25)div2)*strtofloat(blzhi);pot2[1]:=tkgao*strtofloat(blzhi);pot2[2]:=0;
caddoc.modelspace.addline(pot1,pot2);//短竖上
pot1:=vararraycreate([0,2],5);
pot1[0]:=(25+(tkkuan-bianju-25)div2)*strtofloat(blzhi);pot1[1]:=0;pot1[2]:=0;
pot2:=vararraycreate([0,2],5);
pot2[0]:=(25+(tkkuan-bianju-25)div2)*strtofloat(blzhi);pot2[1]:=(bianju+5)*strtofloat(blzhi);pot2[2]:=0;
caddoc.modelspace.addline(pot1,pot2);//短竖下
/////////////----对齐短线-----/////////////
//cad.activedocument.sendcommand('line0,0,0tkkuan,0,0tkkuan,tkgao,00,tkgao,00,0,0');
cad.application.zoomextents;//自动满屏
end;
下面是程序运行结果：
||浏览()|(2)最近读者：网友评论：12009-03-2611:24|怎么用delphi语言控制cad画折线呢22009-03-2822:59|回复aa：折线是几条直线连接起来的。还是用画直线的命令即可。不过直线的端点要有一个重合。发表评论：姓名：*姓名最长为50字节网址或邮箱：(选填)内容：验证码：请点击后输入四位验证码，字母不区分大小写