手机CAD看图软件打开错误代码

1、安装在电脑桌面上，双击打开软件，可以看到完整的初始界面。凯者

2、点击左上角的“文件”，会d出一个下拉列表，其中有打开。

3、点击“文件”下方的打开。

4、点击完成以后，就会d出打开的小派庆窗口尘孙握，里面有可以打开的文件。

5、选中需要打开的文件，点击下方的“打开”。

On Error GoTo Err: '有错跳至err子过程脊答饥

Dim Varian As Variant '定义Varian 类型

Dim Pti(0 To 2) As Double '定义Pti为数组,内容限0-2行,或列

Dim PtH As String'定义为文本

Dim TextH As Double'为双精度

Dim Po(0 To 2) As Double'为双精度数组

Dim Texta As AcadText'定义为cad单行文本

Dim Tsc As Double

Dim BlocobjA As AcadBlockReference'定义为cad块

Tsc = 1 '比例

PtH = "C:\螺钉标准件\螺钉标准件\六角螺栓.dwg"

'此路径你自定义，必须有；没有会报错

If Dir(PtH) <举厅>"" Then'用dir判断有没有pth文件,没有=""

Varian = ThisDrawing.Utility.GetPoint(, vbCr &"放置点:")'在cad上选择一个坐标,或位置

Po(0) = Varian(0): Po(1) = Varian(1): Po(2) = Varian(2)'取出坐标的xyz值

Set BlocobjA = ThisDrawing.ModelSpace.InsertBlock(Po, PtH, Tsc, Tsc, Tsc, 0)'在po位置插入块pth

BlocobjA.Explode'块分解?

BlocobjA.Delete'块删除

Else

MsgBox "<" + PtH + " >文件不存在!!!", vbCritical, "读取文件错误" '文件樱返报错

End If

Err: '错误停止运行

End Sub

大至是这个意思了