Function AskDisplatyPartName() As String
Dim part_name As String = ""
Dim part_tag As NXOpen.Tag = UfS.Part.AskDisplayPart
UfS.Part.AskPartName(part_tag, part_name)
Return part_name
End Function
返回当前显示图形的文件路径和名称
Function AskDisplatyPartName() As String
Dim part_name As String = ""
Dim part_tag As NXOpen.Tag = UfS.Part.AskDisplayPart
UfS.Part.AskPartName(part_tag, part_name)
Return part_name
End Function
返回当前显示图形的文件路径和名称
UG008 发表于 2010-8-28 13:24
Function AskDisplatyPartName() As String
Dim part_name As String = ""
Dim part_tag As NXOpen.Tag = UfS.Part.AskDisplayPart
UfS.Part.AskPartName(part_tag, part_name)
...