We need to write a macro that opens all parts in a dir one at a time, put it in "hidden lines", goes to the first config, zoom to isometric, save as jpeg name: "filename + configname" - Loop config - Loop next part.
I plan to start with a macro of what I can do with SW, and give it to one of our IT guy to play with. But as there could be something close already done, I wonder if anyone knows of some code we could start with.
TIA JM
Here's the code from one that I use tosave out a jpg file.
' ************************************************************** ' JPG Save Macro Created by Matthew Poster on 11/20/2000 ' ' This Macro does the following: ' 1) Attaches to current SW session ' 2) Checks to see if a SW file is open, if so ' 3) Attaches to active SW File I.E. part, assembly, drawing if not sends a message to the user ' 4) If a SW file is open saves JPG image to current directory and adds xxx number suffix to the end ' 5) If JPG exists in directory already it saves by incrementing the suffix ' **************************************************************
' Use Option Explicit to avoid mistakes and frustration. With it VB makes sure you declare ' all your variables kind of like eating all you vegetables. Option Explicit
' Object type variables Dim objSwApp As Object Dim objFile As Object
' Boolean type variables Dim boolstatus As Boolean
' Long type variables Dim longstatus As Long
' String type variables Dim ExistingFile As String
' Declaring file name variables Dim fnameLength Dim fName Dim x
' Beginning of macro Sub main()
' Attach to the current SW session Set objSwApp = CreateObject("SldWorks.Application")
' Attach to the current active file to be worked on Set objFile = objSwApp.ActiveDoc
' Error checker to see if a file is open If objFile Is Nothing Then
' If nothing is loaded then notify the user objSwApp.SendMsgToUser ("Please open a SolidWorks File!")
' ends macro End
' End the If then statement End If
fnameLength = Len(objFile.GetPathName) - 6 'Strip the file extension but leave "." so if objFile number is a # it won't be affected fName = Left(objFile.GetPathName, fnameLength)
' check to see if directory has fName.x.jpg and increment x ' until there are no files of that extension x = 1
While 1 = 1 'Repeat loop until kicked out ExistingFile = Dir(fName & x & ".JPG") If ExistingFile = "" Then GoTo GotExtensionName 'no file of that suffix exists x = x + 1 Wend ' End of While Loop
GotExtensionName: 'we know which value of x to use
objFile.SaveAs2 fName & x & ".JPG", 0, True, False ' newName, saveAsVersion, saveAsCopy, silent
End Sub
hat opens all parts in a dir one at a time,
Wayne,
Do you have a source for that code, like where I can contact Matthew Poster?
Matt
No, sorry. It's just something I picked up somewhere, obviously it was created several years ago. Maybe he's lurking here??
WT
Thanks for the answers, we'll see what we can do. If anything usable i'll make it available here. JM
"Wayne Tiffany" a écrit dans le message de news: 4787b21e$0$1348$ snipped-for-privacy@reader.greatnowhere.com...
PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.