
|
-博客论坛-|-﨣﨤﨧﨨- -网站导航-|-规范下载- -BelovedFLash欣赏-
|
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 ![]() |
Tiancao Blog All Rights Reserved 田草博客 版权所有 Copyright © |