请问如何创建一个autocad2000得一个ole对象，急！！！！

Question

请问在ole对象中，创建一个对象时，比如ole1.createobject('word.document'),
创建autocad14时写ole1.createobject('autocad.drawing'),而我在装上autocad2000后扩后中写什么串？这个串从那里查找呢？？？急等，谢谢

Answer 1

var 
   MyAutoCAD:=olevariant;
begin 
   MyAutoCAD:= CreateOleObject('autocad15.Application');
end;
其实autocad2000就是autocad15，在注册表里可以找到!

Answer 2

哦！刚才的搞错了！autocad2000应该是autocad14.5，而autocad2002才是autocad15，在注册表里查看注册信息就可以知道了！

Answer 3

我是这样ole1.createobject('autocad15.Application'),怎么不行呀，换成14。5也是不行，请问如何做呀，怎么查找呀

Answer 4

借人气问一问:
我想插入一个dwg文件到数据库中,具体怎么实现啊?

Answer 5

你要去查看注册表呀，autocadR14是R14版本，autocad2000是R14.5版本，autocad2002是R15版本，你要查看他是什么版本嘛！我上次说的不一定是注册的版本号！比如autocadR14是autocadR14，则autocad2000就是autocadR14.5，autocad2002就是autocadR15

Answer 6

那位什么我一双击ole就报错：‘无效得类别字符串’

Answer 7

给你一个例子吧！
uses comobj;var
  Acad,ActiveDoc,AcadModal : OleVariant;
begin
  Acad := CreateOleObject('AutoCad.Application');
  if not varisempty(Acad) then
     Acad.visible := visible;
   // open drawing
  ActiveDoc := Acad.Documents.Open('c:\01.dwg');
  AcadModal := ActiveDoc.ModelSpace;
end;
看不懂那我没有办法了！

Answer 8

版本不同可以改写:
Acad := CreateOleObject('AutoCadR14.5.Application');
Acad := CreateOleObject('AutoCadR15.Application');