iLogic rule creating custom iProperties

Anonymous — Wed, 18 Jan 2017 17:35:11 GMT

Hi all,

I'm having problems getting an iLogic rule to do what I'm telling it to do...

The rule is run once a part has been created and is ready for production.

It runs through all the processes that the part may go through on the workshop floor and then generates custom iProperties.

These custom iProperties then auto-generate a routing sheet on the back of the drawing.

The rule runs pretty well but I'm having an issue when prompted to enter a finish.

The user can leave the self-populated finish as is which works fine.

The user can enter ral, Ral, ral 5643 or something similar and this will tell the iProperties that the finish is painted. Again this works fine.

The issue arises when the user enters 'Natural' or 'natural' which is a term often use in our dept when no further finish is necessary. The rule sees 'ral' (contained within Natu'ral') and thinks the finish is painted and alters the wrong iProperty.

I have tried different approaches using .contains/inStr/ = but none of these solve the issue.

I think the best approach may be to use Regular Expressions to tightly define what part of the string I want to read but I have had little success getting any RegEx to run.

Any advice would be greatly appreiciated.

Laurence

Format:HTML Format Version:1.0 StartHTML: 165 EndHTML: 62839 StartFragment: 314 EndFragment: 62807 StartSelection: 314 EndSelection: 314SyntaxEditor Code Snippet

Option Explicit 


Dim PRun As String 

PRun=MessageBox.Show("Update IProperties?", "Part Status",MessageBoxButtons.YesNo)

If PRun= vbYes Then Goto Main: Else If PRun= vbNo Then  Goto 2: 'If answered Yes then run program, else refresh document


Main:

Parameter.Quiet = True


Start:


Dim oCustomPropertySet As Object 'define custom property collection
oCustomPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties") 
For Each oCustProp In oCustomPropertySet 'look at each property in the collection
oCustProp.Delete 'delete the custom iProperty
Next


Dim LaserR As String
LaserR = MessageBox.Show("Is the Part Lasered?", "Laser Status",MessageBoxButtons.YesNo) 'Is the Part Lasered Yes/No?
If LaserR=vbYes Then LaserR = "X" Else If LaserR=vbNo Then LaserR = ""
iProperties.Value("Custom", "Laser") = LaserR

Dim TurnedR As String
TurnedR = MessageBox.Show("Is the Part Turned?", "Turned Status",MessageBoxButtons.YesNo) 'Is the Part Turned Yes/No?
If TurnedR=vbYes Then TurnedR = "X" Else If TurnedR=vbNo Then TurnedR = ""
iProperties.Value("Custom", "Turned") = TurnedR

Dim MachinedR As String
MachinedR = MessageBox.Show("Is the Part Machined?", "Machined Status",MessageBoxButtons.YesNo) 'Is the Part Machined Yes/No?
If MachinedR=vbYes Then MachinedR = "X" Else If MachinedR=vbNo Then MachinedR = ""
iProperties.Value("Custom", "Machined") = MachinedR

Dim FoldR As String
FoldR = MessageBox.Show("Is the Part Folded?", "Fold Status",MessageBoxButtons.YesNo) 'Is the Part Folded Yes/No?
If FoldR=vbYes Then FoldR = "X" Else If FoldR=vbNo Then FoldR = ""
iProperties.Value("Custom", "Fold") = FoldR

Dim TapR As String
TapR = MessageBox.Show("Is the Part Tapped?", "Tap Status",MessageBoxButtons.YesNo) 'Is the Part Tapped Yes/No?
If TapR=vbYes Then TapR = "X" Else If TapR=vbNo Then TapR = ""
iProperties.Value("Custom", "Tap") = TapR

Dim CSKR As String
CSKR = MessageBox.Show("Is the Part Countersunk?", "CSK Status",MessageBoxButtons.YesNo) 'Is the Part Countersunk Yes/No?
If CSKR=vbYes Then CSKR = "X" Else If CSKR=vbNo Then CSKR = ""
iProperties.Value("Custom", "CSK") = CSKR

Dim InsertR As String
InsertR = MessageBox.Show("Is the Part Inserted?", "Insert Status",MessageBoxButtons.YesNo) 'Is the Part Inserted Yes/No?
If InsertR=vbYes Then InsertR = "X" Else If InsertR=vbNo Then InsertR = ""
iProperties.Value("Custom", "Insert") = InsertR

Dim WeldR As String
WeldR = MessageBox.Show("Is the Part Welded?", "Weld Status",MessageBoxButtons.YesNo) 'Is the Part Welded Yes/No?
If WeldR=vbYes Then WeldR = "X" Else If WeldR=vbNo Then WeldR = ""
iProperties.Value("Custom", "Weld")=WeldR

