求助，如能解决可有偿，希望大佬帮助 - vb吧

level 1

nbnbnb356 楼主

本人是一名vb6.0初学者，想用vb连接sw2024，但是在工程-引用中并没有solidworks2024的可引用项，自己搜了搜ai之后浏览选择了几个dll文件，但是还是出现这个报错，有无大佬有解决思路 [泪]

2025年04月06日 17点04分 1

level 2

weity2012

学习资源
1. SolidWorks API帮助文档(安装SolidWorks后自带)
2. SolidWorks开发者论坛
3. VB6与COM互操作相关文档
虽然技术上可行，但考虑到VB6的年龄和现代开发需求，建议评估是否可以将项目迁移到更现代的开发平台如VB.NET或C#。

2025年04月06日 21点04分 2

nbnbnb356

已经解决了，多谢多谢

2025年04月07日 03点04分

level 1

nbnbnb356 楼主

Private Sub Command4_Click()
Set swApp = GetObject(, "SldWorks.Application")
Set Part = 网页链接 boolStatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolStatus = Part.Extension.SelectByID2("Line15@草图1", "EXTSKETCHSEGMENT", 5.27867543513025E-02, -0.04, 0, True, 0, Nothing, 0)
Part.ClearSelection2 True
boolStatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolStatus = Part.Extension.SelectByID2("Line15@草图1", "EXTSKETCHSEGMENT", 5.27867543513025E-02, -0.04, 0, True, 16, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureRevolve2(True, True, False, False, False, False, 0, 0, 6.2831853071796, 0, False, False, 0.01, 0.01, 0, 0, 0, True, True, True)
网页链接 = False
End Sub

2025年04月07日 04点04分 4

nbnbnb356

大佬们，我这个代码是用宏捕捉的sw旋转，但是用vb执行不了，会实时错误429，activex部件不能创建对象，有大佬知道怎么解决吗，还是可有偿 [泪]

2025年04月07日 04点04分

falylee

@nbnbnb356 哪个对象创建不了

2025年04月07日 07点04分

level 7

郑孟华

安装不来sw2024 [狂汗]

引用 SolidWorks 类型库：在 VB6 的 IDE 中，通过 “工程”->“引用” 菜单，找到并勾选 SolidWorks 2024 类型库相关项（如 SldWorks 2024 Type Library 等，不同电脑显示可能有细微差别），这样才能在代码中使用 SolidWorks 对象和方法。
问AI要了个代码，不知道能不能用
Option Explicit
Private Sub Command1_Click()
Dim swApp As SldWorks.SldWorks
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
' 创建SolidWorks应用程序对象
Set swApp = New SldWorks.SldWorks
' 启动SolidWorks应用程序并使其可见
swApp.Visible = True
' 尝试连接SolidWorks应用程序
boolstatus = swApp.ConnectToSW
If boolstatus Then
MsgBox "成功连接到SolidWorks 2024！"
' 这里可以添加后续对SolidWorks操作的代码，比如打开文件等
Dim part As SldWorks.ModelDoc2
Set part = swApp.OpenDoc6("C:\YourFilePath\YourPart.SLDPRT", swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", longstatus, longwarnings)
If Not part Is Nothing Then
' 对打开的零件进行操作，如选择特征等
Dim feat As SldWorks.Feature
Set feat = part.FeatureByName("FeatureName")
If Not feat Is Nothing Then
feat.Select2 True
End If
' 操作完成后关闭文档
part.Close2 swSaveChanges_e.swSaveChangesNo
End If
Else
MsgBox "连接SolidWorks 2024失败！"
End If
End Sub

2025年04月10日 01点04分 5

level 1

nbnbnb356 楼主

感谢各位大佬，就是sw2024的毛病，换成2018就没事了

2025年04月19日 09点04分 6