solidworks api VBA 用于将模型特征压缩

最新推荐文章于 2024-12-28 11:47:42 发布

msh1216

最新推荐文章于 2024-12-28 11:47:42 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏：备忘文章标签： vba api 测试

本文链接：https://blog.youkuaiyun.com/msh1216/article/details/7686171

备忘专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一段使用SolidWorks宏自动化过程，包括文件保存和特征压缩的操作，详细步骤涵盖从获取应用程序实例到执行自动化任务，如保存为STL文件、选择和抑制特征等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim swApp As Object

Dim swModel As SldWorks.ModelDoc2

Sub main()

Dim sPartName2 As String

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

featCount = swModel.GetFeatureCount

sPartName2 = "D:\Solidworks Data\macro\1001\0.stl"
boolstatus = swModel.Extension.SaveAs(sPartName2, 0, 2, Nothing, 0, 0)

For i = featCount To 1 Step -2 '-2把草图空掉
Set theFeature = swModel.FeatureByPositionReverse(featCount - i)
featName = theFeature.Name
Debug.Print "Feature Name： " & featName1 & ".stl";
bRet = theFeature.Select2(False, 0): Debug.Assert bRet
'压缩特征

boolstatus = swModel.EditSuppress2
sPartName2 = "D:\Solidworks Data\macro\1001\" & featCount + 1 - i & ".stl"
boolstatus = swModel.Extension.SaveAs(sPartName2, 0, 2, Nothing, 0, 0)

Next

'boolstatus = Part.Extension.SelectByID2("前视", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
'Part.InsertSketchText 0, 0, 0, "你好!" & Chr(10) & "测试成功!", 0, 0, 0, 100, 100 '插入草图文本
'Part.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.001, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False '拉伸文本
End Sub