[求助]VB与R14的问题

ddroyce

vb中怎么引用AutoCAD R14的类库啊？


在AUTOCAD 2005环境中开发出来的应用程序在R14中运行不了啊


我该怎么配制，转移环境啊？


再此请教啊！：）

雪山飞狐_lzh

后期绑定，不引用类型库，所有对象声明为Object

ddroyce

后期怎么绑定啊？还是不大明白。


就把所有对象声明为Object就可以了吗？

ddroyce

我还是想请教一下，用vb在R 14的环境下开发CAD和在2005的环境在一样吗？


现在在2005下开发的怎么转到R14下依然能用？急啊~~~


谢谢了！：）

雪山飞狐_lzh

R14是单文档，2005是多文档，新建文件时会有不同，其他的应该差不多，


一定要不引用类型库，在GetObject或CreateObject时把版本号附上


比如2005是AutoCad.Application.16


R14是AutoCad.Application.14？（忘了，先试试吧）

ddroyce

谢谢斑竹。 连接R 14没有问题。连上了。但是打不开文件啊？ 在2005中我是这样写的： Dim acadapp As Object '建立Application对象
Dim acaddocs As Object '建立Document对象
On Error Resume Next Set acadapp = GetObject(, "autocad.application.14") '若AutoCad已启动 , 则直接得到
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application.14") '若AutoCad未启动，则运行它
If Err Then
MsgBox Err.Description
Exit Function
End If
End If
MsgBox "Now running " + acadapp.Name + " version " + acadapp.Version
Set acaddocs = acadapp.Documents '设acaddocs为当前图形文件
Dim dwgname As String
dwgname = "C:\temp\temp.dwg" If Dir(dwgname) <> "" Then
acaddocs.Open (dwgname) '打开一个CAD文件
MsgBox "有文件"
acadapp.Visible = True
Dim temp() As String
Dim signer As String
Dim time As String

Dim insPoint(0 To 2) As Double '定义插入点
Dim textHeight As Double '定义文本高度
Dim textStr As String '定义文本字符
Dim textObj As Object '定义文本对象

insPoint(0) = -18990
insPoint(1) = 3424
insPoint(2) = 0
textHeight = height
textStr = "明经通道"

Dim ts As Object '设置字体
Set ts = acaddocs(0).TextStyles.Add("option")
ts.SetFont "宋体", True, False, 0, 1
acaddocs(0).ActiveTextStyle = ts

'创建文本对象
Set textObj = acaddocs(0).ModelSpace.AddText(textStr, insPoint, textHeight)
textObj.Update
textObj.StyleName = "option"

acaddocs(0).SaveAs ("C:\temp\temp.dwg")
Else
MsgBox "没有此文件,请建文件，路径为：C:\temp\temp.dwg"
Exit Function
End If cad可见后，什么都没有啊，里面不是temp.dwg文件啊？ 我该怎么处理啊？

雪山飞狐_lzh

试试


acadapp.ActiveDocument.open

ddroyce

现在可以打开文件了，但是还是有一个问题啊，我修改后的代码如下： Dim acadapp As Object '建立Application对象
Dim acaddoc As Object '建立Document对象
On Error Resume Next Set acadapp = GetObject(, "autocad.application.14") '若AutoCad已启动 , 则直接得到
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application.14") '若AutoCad未启动，则运行它
If Err Then
MsgBox Err.Description
Exit Function
End If
End If
MsgBox "Now running " + acadapp.Name + " version " + acadapp.Version
Set acaddoc = acadapp.ActiveDocument '设acaddocs为当前图形文件
Dim dwgname As String
dwgname = "C:\temp\temp.dwg" If Dir(dwgname) <> "" Then
acaddoc.Open (dwgname) '打开一个CAD文件
MsgBox "有文件"
acadapp.Visible = True

Dim temp() As String
Dim signer As String
Dim time As String

Dim insPoint(0 To 2) As Double '定义插入点
Dim textHeight As Double '定义文本高度
Dim textStr As String '定义文本字符
Dim textObj As Object '定义文本对象

insPoint(0) = -18990
insPoint(1) = 3424
insPoint(2) = 0
textHeight = height
textStr = "明经通道"

Dim ts As Object '设置字体
Set ts = acaddoc.TextStyles.Add("option")
ts.SetFont "宋体", True, False, 0, 1
acaddoc.ActiveTextStyle = ts

'创建文本对象
Set textObj = acaddoc.ModelSpace.AddText(textStr, insPoint, textHeight)
textObj.Update
textObj.StyleName = "option"

acaddoc.SaveAs ("C:\temp\temp.dwg")
'acadapp.Visible = True '使AutoCad可见
Else
MsgBox "没有此文件,请建文件，路径为：C:\temp.dwg"
Exit Function
End If 执行到打开文件后出现下面的情况： 出现一个对话框：Font not found: hztxt 我做的程序是在服务器上的，是不允许人工手动来选择对话框的。 我很疑惑，用vb在2005的环境下，打开文件可以后台执行这样一个过程，R14怎么不行啊？ 我怎么解决啊？

雪山飞狐_lzh

hztxt.shx在Font目录下么？

ddroyce

HZFS
hztxt
gbcbig 都是字体库吗？ 打开文件时，都说找不到。 我是刚开始接触开发CAD的程序，不是很懂。 我能在哪里找到啊？