Dim DressR As String
DressR = MessageBox.Show("Is the Part Dressed?", "Dress Status",MessageBoxButtons.YesNo) 'Is the Part Dressed Yes/No?
If DressR=vbYes Then DressR = "X" Else If DressR=vbNo Then DressR = ""
iProperties.Value("Custom", "Dress")=DressR

Dim FlattenR As String
FlattenR = MessageBox.Show("Is the Part Flattened?", "Flatten Status",MessageBoxButtons.YesNo) 'Is the Part Flattened Yes/No?
If FlattenR=vbYes Then FlattenR = "X" Else If FlattenR=vbNo Then FLattenR = ""
iProperties.Value("Custom", "Flatten")=FlattenR

Dim WeldAssy As String
WeldAssy = MessageBox.Show("Part of a Weld Assy?", "Weld Status",MessageBoxButtons.YesNo) 'Is it part of a welded Assy?
If WeldAssy=vbYes Then WeldAssy = "X" Else If WeldAssy=vbNo Then WeldAssy = ""
iProperties.Value("Custom", "Weld Assy")=WeldAssy

Dim AssemblyR As String
AssemblyR = MessageBox.Show("Is the Part Assembly Stock?", "Stock Status",MessageBoxButtons.YesNo) 'Is the Part Assembly Stock Yes/No?
If AssemblyR=vbYes Then AssemblyR = "X" Else If AssemblyR=vbNo Then AssemblyR = ""
iProperties.Value("Custom", "AssemblyS")=AssemblyR

Dim FinishR As String
FinishR = InputBox("What is the Parts Finish?", "Cost Centre", "Clear Zinc Plate Per ASTM B633 TYPEIII,Zn/Fe8")
iProperties.Value("Project", "Cost Center")= FinishR

Dim PlateR As String
Dim PaintR As String

If FinishR = "Clear Zinc Plate Per ASTM B633 TYPEIII,Zn/Fe8" Then PlateR = "X" Else PlateR = ""
If FinishR.Contains ("Powdercoat") Or FinishR.Contains ("Powder") Or FinishR.Contains ("powder") Or FinishR.Contains ("powdercoat") Or FinishR.Contains ("Coat") Or FinishR.Contains ("coat") Or InStr(FinishR, "Ral")  Then PaintR = "X" Else PaintR = ""    'Or FinishR.Contains ("ral") Or FinishR.Contains ("RAL")


iProperties.Value("Custom", "Plate") = PlateR
iProperties.Value("Custom", "Paint") = PaintR


Dim docname As String
docname=ThisDoc.FileName(False) 



Goto 2:


2:


InventorVb.DocumentUpdate()

Re: iLogic rule creating custom iProperties

Owner2229 — Wed, 18 Jan 2017 18:47:40 GMT

How about this:

Dim FinishRU As String = UCase(FinishR)
If FinishRU... ...Or (FinishRU.Contains ("RAL") And Not FinishRU.Contains("NATURAL")) Or...

Here is the whole "Plate and Paint" part changed a bit:

Dim PlateR As String = vbNullString
Dim PaintR As String = vbNullString

If FinishR = "Clear Zinc Plate Per ASTM B633 TYPEIII,Zn/Fe8" Then PlateR = "X"

Dim FinishRU As String = UCase(FinishR)
Select Case True
Case FinishRU.Contains("POWDER"):                                  PaintR = "X"
Case FinishRU.Contains("COAT"):                                    PaintR = "X"
Case FinishRU.Contains("RAL") And Not FinishRU.Contains("NORMAL"): PaintR = "X"
End Select

iProperties.Value("Custom", "Plate") = PlateR
iProperties.Value("Custom", "Paint") = PaintR

Also, I'd probably kill myself (or you) if this huge amout of textboxes jumped on me and required answer for everything.

I suggest you looking into the creation of UserForms. You can put all your required info there and ask the user for all the info at once.

It will also alow them to cancel and close the whole thing at once.

Re: iLogic rule creating custom iProperties

Anonymous — Wed, 22 Feb 2017 15:23:41 GMT

Thank you for the solution. Does the trick!

Re: iLogic rule creating custom iProperties

Owner2229 — Wed, 22 Feb 2017 16:16:32 GMT

You're welcomed. Also I've had a mistake in the code, but I guess you've found that:

Case FinishRU.Contains("RAL") And Not FinishRU.Contains("NATURAL"): PaintR = "X"

Re: iLogic rule creating custom iProperties

Anonymous — Wed, 22 Feb 2017 16:20:05 GMT

Yes, meant to mention that cheers!

topic Re: iLogic rule creating custom iProperties in Inventor Programming Forum

iLogic rule creating custom iProperties

Re: iLogic rule creating custom iProperties

Re: iLogic rule creating custom iProperties

Re: iLogic rule creating custom iProperties

Re: iLogic rule creating custom iProperties