hello_icax 发表于 2010-8-28 10:12
不是高手.
仅供参考!
char cr1[133];
char *cr2=cr1;
uc5000(cr2);//当前PART文件全名,包含路径.
UF_UI_write_listing_window(cr2);
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)
...
欢迎光临 iCAx开思工具箱 (https://t.icax.org/) | Powered by Discuz! X3.3 |