Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
randy.redekop
367 Views, 1 Reply

Create drawing with existing ilogic code

Hello all,

 

Below is a code that creates a ipt file for whatever number tags i choose to. It works good but i would like to create a drawing with every part it makes with just the front face view. Ill also attach the template ipt file where it creates the parts from.  If anyone can help that would be great. Thanks

 

 

 

Feature.IsActive("___0") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("___1") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("___2") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("___3") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("___4") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("___5") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("___6") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("___7") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("___8") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("___9") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("__0_") = False

Feature.IsActive("__1_") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("__2_") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("__3_") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("__4_") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("__5_") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("__6_") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("__7_") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("__8_") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("__9_") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("_0__") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("_1__") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("_2__") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("_3__") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("_4__") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("_5__") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("_6__") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("_7__") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("_8__") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in



Feature.IsActive("0___") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("1___") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("2___") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("3___") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("4___") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("5___") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("6___") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("7___") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in

Feature.IsActive("8___") = False
d35 = 0.25 in
d37 = 0.00 deg
d36 = 1 in



For i = 4 To 4
	
	x = i - 1
	If x = -1
		
	Feature.IsActive(i & "___") = True
	
Else

	Feature.IsActive(i & "___") = True
	
	Feature.IsActive(x & "___") = False
	
End If



	
	For z = 0 To 7
		
		y = z - 1
		If y = -1
		Feature.IsActive("_" & z & "__") = True
		
		Else
			Feature.IsActive("_" & z & "__") = True
			Feature.IsActive("_" & y & "__") = False
		End If 
		
		If z = 4
			Feature.IsActive("_" & z & "__") = True
			Feature.IsActive("__0_") = True
			Feature.IsActive("___0") = True
			
			NewFileName = ThisDoc.Path & "\" & i & z & a & c & ".ipt"

ThisDoc.Document.SaveAs(NewFileName, True)

Else
		
		For a = 0 To 9 
		
			b = a - 1
			
			If b= -1
					Feature.IsActive("__" & a & "_") = True
				
				
				Else
					
					Feature.IsActive("__" & a & "_") = True
				Feature.IsActive("__" & b & "_") = False
				
				End If 
				
			
		
			For c = 0 To 9
			
				d = c - 1
				
				
			If a = 0 And c = 0
				
			End If 
			
			If d = -1 
				
				Feature.IsActive("___" & c) = True
				
				NewFileName = ThisDoc.Path & "\" & i & z & a & c & ".ipt"

ThisDoc.Document.SaveAs(NewFileName, True)
				
				Else
				
				Feature.IsActive("___" & c) = True
				Feature.IsActive("___" & d) = False
 			
			NewFileName = ThisDoc.Path & "\" & i & z & a & c & ".ipt"

ThisDoc.Document.SaveAs(NewFileName, True)

End If

			If c = 9 And a = 9
				Feature.IsActive("___" & c) = False
				Feature.IsActive("__" & a & "_") = False
			End If
			
			If c = 9
				
				Feature.IsActive("___" & c) = False
				
			End If
			Next
			Next
		End If
			Next
			Next