用户登陆
站点日历
站点统计
最新评论
根据AutoCAD的版本来确定使用ObjectDBX的版本 [ 日期：2009-02-17 ] [ 来自：Private Sub UserForm_Initialize()
'根据AutoCAD的版本来确定使用ObjectDBX的版本
If Left(Version, 2) = "15" Then
Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
ElseIf Left(Version, 2) = "16" Then
Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
End If
End Sub
'根据AutoCAD的版本来确定使用ObjectDBX的版本
If Left(Version, 2) = "15" Then
Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
ElseIf Left(Version, 2) = "16" Then
Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
End If
End Sub
|
|
是啊哈哈哈哈哈
| 发表评论 - 不要忘了输入验证码哦！ |