Skip navigation

Log in to create and rate content, and to follow, bookmark, and share content with other members.

AnsweredAssumed Answered

I need to export parameters from title block like drawn, date, revision, description from solidworks drawing into excel or spreadsheet. Any macro is available to do such a task? or any help how to create such a macro?

Question asked by Rahul Gaikwad on Jul 11, 2020
Latest reply on Jul 11, 2020 by Fifi Riri

Like • Show 0 Likes0
Comment • 1

Need parameters from solidworks drawing into excel with the help of macro. Macro can be run on specific folder which contain solidworks drawing.

No one else has this question

Outcomes

1 Reply

Fifi Riri Jul 11, 2020 4:43 AM
Mark Correct
Correct Answer
Hello,
This will works on an opened drawing. You can open the .TSV file in Excel
Option Explicit
Dim FilePath As String
Sub main()
FilePath = "C:\DrawingNotes.TSV"
If Dir(FilePath) <> "" Then Kill FilePath
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swNote As SldWorks.Note
Dim vNotes As Variant
Dim vNote As Variant
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swView = swDraw.GetFirstView
vNotes = swView.GetNotes
For Each vNote In vNotes
Set swNote = vNote
  If swNote.GetText <> "" Then
      WriteToFile swNote.GetText
  End If
Next
End Sub
Sub WriteToFile(logSTR As String)
Dim Num As Integer
Num = FreeFile
Open FilePath For Append As #Num
Print #Num, logSTR
Close #Num
End Sub
Like • Show 0 Likes0
Actions

Recommended Content