zoukankan      html  css  js  c++  java
  • VB开发SolidWorks实现机械产品参数化设计

    Dim swapp As SldWorks.SldWorks

    Dim PatFilePath As String

    Dim part As SldWorks.PartDoc

     

    Private Sub Command1_Click()

    Set swapp = GetObject("D:\Program Files\SolidWorks Corp\SolidWorks\SLDWORKS.exe", "SldWorks.Application")

     

        If Err Then

        Set swapp = CreateObject("SldWorks.SldWorks")

            If Err Then

              MsgBox ("无法创建SolidWorks")

              Exit Sub

            Else

              swapp.Visible = True

            End If

        End If

        

        swapp.Visible = True

        

        PatFilePath = "c:\Agile\wspaces\Default\5090050031.SLDPRT "

        Set part = swapp.NewDocument(PatFilePath, 0, 0#, 0#)

        part.SaveToFile

        

    End Sub

  • 相关阅读:
    荣岩岩作业10
    荣岩岩作业9
    荣岩岩作业8
    荣岩岩作业7
    荣岩岩作业6
    荣岩岩作业5
    荣岩岩作业4
    list<T>与datatable互相转换
    IE缓存机制
    html界面添加判断
  • 原文地址:https://www.cnblogs.com/leojun/p/2286963.html
Copyright © 2011-2022 走看看