[求助]斑竹：请问用delphi开发cad怎么样？帮我分析下吧◎
无奈，请问用delphi开发cad怎么样啊？我查不多什么相关的帖子，书也没见到过，请高手指点下吧！现在挺急的！它与vb,lisp的比较，以及用delphi开发cad的优缺点呀什么的！非常感激！ 用delphi没什么意识的，还是转VBA好。delphi可以实现的vb都可以。且delphi开发的资料太少
我delphi用过几天，如果需要的话可以把资料发上来。
我用delphi开发可实现的功能如下：打开已有CAD文档，画直线，写文本，画多线，选择图层。 如果有delphi的资料,麻烦上传一些吧 都是自己摸索的，也没弄几天，仅供参考
可实现的功能：打开已有CAD文档，画直线，写文本，画多线，选择图层。
因为我的工作中只需用到这些功能，所以其他功能我都没写。大家有兴趣可以补充。
版本说明：delphi必须7.0以上。否则不行。
CAD我用的是2004
准备工作：打开DELPHI，project---〉import typelibrary 点ADD，添加C:\Program Files\Common Files\Autodesk Shared\acax16chs.tlb。install。
下面是程序，都是基于VBA的，和VBA相似
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj, AutoCAD_TLB;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
function drawline(a1,b1,a2,b2:Real;layers:string):Boolean;
function drawtext(text:string;a,b:Real;high:Real;flag:Boolean;layers:string):Boolean;
function drawwideline(a1,b1,a2,b2,a3,b3,a4,b4,a5,b5:Real;flag:boolean;layers:string):Boolean;
function drawrectangle(a1,b1,a2,b2:Real;flag:boolean;layers:string):Boolean;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;line:Acadline;acad:AcadApplication;aPolygon: AcadLWPolyline;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var fangxiangtxt:Boolean;
begin
try
acad:=GetActiveOleObject('AutoCAD.Application.16') as AcadApplication;
except
acad:=CreateOleObject('AutoCAD.Application.16') as AcadApplication;
end;
Acad.Documents.Open('D:\1.dwg',false,false); //打开CAD；参数：（路径，是否只读，是否加密）,没有这句就是新建CAD
acad.Visible:=True;
drawline(0,0,100,100,'SB'); //画直线;参数：(起点（x，y）、终点（x，y）、图层)
drawtext('asds//adas',100,100,20,false,'SB');//写文本;参数：（文本，坐标，高度，横/竖，图层）
drawrectangle(0,0,100,100,true,'SB')// 画矩形；参数：（对角两点的坐标，粗/细，图层）
end;
function TForm1.drawline(a1,b1,a2,b2:Real;layers:string):Boolean;
var vpoint1,vpoint2:OleVariant;
begin
vpoint1:=varArrayCreate(,varDouble);
vpoint2:=varArrayCreate(,varDouble);
vpoint1:=a1; vpoint1:=b1; vpoint1:=0;
vpoint2:=a2; vpoint2:=b2; vpoint2:=0;
line:=acad.ActiveDocument.ModelSpace.Addline(vpoint1,vpoint2);
line.Layer:=layers;
line.Update;
end;
function TForm1.drawtext(text:string;a,b:Real;high:Real;flag:Boolean;layers:string):Boolean;
var vpoint:OleVariant;cc:widestring;bb:wordbool;dd:wordbool;ee:integer;ff:integer;
begin
vpoint:=varArrayCreate(,varDouble);
vpoint:=a; vpoint:=b; vpoint:=0;
flag:=false;
if flag then
begin
acad.ActiveDocument.ActiveTextStyle.setFont(cc,bb,dd,ee,ff);
acad.ActiveDocument.ModelSpace.Addtext(text,vpoint,high).Layer:=layers;
end
else// 本来想用这段实现从上到下排列的单行文字但是未果，
begin
acad.ActiveDocument.ActiveTextStyle.FontFile:='C:\Program Files\AutoCAD 2004\Fonts\txt.shx';
acad.ActiveDocument.ModelSpace.Addtext(text,vpoint,high).VerticalAlignment:=acVerticalAlignmentMiddle;
end;
//acad.ActiveDocument.ModelSpace.AddText()
//
//edit1.text:=cc;
end;
function Tform1.drawwideline(a1,b1,a2,b2,a3,b3,a4,b4,a5,b5:Real;flag:boolean;layers:string):Boolean;
var pline:OleVariant ;
begin
pline:=varArrayCreate(,varDouble);
pline:=a1; pline:=b1; pline:=a2; pline:=b2; pline:=a3; pline:=b3;
pline:=a4; pline:=b4; pline:=a5; pline:=b5;
if flag then
begin
aPolygon:=acad.ActiveDocument.ModelSpace.AddLightWeightPolyline(pline);
aPolygon.ConstantWidth:=10;
aPolygon.Layer:=layers;
end
else
begin
aPolygon:=acad.ActiveDocument.ModelSpace.AddLightWeightPolyline(pline);
aPolygon.Layer:=layers;
end;
// acad.ActiveDocument.ModelSpace.AddMLine(pline)//多线，两条平行的，只要指定2个点；
end;
function Tform1.drawrectangle(a1,b1,a2,b2:Real;flag:boolean;layers:string):Boolean;
begin
drawwideline(a1,b1,a1,b2,a2,b2,a2,b1,a1,b1,flag,layers);
end;
end.
以上程序调试，运行成功
我想知道delphi与其它语言开发cad的情况怎么样？比较下，大家用delphi开发cad很少吧？其实我也不想用，delphi，苦衷！ 我原来也使用delphi，后来要开发CAD的程序，查到DELPHI开发CAD的资料少，所以改用vb来做CAD了。用DELPHI倒底怎么样不知道，不过我觉得可以确定的是没有使用VB方便。 我觉得实现一般的功能，用lisp或vlisp就可以了。有些功能实现不了，而delphi比较容易实现的，就用delphi来实现。
可以用delphi写个dll文件实现该功能，然后用lisp调用。这样比较方便和快速。
我现在就是用delphi做cad二次开发呢。个人感觉问题多多，相关资料太少，都是自己摸索。绝对没有VB方便，不过可惜我也有自己的苦衷啊，不得不用delphi，有时间的话大家交流一下吧！
页:
[1]