社区 › VB › delphi + cad

jauni 发表于 2004-3-17 11:08:00

delphi + cad

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

breezer 发表于 2004-5-26 14:02:00

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

zzhg 发表于 2004-6-15 02:45:00

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

pckite 发表于 2004-6-15 08:27:00

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

fourstone 发表于 2004-6-16 10:47:00

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

jauni 发表于 2004-7-2 11:01:00

首先谢谢各位支持，出差了好久，邮件一直没有仔细看过。不值各位还有兴趣么。
下面是个简单的例子，抛砖引玉,实际上只要你仔细看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(,5        );
                       startPoint:=0;
                       startPoint:=0;
                       startPoint:=0;
                       endPoint:= VarArrayCreate(,5        );
                       endPoint:=120;
                       endPoint:=120;
                       endPoint:=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 发表于 2007-2-13 11:39:00

非常 感谢

alin 发表于 2007-2-14 19:55:00

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

bantam 发表于 2007-2-15 23:58:00

我从前用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-&gtut();
    my $two = Variant(VT_ARRAY|VT_R8,3);
    $two-&gtut();
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 发表于 2007-2-21 18:28:00

这个perl能开发autocad 2007 LT么？

查看完整版本: delphi + cad