在Delphi中 ruhe 创建一AutoCAD线程，想事先

rb

谢谢前面的答疑
再请教一个问题：
   我在Delphi中创建一AutoCAD线程，想事先
   在Delphi程序中创建一图层，并设置各种参数，
   进入CAD后就可以见到我所创建的图层。
   请问命令的形式怎样？

hhxh

创建图层设置颜色的程序(delphi4.0,acad14.01)
unit uint1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,comobj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form1: TForm1;
acad,ac,act,mdp,lay:OleVariant;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
acad:= GetActiveOleObject('AutoCAD.Application');
// acad:= CreateOleObject('AutoCAD.Application');
acad.Visible := True;
ac:=acad.activedocument;
mdp :=ac.modelspace;
lay:=ac.layers.add('asf');//创建名为ASF的图层
lay.Color := 1 ;          //设图层的颜色为红色
end;

end.

秋枫

1. 
   
2.     AppStr:='AutoCAD.Application.15';
   
3. 
   
4.     // Get AutoCAD Application
   
5.     try
   
6.       acadapp:=GetActiveOleobject(AppStr);
   
7.     except
   
8.       on EOleSysError do
   
9.           AcadAlreadyRunning:=false;
   
10.     end;
    
11. 
    
12.     if not AcadAlreadyRunning then
    
13.       try
    
14.         AcadApp:=CreateOleObject(AppStr);
    
15.       except
    
16.         if not silent then MessageDlg(AppStr+' 没有安装。', mtInformation, [mbok], 0);
    
17.         AutoCADInstalled := false;
    
18.       end;
    
19. 
    
20.     if not AutoCADInstalled then Exit ;    // Terminate the Application
    

复制代码

rb

请问
   if not silent then MessageDlg(AppStr+' 没有安装。', mtInformation, [mbok], 0);
中的是代表什么，编译程序不知道。

rb

请问
   if not silent then MessageDlg(AppStr+' 没有安装。', mtInformation, [mbok], 0);  
中的是代表什么，编译程序不知道。

秋枫

这个是程序中的一段。silent是程序中的一个变量如果为true 表示出错了不要出对话框，安静地退出。[br]你去掉if , 直接messsagebox(...)即可。