AutoCAD Inventor :: ILogic Save As PDF Color Option Not Working
Jan 16, 2012
I want to save my PDFs as All Colors As Black, but setting the option to 0 or 1 doesn't work, it keeps saving the PDFs in color. Here's the snippet of
If oPDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then
oOptions.Value("All_Color_As_Black") = True
oOptions.Value("Remove_Line_Weights") = False
oOptions.Value("Vector_Resolution") = 400
oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
'oOptions.Value("Custom_Begin_Sheet") = 2
'oOptions.Value("Custom_End_Sheet") = 4
End If
What is wrong with the option in the second line (shown in red)? I've tried a few other variations of All_Color_As_Black, but I'm having no joy. All the other examples I've looked at either has that option set to False (0) or that line is commented out .
View 4 Replies
ADVERTISEMENT
Dec 31, 2013
Aleays that I change the selection "MODO" ("D e i" instead of "Z1 e Z2" and vice-versa), I need run one more time for the rule sense the changing.. when the right is run one time.
iLogicForm.Show("FLAMA-GEARS", FormMode.Modal) If MODO = "D e i" Then iLogicForm.Show("D e i", FormMode.Modal) End If If MODO = "Z1 e Z2" Then iLogicForm.Show("Z1 e Z2", FormMode.Modal) End If
View 3 Replies
View Related
Aug 12, 2013
I have a rule in iLogic that I was testing as "Straight VB.Net" on various assemblies. It was working alright, but I was making some minor tweaks to eliminate errors. Now, all of a sudden, it is unresponsive. Completely. No errors, no "busy" symbol over my pointer, just nothing. I put in the line MsgBox("Begin") as the first line of the program to see if it was even getting into it, and still there is no response. I run the rule, and absolutely nothing happens. I tried writing it in iLogic instead, and that does make something happen. what might cause the VB.Net element of iLogic to stop working, and hopefully how to correct the problem as well?
View 2 Replies
View Related
Oct 5, 2013
Created in the template sheet metal rule. Why External ilogic rule is not working? User-valued parameter is created, sheet metal rule does not change.
name = ""For Each par In ThisDoc.Document.ComponentDefinition.Parameters.UserParameters If par.Name = "SMR" Then name = par.Name Exit For End IfNextIf name = "" Then Dim MyArrayList As New ArrayList For Each st In ThisDoc.Document.ComponentDefinition.SheetMetalStyles MyArrayList.add(st.Name) Next ThisDoc.Document.ComponentDefinition.Parameters.UserParameters.AddByValue("SMR", "", UnitsTypeEnum.kTextUnits) MultiValue.List("SMR") = MyArrayList Parameter("SMR") = SheetMetal.GetActiveStyle()End IfSheetMetal.SetActiveStyle(Parameter("SMR"))iLogicVb.UpdateWhenDone =TruePS:
View 2 Replies
View Related
Apr 3, 2013
I would like to use the if else parameter in iLogic to set up a range, but I'm not getting it right.
What should happen:
if the variable 'breedte' is:
- 0 up to 3800; thats OK
- 3800 up to 4000; thats not OK, use 3800 instead
- 4000 and up; thats OK
Therefore I wrote this script, but when I enter a number between 3800 and 4000 (like 3900), the MessageBox appears (thats good), but the size of my solid results in 3900, instead of 3800.
breedte = InputBox("What is the breedte?", "Hoofdmaten", "")Parameter("skelet.ipt.breedte")=breedteIf breedte <= 3800 Then breedte = breedteElse If breedte >= 4000 Then breedte = breedteElse If (breedte >= 3801) AndAlso (breedte <= 4000) Then breedte = 3800 MessageBox.Show("This breedte is not possible." & hoogte & vbCr & "The value of 3800 will be used instead.", "Problem message", MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk) End If
View 2 Replies
View Related
Apr 24, 2012
Is there a way in an inventor drawing rule to do a "save as" which saves the drawing as an Inventor dwg file rather than an AutoCAD dwg file?
The below saves as AutoCAD which is ok but I need the outputted drawing to be linked to the model. I don't want the code to save the entire assembly as this is done further down the line. I also don't want to save the current inventor dwg drawing from which the rule is run as this is just a template drawing.
ThisDoc.Document.SaveAs(ThisDoc.Path&"2D_DRAWINGS"&iProperties.Value("Custom", "Drawing No.")&" (Rev "&Parameter("BEAUFORT_ARRANGEMENT_3.iam.DRAWING_REVISION_NO")&")"&".DWG", True)
View 1 Replies
View Related
Oct 24, 2012
I'm currently using this rule for easy PDF making
SaveLoc = "C:Temp"FileName = ThisDoc.FileName(False)Revnr = " rev_" & iProperties.Value("Project", "Revision Number")PDFnaam = SaveLoc & FileName & RevnrThisDoc.Document.SaveAs(PDFnaam & (".pdf") , True)MessageBox.Show("PDF is aangemaakt in C:Temp", "Document creation",MessageBoxButtons.OK,MessageBoxIcon.Information)
The problem with this is that i want to save without lineweight? is there anyway to do this with this code?
View 2 Replies
View Related
Aug 3, 2010
I want a part automatically to be "saved as" in my workspace.
there is the command
ThisDoc.Document.SaveAs(NewFileNameAndExtension , True)
in the browser of iLogic but I don't know how to use it.
I tried ThisDoc.Document.SaveAs("partname.iam", True)
but that's couases a error.
View 4 Replies
View Related
Apr 11, 2013
I have a template part that I would like to save automatically once the parameters dialog box is closed. I would also like the Save As filename to automatically be filled in with a iProperty named "Part Name". I already have the "Part Name" description grabbing information from parameters. Is this possible? And is the best way to trigger the event after an "iProperty change" or "Any Model Parameter Change"?
View 1 Replies
View Related
Dec 3, 2010
I would like to use iLogic to do a File Save As and have the dialog box open in a specified folder. I have tried the code below but it doesn't work.
oFileDlg.InitialDirectory = "J:" & strFolder & (".dwg")
oFileDlg.ShowSave()
View 2 Replies
View Related
Sep 13, 2011
I am having a bit of trouble finding the correct code for some automated ilogic in inventor 2011.
I am trying to achieve an automated rename and save process for an assembly file as well as the variable parts in the file.an example would be a steel column...
Open ilogic steel column, run rules to change column length and section size...then save a copy to workspace, but also to a specific folder in the workspace..also rename the column file and save.
i have this for file saving -
SyntaxEditor Code Snippet
Test=InputBox("Add File name", "Please Add your file name", "Prefix number - File - .iam")
ThisDoc.Document.SaveAs(ThisDoc.WorkspacePath()&Test, True)
Which works fine to save the new assembly, but i need the same for the variable column within the assembly, and also to save to a specific folder not just the workspace top level.
View 9 Replies
View Related
Dec 18, 2013
I'm trying find some code that will allow me to save a PDF in 2 different locations.
I want to save a copy on my C: drive - this part has been done, but I'd like the code expanded to save a copy on the F: drive (under a similar path to that on the C: drive.
For example, for drawing XXX-XXX.dwg (C:Vault WorkspaceCADSalesEnquiries201313-XXXDrawings), I would like a PDF created in C:Vault WorkspaceCADSalesEnquiries201313-XXXDrawingsPDF (this part has been done) and i would also like a copy saved in F:SalesEnquiries201313-XXXDrawingsPDF.
I do not know which will be easier; to create 2 PDFs, or create 1 and copy it to F:
View 2 Replies
View Related
Oct 25, 2013
I currently have ilogic code that automatically saves a template Inventor dawing as a job drawing. However the problem I am having is when it does this save it takes forever as it seems to be also saving the linked model also. Is there a way to save this Inventor dwg without saving the linked model? The reason why I do not want this model save is because after the drawing is outputted the user is given options to write part numbers and dxf files if required which requires a model save anyway.
Sample of code used:-
ThisDoc.Document.SaveAsInventorDWG(ThisDoc.Path & "2D_DRAWINGS (Inventor dwg)" & iProperties.Value("Custom", "Drawing No.") & ".DWG", True)
View 1 Replies
View Related
Jul 31, 2013
So the other day I set up an external rule and created an event trigger to run the rule on save. It worked great ... for a couple days, and then it just stopped working yesterday. I can still run the rule manually and it works fine, but it doesn't seem to run automatically anymore on file save. Yes, iLogic is set to Loaded / Automati in the add-ins panel.
(on the iLogic rule attachment, remove .TXT from the end. I had to add that due to the board's rules about file types.)
Product Design Suite Ultimate 2013, 2014
Autodesk Inventor 2013
Work: Dell Precision T1600 (Xeon E3-1280 / 16GB / 512 GB SSD / 250 GB (Internal) / 1 TB (External) / Quadro 600)
Home: i7-4770k / ASUS Z87-Pro / 16GB / 250 GB SSD / 1 TB HDD / 3 TB USB3 HDD / 2xRadeonHD 4870 in CrossfireX
Laptop: Toshiba Satellite P755-S5269 (i7-2630QM / 8 GB / 250 GB SSD / 750 GB HDD / GT540M)
View 9 Replies
View Related
Aug 7, 2013
Why does this not work ?
sub main()
code .....
oView1 = oSheet.DrawingViews.AddBaseView(oPartDoc, oPoint1, 1/1#, kFrontViewOrientation,kHiddenLineDrawingViewStyle)
end sub
but this does ?
code.....
oView1 = oSheet.DrawingViews.AddBaseView(oPartDoc, oPoint1, 1/1#, kFrontViewOrientation,kHiddenLineDrawingViewStyle)
View 1 Replies
View Related
Mar 1, 2013
I have the following
strFile = ThisDoc.FileName(False) & "-Rev " & iProperties.Value("Project", "Revision Number")ThisDoc.Document.SaveAs(strFile & (".dwg"), True)ThisDoc.Document.SaveAs(strFile & (".pdf"), True)
And it works like a charm for pdf, but it does not export to .dwg?
And also, is it possible to decide where in the name the "-Rev " &iPro....should appear?
Ex. if the filename should be : "12345 - Rev 02 - Section cut"
View 1 Replies
View Related
Sep 5, 2012
I seem to have my task accomplished, but Inventor crahes on me after it is done.
Here is how my iLogic works.
' Deleting the suppressed parts from the assembly
Dim compDef as AssemblyComponentDefinition
compDef = ThisDoc.ComponentDefinition
Dim compOcc as ComponentDefinition
For Each compOcc in compDef
[Code] ........
Now as soon as the last line is executed, Inventor crashes.
But when I go to the save file part (C:MyPath), both the parts and assembly files are saved and if I open it, they work just fine.
I just can't get inventor to stop crashing.
View 7 Replies
View Related
Jul 7, 2011
My question: We want to use iLogic to save a PDF-file of the DWG-drawing every time we hit "save". We now use the following iLogic
Spoiler (Highlight to read)oPath = ThisDoc.Path PN = iProperties.Value("Project", "Part Number")
PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oDocument = ThisApplication.ActiveDocument
oContext = ThisApplication.TransientObjects.CreateTranslationContext
[Code] .....
View 9 Replies
View Related
Oct 25, 2012
I am making some iLogic automated parts which I want to save when I place them in an assembly.
Now I have the folder the file needs to be saved in allready specified in the simple code I wrote but I want to be able to browse the folders to select a specific one.
I run the code by activating it in a Form that pops up when you place the part in an assembly.
The simple save as code I wrote is as following:
Workspace = ThisDoc.WorkspacePath()If System.IO.File.Exists(Workspace & "Parts" & "Cable Tray-" & Partnumber & ".ipt") = True Theni = MessageBox.Show("The partnumber you chose is allready in use, choose an other number.", "Save Error", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)Else If System.IO.File.Exists(Workspace & "Parts" & "Cable Tray-" & Partnumber & ".ipt") = False ThenThisDoc.Document.SaveAs(Workspace & "Parts" & "Cable Tray-" & Partnumber & ".ipt", False)End If
How I can browse the folders to select the folder to save the part in when placing the part?
View 9 Replies
View Related
Sep 9, 2013
I´m trying to create an external iLogic rule that let´s the user specify a path and saves an assembly and all it´s components into one directory. Alternatively it could be the main workspace path which doesn´t have to be specified by the user so it can be handled internally.
The background is a design template that resides on a network storage which can be configured through an iLogic Form and when the user is done configuring the assembly to it´s liking it should be saved to it´s workspace.
I was looking through the snippets but couldn´t find anything related to "save all". I have the feeling that I have to cycle through all component occurences and save them one by one.
Getting a Save As dialog box seems to be possible as I could see on Curtis Waguespack´s blog but the commands he is using are nowhere documented. For example for calling the dialog box he is using
InventorVb.Application.CreateFileDialog(oFileDlg)
View 2 Replies
View Related
Dec 12, 2012
I have an ilogic rule to open an existing excel file template and export the inventor parameters into it. I am trying to find a way to then save the excel file as a different filename. This way the original template can stay unmodified. I have found the GoExcel.save command but is there some sort of GoExcel.saveas(filename, filepath) command?
View 2 Replies
View Related
Mar 14, 2013
I am not good with iLogic but I have this rule that gives me length and width of a sheetmetal part in mm and with , (comma). The rule works but the file will always accept saving regardless if there has been changes or not. I want the rule to only accept save IF there has been changes on SM_Length (=<FLAT PATTERN LENGTH> cm) and SM_Width (=<FLAT PATTERN WIDTH> cm) or Thickness.
sLength = iProperties.Value("Custom", "SM_Length")
sWidth = iProperties.Value("Custom", "SM_Width")
sThickness = iProperties.Value("Custom", "Thickness")
[code]....
Autodesk Inventor/Vault Professional 2013
View 3 Replies
View Related
Dec 18, 2013
I have an assembly that I am working on that will be used as a configurator, driven by I-logic. Everything is work fine but there is one part off the assembly that will be custom to each new assembly. Is there a way to use I logic to open the ipt file save it as copy with different name and replace the original in the assembly. I know this can be done manual through the productivity tab within the assembly environment, but I am trying to automate the process so the end user will just have to follow prompts that will be given by i-logic.
View 4 Replies
View Related
Feb 1, 2013
When I put a row deep enough in a form, i.e. under several groups, tab groups, or other rows, the rows stop working properly.
Inventor 2013 SP 1.1
View 9 Replies
View Related
Jun 2, 2013
I have found some code which extracts the part number from the iproperties of a model and adds it to the custom iproperties of a drawing but this will only work on iam or ipt files.
Here's the code, I added the lines referring to the docment type as an attempt to fix the error but it didn't work...
If (ThisDrawing.ModelDocument Is Nothing) Then ReturnIf ThisDrawing.ModelDocument.DocumentType = kPresentationDocumentObject Then modelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)End IfIf
[Code]....
View 2 Replies
View Related
Nov 14, 2013
We have a word file that we use a lot for our drawings. There is an empty file that we open and then save the file into the same directory as the drawing.
I am trying to setup some code that will open the empty Word File, and then bring up the Word Save As dialog box with the correct directory and file name already completed. The correct directory and File name will be determined by the Drawing Code.
I have been able to open the Empty Word Document from iLogic with the following
'CRS Template Path & File NameoCRSTemplate = "\WWSERVERDisplaysA-Z Stand PartsCRS-Template.doc" 'Publish document. ThisDoc.Launch(oCRSTemplate)
I have been able to Open the Empty Word File from VBA and then bring up the Word Save As Dialog Box but I cannot work out how to define the initial directory or the initial file name from Inventor.
This is the VBA Code I have been using top open the Empty Word File and Show the Word Save As Dialog Box:
Public Sub OpenCRSDoc1()
'Don't Forget to Add the Word Object Library in the Tools - References
' Call SetCRSDetails
[Code].....
If you try to use the With Command for the FilePicker it will just open the Word Document and NOT the Save As Dialog Box!!!
Example of the With Tried
With FilePicker
.InitialDirectory = "Z:"
.DialogTitle = "Hello"
.Show
End With
How to open a Word Document from either iLogic or VBA (VBA Preferred) and then open the Word Save As Dilog Box and define the Initial Directory and Filename?
View 1 Replies
View Related
Jul 10, 2013
as a part of automating manufacturing drawings, am trying to include ilogic code in the drawing , that would accept values from the user and store it as "user parameters" and make corresponding changes in the inventor drawing file.So, to replicate my issue on a smaller scale, i had created 2 parts and created an assembly out of these 2 parts. I used the assembly in my drawing.
In the Drawing i created a user parameter .. say "external_param". I am opening the drawing and changing the value of the user parameter through the (Fx) parameter table.
doc = ThisDoc.DocumentIf external_param >= 50 And external_param <= 99 ThenParameter("block_1.ipt.d0") = 15 'change the length of the blockParameter("block_1.ipt.d14") = 3 'change the number of holes in the blockElseIf external_param >= 100 And external_param <= 199 ThenParameter("block_1.ipt.d0") = 40Parameter("block_1.ipt.d14") = 5ElseIf external_param >= 200 And external_param <= 299 ThenParameter("block_1.ipt.d0") = 80Parameter("block_1.ipt.d14") = 6ElseIf external_param >= 300 And external_param <= 399 ThenParameter("block_1.ipt.d0") = 160Parameter("block_1.ipt.d14") = 9End IfRuleParametersOutput()iLogicVb.UpdateWhenDone = True'InventorVb.DocumentUpdate()
As you can see, i have commented out InventorVb.DocumentUpdate() , im not quite sure what would accomplish the update and save of the assembly document in the background (without prompting for a save/update). I have also tried thisDoc.Save and thisdoc.update. Using these 2 commands along with the InventorVb.DocumentUpdate() or iLogicVb.UpdateWhenDone caused Inventor to Crash.
View 4 Replies
View Related
Apr 11, 2012
I am trying to create a baseline assembly driven by ilogic. When the baseline gets changed, most of the parts get replaced, but a few change size. I would like to re-name the top level assembly, as well as the parts and sub assemblies that change. We use a Vault sequential numbering scheme. How do I extract the next number from the sequence from Vault in iLogic?
View 2 Replies
View Related
Oct 30, 2013
Is there anyway to export an iLogic form and save it externally?
View 3 Replies
View Related
Jul 23, 2012
I have an ilogic rule created to do a save as .dxf and .pdf from the .idw file. It will then open the .ipt file without any issues. The problem I am having is that I also want it to do a save as .stp of the model after it opens the model. I get the following error.
Error in rule: Save As DXF PDF and open, in document: Save As DXF PDF and open.iLogicVb
Unspecified error (Exception from HRESULT: 0x80004005 (E_FAIL))
Do I need to add something to the code?
Here is the code I have written.
strFolder="C:Vault_WorkspaceSave As"&iProperties.Value("Project", "Part Number")
ThisDoc.Document.SaveAs(strFolder&"_Rev"&iProperties.Value("Project", "Revision Number")&(".dxf") , True)
ThisDoc.Document.SaveAs(strFolder&"_Rev"&iProperties.Value("Project", "Revision Number")&(".pdf") , True)
doc=ThisDoc.PathAndFileName(False)&".ipt"ThisDoc.Launch(doc)
strFolder="C:Vault_WorkspaceSave As"&iProperties.Value("Project", "Part Number")
ThisDoc.Document.SaveAs(strFolder&"_Rev"&iProperties.Value("Project", "Revision Number")&(".stp") , True)
MessageBox.Show("STEP Created", "File Save")
View 1 Replies
View Related
Mar 15, 2013
Is it possible to automatically divert Inventor to save to a specific folder within the workspace???
If a certain iProperty is set to yes, we want the user to save that file into a particular folder, if they try and save it elsewhere a message is popped up telling them an error has been made please try and save in the correct folder.
Admittedly I am not the most competant iLogic programmer but this is what I have thus far
Format:HTML Format Version:1.0 StartHTML: 165 EndHTML: 5388 StartFragment: 314 EndFragment: 5356 StartSelection: 314 EndSelection: 314
SyntaxEditor Code Snippet
WorkspacePath=ThisDoc.WorkspacePath()
DrawingPath="C:Live WorkSpaceDesigns3D Designs3D Drawings"
[Code] .......
View 4 Replies
View Related
