open drawing, apply ilogic (print pdf) then close
Accepted solution
Hi Joel.Manrique,
I created an iLogic Batch tool in the past that you can use for this, see this link:
- You will add your rule to this file and name it with ***
- You might need to rewrite the rule to use ThisApplication.ActiveEditDocument rather than ThisApplication.ActiveDocument
- Also this is an Inventor 2015 file
post back if you can't get it to work.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Hi Joel.Manrique,
Try changing:
Filename=ThisDoc.FileName(False)
to:
text_string = ThisApplication.ActiveEditDocument.FullFileName
oPathArray = text_string.Split("\") 'split path using backslash
Filename = oPathArray(UBound(oPathArray)) 'use last item in array
Filename = Left(Filename,Len(Filename)-4) 'trim off extension
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Hi Joel.Manrique,
I noticed the sheet size and was just about to post this 
drawingsize= ActiveSheet.Size
if you're wanting to close the batch drawing you can edit the rule called "Batch Rule" and add this line to the very end
ThisDoc.Document.Close
but it'll throw an error, as iLogic is tied to the open document, there might be a better way, I'll try to look if I have time later.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Hi Joel.Manrique,
oops, I got distracted when trying to reply earlier.
I meant to type, change this:
'drawingsize=InputBox("Enter The Drawing Size","Drawing Size",size)'MsgBox(drawingsize)
to this:
drawingsize = ActiveSheet.Size
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Accepted solution
Hi Joel.Manrique,
ooops! I lied. 
drawingsize = ActiveSheet.Size is going to get the ActiveDocument Sheet size rather than the ActiveEditDocument sheet size. The ActiveDocument is the batch file the ActiveEditDocument is each of the files the batch is opening.
So .... try this:
SheetSizeEnum = ThisApplication.ActiveEditDocument.ActiveSheet.Size If SheetSizeEnum = 9987 Then drawingsize = "A" Else If SheetSizeEnum = 9988 Then drawingsize = "B" Else If SheetSizeEnum = 9989 Then drawingsize = "C" Else If SheetSizeEnum = 9990 Then drawingsize = "D" Else If SheetSizeEnum = 9991 Then drawingsize = "E" Else If SheetSizeEnum = 9992 Then drawingsize = "F" Else drawingsize = "" End If
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
also here's a list of all the sheet size enums in case you're using something other than those listed in my example:
| k12x18InDrawingSheetSize | 9999 | 12 in x 18 in (typically for architectural drawings). |
| k18x24InDrawingSheetSize | 10000 | 18 in x 24 in (typically for architectural drawings). |
| k24x36InDrawingSheetSize | 10001 | 24 in x 36 in (typically for architectural drawings). |
| k30x42InDrawingSheetSize | 10003 | 30 in x 42 in (typically for architectural drawings). |
| k36x48InDrawingSheetSize | 10002 | 36 in x 48 in (typically for architectural drawings). |
| k9x12InDrawingSheetSize | 9998 | 9 in x 12 in (typically for architectural drawings). Default page orientation is Portrait. |
| kA0DrawingSheetSize | 9993 | A0 size (typically for metric units). |
| kA1DrawingSheetSize | 9994 | A1 size (typically for metric units). |
| kA2DrawingSheetSize | 9995 | A2 size (typically for metric units). |
| kA3DrawingSheetSize | 9996 | A3 size (typically for metric units). |
| kA4DrawingSheetSize | 9997 | A4 size (typically for metric units). |
| kADrawingSheetSize | 9987 | A size (typically for inch units). |
| kBDrawingSheetSize | 9988 | B size (typically for inch units). |
| kCDrawingSheetSize | 9989 | C size (typically for inch units). |
| kCustomDrawingSheetSize | 9986 | Custom size. Does (may) not fit one of the standard sizes. |
| kDDrawingSheetSize | 9990 | D size (typically for inch units). |
| kDefaultDrawingSheetSize | 9985 | Specifies the default setting. The more strongly typed value is the one returned in a query. |
| kEDrawingSheetSize | 9991 | E size (typically for inch units). |
| kFDrawingSheetSize | 9992 | F size (typically for inch units). |
Hi Joel.Manrique,
Doing what you're doing now is the a great way to get started.
As for finding some of the information on your own, you can search Inventor's API help files (see the image at this link). Often I search this forum to find a start, and then search the API help files to build on it.
http://inventortrenches.blogspot.com/2013/10/ilogic-how-to-learn-inventors.html
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Hi Joel.Manrique,
If I read correctly, you just need the update part of this? If so try this:
odrawdoc.Update
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Accepted solution
Hi Joel.Manrique,
ahhh, I missed the way the iproperties were being set before. What you had was setting the iProperty in the batch file. Here's an updated version of the iPeoperty part
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Sub Main()
'autoupdate plotstamp
Dim oTrans As Transaction
oTrans = ThisApplication.TransactionManager.StartTransaction( _
ThisApplication.ActiveEditDocument, "plot date")
Dim odrawdoc As DrawingDocument
odrawdoc = ThisApplication.ActiveEditDocument
customPropertySet = odrawdoc.PropertySets.Item("Inventor User Defined Properties")
Try
oProp = customPropertySet.Item("Plotdatestamp")
Catch
oProp = customPropertySet.Add("", "Plotdatestamp")
End Try
Dim PlotTime As String
PlotTime = Now.ToShortTimeString
oProp.Value = PlotTime
Try
oProp = customPropertySet.Item("Plottimestamp")
Catch
oProp = customPropertySet.Add("", "Plottimestamp")
End Try
Dim PlotDate As Date
PlotDate = Now
oProp.Value = PlotDate
odrawdoc.Update
'.... rest of the code here...