delphi + cad

jauni

我使用delphi，有没有同路的？开发了一些程序，主要是应用数据库设计，将sql数据库数据与cad图形联系，做电气设计。例如不同的元件选型而对应的电机保护等。

breezer

也想用delphi+cad， 能否发一份delphi+cad的框架例子？ breezer2003@sohu.com 3x

zzhg

我也想用delphi进行二次开发，发个列子把 zengzhigang_0@163.com thanks

pckite

我也是刚学，给此简单的例子吧 pckite@163.com

fourstone

放弃吧，光数据转换中用到variant就够头疼的了

jauni

首先谢谢各位支持，出差了好久，邮件一直没有仔细看过。不值各位还有兴趣么。 下面是个简单的例子，抛砖引玉,实际上只要你仔细看acad的help就能做出来了
记得要 uses ComObj procedure TForm1.Button2Click(Sender: TObject);
var
cad,CADDOC:variant;
startPoint, endpoint:Variant;
begin
cad:=GetActiveOleObject('AutoCAD.Application');
cad.visible:=true;
caddoc:= cad.activedocument; startPoint:= VarArrayCreate([0,2],5 );
startPoint[0]:=0;
startPoint[1]:=0;
startPoint[2]:=0; endPoint:= VarArrayCreate([0,2],5 );
endPoint[0]:=120;
endPoint[1]:=120;
endPoint[2]:=0;
caddoc.ModelSpace.AddCircle(VarArrayRef(startPoint), 25).Update; //画个圆
caddoc.ModelSpace.AddLine((startPoint),(endpoint)); //画条线
caddoc.ModelSpace.Addtext('sdgfdag',VarArrayRef(endPoint),20); //写个字
caddoc:=Unassigned;
cad:=Unassigned;
end;

bxlander

非常 感谢

alin

http://www.caddzone.com/delphi/samples.htm

bantam

我从前用LISP，快把我搞疯了。所以我想办法将Perl在Cad上搞起来，并响应Cad的对象事件，管理对象。

我用Perl控制Excel、word,ODBC将各个程序联系起来互通信息。

我用Perl写动态网页。我的目标是只用Perl就包打天下。用Perl写起程序来是如此顺手。

例程：

use Tk;
use strict;
use Win32::OLE qw(EVENTS);
use Win32::OLE::Variant;
$|=1;
       
package MyEvent;
use strict;
use Win32::OLE::Variant;
$|=1;
my $status = 0;
my $Handle = 0;

sub ObjectModified {
 if ($status == 1){
    return(0)}
 $status = 1;
    my ($Obj,$arg) = @_;
 my $ModifyObj = $arg->Value();
 print $ModifyObj->{'ObjectName'} . "\n";
 $Handle = $ModifyObj->Handle();
}

sub EndCommand{
    my ($Obj,$arg) = @_;
 my $one = Variant(VT_ARRAY|VT_R8,3);
    $one->ut([1, 1, 0]);
    my $two = Variant(VT_ARRAY|VT_R8,3);
    $two->ut([1, 20, 0]);
 my $ModifyObj = $Obj->HandleToObject($Handle);
 $ModifyObj -> Move($one,$two);
}

package main;
$Win32::OLE::Warn = 3;
my $acad = Win32::OLE->GetActiveObject('AutoCAD.Application.16')
    || Win32::OLE->new('AutoCAD.Application.16');
 $acad->{'visible'}=1;
my $Documents = $acad->{'Documents'};
my $Document1 = $Documents->Item(0);
$Document1->Activate();
my $moduspace=$Document1->ModelSpace;
Win32::OLE->WithEvents($Document1,"MyEvent","_DAcadDocumentEvents");
Win32::OLE->MessageLoop;

shirazbj

这个perl能开发autocad 2007 LT么？