module1.bas

SW+VB二次开发的一个简单实例

Attribute VB_Name = "调用SW作图"
Sub parametricsub(ByVal wjvalue_passed As Double, ByVal njvalue_passed As Double, ByVal cdvalue_passed As Double)
    Dim swapp As Object
    Dim swpart As Object
    Set swapp = CreateObject("sldworks.application")
    swapp.Visible = ture
    Set swpart = swapp.OpenDoc("套筒.SLDPRT", swDocPART)
    If swpart Is Nothing Then
       Exit Sub
       Else
           Set swpart = swapp.ActivateDoc("套筒.SLDPRT")
    End If
    swpart.Parameter("wjvalue@草图1").SystemValue = wjvalue_passed
    swpart.Parameter("njvalue@草图2").SystemValue = njvalue_passed
    swpart.Parameter("d1@拉伸1").SystemValue = cdvalue_passed
    swpart.EditRebuild
    swpart.ViewZoomtofit2
   
    
End Sub