如何solidworks花键点导出到一个. txt文件。
在这里发布程序代码:-
宏观阅读3 d草图点和导出到Excel或文本文件. . ! !
小心这个程序读取点的顺序创建你可能需要重新排列数据在excel中如果他们坏了!
步骤1:
产品说明:
选择您希望“读”的草图和运行宏。
宏将excel和开始与xyz点数据填充表。
源代码:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -子main ()
昏暗的swApp SldWorks.SldWorks
昏暗的doc SldWorks.ModelDoc2
昏暗的部分SldWorks.PartDoc
昏暗的sm SldWorks.SelectionMgr
昏暗的壮举SldWorks.feature
昏暗的草图作为SldWorks.sketch
昏暗的v是不同的
昏暗的我一样长
昏暗的sseg SldWorks.SketchSegment
昏暗的样条曲线作为SldWorks.SketchLine
昏暗的sp SldWorks.SketchPoint
昏暗的ep SldWorks.SketchPoint
昏暗的年代字符串昏暗的exApp Excel.Application
昏暗的表像Excel.Worksheet新Excel.Application设置exApp =
如果不是exApp无关
exApp。可见= True
如果不是exApp无关
exApp.Workbooks.Add
设置表= exApp.ActiveSheet
如果不是单是什么
表。细胞(1、2)value = " X "
表。细胞(1、3)value = " Y "
表。细胞(1,4)value =“Z”
如果
如果
如果
sldworks.application“集swApp = GetObject ()
如果不是swApp无关
设置文档= swApp.ActiveDoc
如果不是医生是什么
如果医生。方法= swDocPART那么
设置部分=医生
设置sm = doc.SelectionManager
如果不是没有和sm是什么
如果sm.GetSelectedObjectType2 (1) = swSelSKETCHES
设置壮举= sm.GetSelectedObject4 (1)
设置示意图= feat.GetSpecificFeature
如果不是素描是什么
v = sketch.GetSketchPoints
因为我= LBound (v) UBound (v)
设置sp = v(我)
如果不是sp是什么,而不是单是什么而不是exApp然后
的表。细胞(2 + 1)value = & i + 1“向量”
表。细胞(2 + 2)value = (sp。x * 1000/25.4, 12月)
表。细胞(2 + 3)value = (sp。y * 1000/25.4, 12月)
表。细胞(2 + 4)value = (sp。12月,z * 1000/25.4)
exApp.Columns.AutoFit
如果
接下来,我
如果
如果
如果
如果
如果
如果
终止子
