solidworks 二次开发 如何遍历文件夹下所有子文件的文件？

Posted 2023-05-06

solidworks 二次开发 如何遍历文件夹下所有子文件的文件

注意 是所有子文件夹下的文件

感谢

参考技术A 1 可以使用 CTRL+TAB 键循环进入在 SolidWorks 中打开的文件。

2 使用方向键可以旋转模型。按CTRL 键加上方向键可以移动模型。按ALT 键加上方向键可以将模型沿顺时针或逆时针方向旋转。

3 您可以钉住视图定向的对话框，使它可以使用在所有的操作时间内。

4 使用z 来缩小模型或使用SHIFT + z 来放大模型。

5 您可以使用工作窗口底边和侧边的窗口分隔条，同时观看两个或多个同一个模型的不同视角。

6 单击工具栏中的"显示/删除几何关系"的图标找出草图中过定义或悬空的几何关系。当对话框出现时，单击准则并从其下拉清单上选择过定义或悬空。

7 您可以在FeatureManager设计树上拖动零件或装配体的图标，将其放置到工程图纸上自动生成标准 三视图。

8 您可以用绘制一条中心线并且选择镜向图标然后生成一条"镜向线"。

9 您可以按住 CTRL 键并且拖动一个参考基准面来快速地复制出一个等距基准面，然后在此基准面上双击鼠标以精确地指定距离尺寸。

10 您可以在FeatureManager设计树上以拖动放置方式来改变特征的顺序。

11 当打开一个工程图或装配体时，您可以借助使用打开文件对话框中参考文件按钮来改变被参考零件。

12 如果隐藏线视图模式的显示不够精准，可以使用工具/选项/文件属性/图象品质/线架图品质，以调整 显示品质。

13 您可以用拖动FeatureManager设计树上的退回控制棒来退回其零件中的特征。

14 使用选择过滤器工具栏，您可以方便地选择实体。

15 按住 CTRL 键并从FeatureManager设计树上拖动特征图标到您想要修改的边线或面上，您可以在许多 边线和面上生成圆角、倒角、以及孔的复制。

我用VB做SolidWorks的二次开发，下面是画两段轴的宏程序，请问其中有些语句中的数字代表啥意思？急用！

Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.024825, 0.033812, 0#)
'这一句中每个数字代表什么意思？？？

Part.ShowNamedView2 "*上下二等角轴测", 8
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.00916934617448, -0.0189578867027
'这一句中每个数字代表什么意思？？？
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.0189578867027
'这一句中每个数字代表什么意思？？？
myModelView.ZoomByFactor 0.9708737864078
'这一句中每个数字代表什么意思？？？
Set myModelView = Part.ActiveView

Set myModelView = Part.ActiveView
myModelView.TranslateBy -3.102011494253E-04, -9.306034482759E-04
'这一句中每个数字代表什么意思？？？

Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
'这一句中每个数字代表什么意思？？？
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.1, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, True, True, True, 0, 0, False)
'这一句中每个数字代表什么意思？？？

Part.SelectionManager.EnableContourSelection = False
Part.ClearSelection2 True
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.04484, 0.020918, 0#)
'这一句中每个数字代表什么意思？？？
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
'这一句中每个数字代表什么意思？？？
Set myFeature = Part.FeatureManager.FeatureExtrusion(True, False, False, 0, 0, 0.1, 0.1, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, True, True, True)
'这一句中每个数字代表什么意思？？？

Part.SelectionManager.EnableContourSelection = False
End Sub

我画的大轴的底面直径是100mm，高100mm，小轴的底面直径是50mm,高100mm,为什么上面都是很多小数的数字啊？？？

参考技术A Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.024825, 0.033812, 0#)
这个是在草图平面上创建了一个圆，圆心在原点0#, 0#, 0#,，圆上一点为( 0.024825, 0.033812, 0#)

Part.ShowNamedView2 "*上下二等角轴测", 8
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.00916934617448, -0.0189578867027
'这一句中每个数字代表什么意思？？？
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.0189578867027
'这一句中每个数字代表什么意思？？？
myModelView.ZoomByFactor 0.9708737864078
'这一句中每个数字代表什么意思？？？
Set myModelView = Part.ActiveView

Set myModelView = Part.ActiveView
myModelView.TranslateBy -3.102011494253E-04, -9.306034482759E-04
'这一句中每个数字代表什么意思？？？

以上这些都是可以注释掉的，是你在创建模型时，进行的旋转等操作

唉，太多了，建议你去API帮助主题上查看吧！还是比较详细的。
宏里面长度和角度的单位为 米和弧度，而solidworks采用的 毫米和度。
所以有很多小数点。本回答被提问者采纳