AnsweredAssumed Answered

API no longer functioning in SW 2015

Question asked by Danny Bradford on Jun 3, 2015
Latest reply on Jun 4, 2015 by Danny Bradford

Like • Show 0 Likes0
Comment • 5

Greetings,

We recently moved from SW 2013 SP02 to SW2015 SP02 and have a problem with a fairly simple API:

swapp = GetObject(, "SldWorks.Application")

Doc = swapp.ActiveDoc

DocExt = Doc.Extension

CustProp = DocExt.CustomPropertyManager("")

Title = Doc.GetTitle

txtDocNumber.Text = Doc.CustomInfo2("", "Number").ToUpper

This code pulls the attributes from the Solidworks part and populates a form. It is a Custom Properties tool.

This functioned fine in the previous version but now nothing.

Any assistance or enlightenment would be most appreciated!

Danny Bradford

Josh Brady Jun 3, 2015 11:24 PM

Correct Answer

First, I assume you are using .NET VSTA macros, not VBA, right?

Next, you are getting the custom property manager, but not using it to get the custom property. CustomInfo2 is a really, really old API. Not that it doesn't work, but the CustomPropertyManager is the newer, more powerful/flexible way to get to them.

Looks like you've pulled single lines out of a longer program there. Are these the specific lines that give you errors now that didn't in 2013?

See the reply in context

No one else had this question

Outcomes

Deepak Gupta Jun 3, 2015 10:07 PM

Try these codes and if they work, then you can modify as required.

Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim Value As String

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Value = swModel.CustomInfo2("", "NUMBER")
    Debug.Print UCase(Value)
End Sub

Actions

Josh Brady Jun 3, 2015 11:24 PM

First, I assume you are using .NET VSTA macros, not VBA, right?

Looks like you've pulled single lines out of a longer program there. Are these the specific lines that give you errors now that didn't in 2013?

Actions

Danny Bradford @ Josh Brady on Jun 4, 2015 8:33 AM

Yes on all points. Below is the complete code up to the part that is not working.

In fact after reading your post I realized that the code did utilize custompropertymanager but then called Custominfo2! Ha!

I have made the move to a Get but it still does not work. Also, the Msgbox does not work either. It does not even come up so there must be something else wrong. This tool does properly update the property of the part so I know it is working in general.

Private Sub UserForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim swapp As SldWorks

Dim Doc As ModelDoc2

Dim CustProp As CustomPropertyManager

Dim DocExt As ModelDocExtension

Dim val As String = ""

Dim valout As String = ""

Dim boolstatus As Boolean

Dim Title As String

Dim i As Integer = 0

Dim j As Integer = 0

swapp = GetObject(, "SldWorks.Application")

Doc = swapp.ActiveDoc

DocExt = Doc.Extension

CustProp = DocExt.CustomPropertyManager("")

Title = Doc.GetTitle

MsgBox("This is the Doc Number: " & CustProp.Get("Number") & " " & CustProp.Count)

txtDocNumber.Text = CustProp.Get("Number")

txtDescription.Text = Doc.CustomInfo2("", "TITLE1").ToUpper

Actions

Simon Turner @ Danny Bradford on Jun 4, 2015 8:56 AM

You aren't doing any checks for things like there not being an active document.

It's possible that GetObject is connecting to a background session of SolidWorks where there is no document open.

Put some checks in like::

If Doc Is Nothing Then

swApp.SendMsgToUser2("No active document.", swMessageBoxIcon_e.swMbStop, swMessageBoxBtn_e.swMbOk)

Exit Sub

End If

and check if it's a part/assembly or drawing:

If Doc.GetType <> 1 Then

swApp.SendMsgToUser2("No active PART document.", swMessageBoxIcon_e.swMbStop, swMessageBoxBtn_e.swMbOk)

Exit Sub

End If

Actions

Danny Bradford @ Simon Turner on Jun 4, 2015 10:11 AM

Thanks for the help!!

The first reply fixed things. VS was not updating properly and I had to reboot. Once I rebooted I was able to use your first reply to fix it all.

Actions

5 Replies

Deepak Gupta Jun 3, 2015 10:07 PM
Mark Correct
Correct Answer
Try these codes and if they work, then you can modify as required.

Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim Value As String

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Value = swModel.CustomInfo2("", "NUMBER")
    Debug.Print UCase(Value)
End Sub
Like • Show 0 Likes0
Actions
Josh Brady Jun 3, 2015 11:24 PM
Unmark Correct
Correct Answer
First, I assume you are using .NET VSTA macros, not VBA, right?

Next, you are getting the custom property manager, but not using it to get the custom property. CustomInfo2 is a really, really old API. Not that it doesn't work, but the CustomPropertyManager is the newer, more powerful/flexible way to get to them.

Looks like you've pulled single lines out of a longer program there. Are these the specific lines that give you errors now that didn't in 2013?
Like • Show 1 Like1
Actions
- Danny Bradford @ Josh Brady on Jun 4, 2015 8:33 AM
  Mark Correct
  Correct Answer
  Yes on all points. Below is the complete code up to the part that is not working.
  
  In fact after reading your post I realized that the code did utilize custompropertymanager but then called Custominfo2! Ha!
  
  I have made the move to a Get but it still does not work. Also, the Msgbox does not work either. It does not even come up so there must be something else wrong. This tool does properly update the property of the part so I know it is working in general.
  
  Private Sub UserForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          Dim swapp As SldWorks
          Dim Doc As ModelDoc2
          Dim CustProp As CustomPropertyManager
          Dim DocExt As ModelDocExtension
          Dim val As String = ""
          Dim valout As String = ""
          Dim boolstatus As Boolean
          Dim Title As String
          Dim i As Integer = 0
          Dim j As Integer = 0
  
         swapp = GetObject(, "SldWorks.Application")
          Doc = swapp.ActiveDoc
          DocExt = Doc.Extension
          CustProp = DocExt.CustomPropertyManager("")
  
          Title = Doc.GetTitle
  
          MsgBox("This is the Doc Number: " & CustProp.Get("Number") & " " & CustProp.Count)
          txtDocNumber.Text = CustProp.Get("Number")
          txtDescription.Text = Doc.CustomInfo2("", "TITLE1").ToUpper
  Like • Show 0 Likes0
  Actions
  - Simon Turner @ Danny Bradford on Jun 4, 2015 8:56 AM
    Mark Correct
    Correct Answer
    You aren't doing any checks for things like there not being an active document.
    It's possible that GetObject is connecting to a background session of SolidWorks where there is no document open.
    Put some checks in like::
    If Doc Is Nothing Then
         swApp.SendMsgToUser2("No active document.", swMessageBoxIcon_e.swMbStop, swMessageBoxBtn_e.swMbOk)
         Exit Sub
    End If
    
    and check if it's a part/assembly or drawing:
    
    If Doc.GetType <> 1 Then
         swApp.SendMsgToUser2("No active PART document.", swMessageBoxIcon_e.swMbStop, swMessageBoxBtn_e.swMbOk)
         Exit Sub
    End If
    Like • Show 0 Likes0
    Actions
    - Danny Bradford @ Simon Turner on Jun 4, 2015 10:11 AM
      Mark Correct
      Correct Answer
      Thanks for the help!!
      
      The first reply fixed things. VS was not updating properly and I had to reboot. Once I rebooted I was able to use your first reply to fix it all.
      Like • Show 0 Likes0
      Actions

API no longer functioning in SW 2015

Outcomes

Related Content

Recommended Content