如何在NX从MS Excel导入点吗?
使用这些脚本从MS Excel文件导入3 d坐标到NX模型(不幸的是示例脚本和文件附件不允许)。
步骤1:
按ALT + F8键,选择文件,其中包含以下代码(扩展是.vb):
选择严格了
导入系统
进口NXOpen
模块NXJournal子主要(按值传递参数()作为字符串)
昏暗的theSession会话= Session.GetSession ()
暗虽然作为= theSession.Parts.Work ()
昏暗的pnt Point3d
昏暗的newPoint点
昏暗的X, Y, Z的两倍
昏暗的EXCEL = CreateObject (“Excel.Application”)
EXCEL。可见= False
昏暗的Doc = EXCEL.Workbooks。打开(“C: \西门子NX KBE \ \分。xlsx”,只读的:= True)
昏暗的表= EXCEL.Sheets
因为我是Doc.Sheets.Count Integer = 1
昏暗的表= Doc.Sheets.Item(我)
暗pointCounter为整数
Sheet.UsedRange.Rows pointCounter = 0。数- 1
X =表。细胞((pointCounter + 1), 1) value
Y =表。细胞((pointCounter + 1), 2) value
Z =表。细胞((pointCounter + 1), 3) value
pnt = New Point3d (X, Y, Z)
newPoint = workPart.Points.CreatePoint (pnt)
newPoint.SetVisibility (SmartObject.VisibilityOption.Visible)
下一个
workPart.ModelingViews.WorkView.Fit ()
下一个
Doc.Close ()
EXCEL.Quit ()
终止子
终端模块步骤2:
这个文件夹的Excel文件位置:
“C: \西门子NX KBE \ \ Points.xlsx”
按你们的要求更改文件夹或位置。结果,在视频中可以看到:
https://www.youtube.com/watch?v=4V-NsKdTUmY步骤3:
更快的方法openfile对话框中,按下ALT + F8键,选择文件,其中包含以下代码(扩展.vb):
选择严格了
导入系统
进口NXOpen
进口System.Windows.Forms模块NXJournal
子主要(按值传递参数()作为字符串)昏暗的openFileDialog1新OpenFileDialog ()
openFileDialog1。过滤器= " Excel文件(*。xls, * | * xls .xlsx); *。xlsx |所有文件(* . *)| * . *”
openFileDialog1。FilterIndex = 1
如果openFileDialog1.ShowDialog () = DialogResult。那好吧
昏暗的theSession会话= Session.GetSession ()
暗虽然= theSession.Parts.Work一部分
昏暗的pointsFromFile NXOpen.GeometricUtilities.PointsFromFileBuilder
pointsFromFile = workPart.CreatePointsFromFileBuilder ()
昏暗的EXCEL = CreateObject (“Excel.Application”)
EXCEL。可见= False
EXCEL。DisplayAlerts = False
昏暗的Doc = EXCEL.Workbooks.Open (openFileDialog1。文件名,只读的:= True)
昏暗的fileFolder字符串= IO.Path.GetDirectoryName (openFileDialog1.FileName)
昏暗的表= EXCEL.Sheets
因为我是Doc.Sheets.Count Integer = 1
昏暗的表= Doc.Sheets.Item(我)
昏暗的newCSV字符串= fileFolder & &表“\”。名字& . csv”
表。SaveAs (newCSV, 20岁,,,,,,2)
pointsFromFile。文件名= newCSV
pointsFromFile。CoordinateOption = NXOpen.GeometricUtilities.PointsFromFileBuilder.Options.Absolute
pointsFromFile.Commit ()
workPart.ModelingViews.WorkView.Fit ()
下一个
pointsFromFile.Destroy ()
Doc.Close ()
EXCEL.Quit ()
为每个FileDelete IO.Directory字符串。getfile (fileFolder &“\”,“* . csv”)
IO.File.Delete (FileDelete)
下一个
如果
终止子
终端模块结果,在视频中可以看到:
https://www.youtube.com/watch?v=zpZsMIH21iU
