'++++++++++++++++++存STEP/PDF/DWG++++++++++++++++++++++++++
'判定工程图是否存在
If Dir(strExist & ".SLDDRW") = "" Then GoTo 5
If strHideSpecific <> 2 Then GoTo 5
'存STEP
If chkStep.Value = True Then
If chkBoxHanConfig.Value = True Then
Olongstatus = ChildModel.SaveAs3(txtPath.Value & strChilename & "-" & "P" & childconfstring & ".STEP", 0, 2)
Else
Olongstatus = ChildModel.SaveAs3(txtPath.Value & strChilename & ".STEP", 0, 2)
End If
End If