Hi Curtis_Waguespac
Thanks a lot for your response. And i am sorry for my late response.
what i wanted to do is:
suppose i have an inventor assembly (.iam) file where three different parts and two subassemblies (each contain three parts) are contrained.
i want to wrte an ilogic rule that will search the assembly file and create
9 idw templates and make drawings(isometric view,top,front,left or right views are placed) for 9 different parts and 2 idw templates for two subassemblies drawing ((isometric view,top,front,left or right views are placed).
that means total 11 templates and 11 drawing sheets from one assembly.
is it possible to write an ilogic rule in top top assembly to do all this things?
Let me know pls.
i have visited the link you provided . Is the code posted by mehatfie fit for my requirements? i am posting it again here.
****
Imports Inventor.ViewOrientationTypeEnumImportsInventor.DrawingViewStyleEnum
Dim oDrawingDoc As DrawingDocument
Dim oPartDoc As Document
Dim oSheet As sheet
Dim oTG As TransientGeometry
Dim oView1 As DrawingView
Dim oView2 As DrawingView
Dim oView3 As DrawingView
Dim oView4 As DrawingView
ViewScale=3/16
'Ask to create drawing?
dwgQuery=MsgBox("Would you like to Create a drawing for this MODEL?", vbYesNo,"Drawing Selection")
If dwgQuery=vbYes
Then oPartDoc=ThisDoc.Document
'Define IDW Template File Location
oDrawingDoc=ThisApplication.Add.kDrawingDocument("C:\Vault_Work\PROJECTS\iLogic Parts-inprogress\iLogic Part Generators\Rectangular Transition Chute Generator\Template.idw", True)
oSheet=oDrawingDoc.Sheets.Item(1)
'Define 2d view bottom left corner points for four views
oPoint1=ThisApplication.TransientGeometry.CreatePoint2d(1, 1)
oPoint2=ThisApplication.TransientGeometry.CreatePoint2d(1, 6)
oPoint3=ThisApplication.TransientGeometry.CreatePoint2d(5, 1)
oBaseView=oSheet.DrawingViews.AddBaseView(oPartDoc,oPoint1, 3/16,kFrontViewOrientation, kHiddenLineDrawingViewStyle)
', KTANGENTEDGESON)
oView2=oSheet.DrawingView.AddProjectedView(oBaseView,oPoint2, kHiddenLineDrawingViewStyle, 3/16)
oView3=oSheet.DrawingView.AddProjectedView(oBaseView,oPoint3, kHiddenLineDrawingViewStyle, 3/16)
End If
*****
if i run the code inventor shows me syntax error in line 14 (Then oPartDoc=ThisDoc.Document)
what is wrong in this line?
let me know pls.
thank you again for your time.
regards
-saif