Putting a check in macro
Putting a check in macro
(OP)
Hey guys,
I have a macro that generates part properties automatically. What i would like to do is to put a check in, so the macro stop regenerating the properties if they already exists.
Image is attached for reference.
Script is below:
Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set parameters1 = product1.UserRefProperties
Set strParam1 = parameters1.CreateString("Project", "")
strParam1.ValuateFromString ""
Set parameters2 = product1.UserRefProperties
Set strParam2 = parameters1.CreateString("Title", "")
strParam2.ValuateFromString ""
Set parameters3 = product1.UserRefProperties
Set strParam3 = parameters1.CreateString("DrawingNumber", "")
strParam3.ValuateFromString ""
so the macro generates Project, Title and DrawingNumber... If the macro is run again, it shouldn't generate them again.
Please help guys, thanks.
I have a macro that generates part properties automatically. What i would like to do is to put a check in, so the macro stop regenerating the properties if they already exists.
Image is attached for reference.
Script is below:
Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set parameters1 = product1.UserRefProperties
Set strParam1 = parameters1.CreateString("Project", "")
strParam1.ValuateFromString ""
Set parameters2 = product1.UserRefProperties
Set strParam2 = parameters1.CreateString("Title", "")
strParam2.ValuateFromString ""
Set parameters3 = product1.UserRefProperties
Set strParam3 = parameters1.CreateString("DrawingNumber", "")
strParam3.ValuateFromString ""
so the macro generates Project, Title and DrawingNumber... If the macro is run again, it shouldn't generate them again.
Please help guys, thanks.
Warm regards,
Akhtar Aziz





RE: Putting a check in macro
Check parameter 1 name, if existing go to next one , if not create....
Regards
Fernando
https://picasaweb.google.com/102257836106335725208 - Romania
https://picasaweb.google.com/103462806772634246699... - EU
RE: Putting a check in macro
The script will do what you ask the script to do
indocti discant et ament meminisse periti
RE: Putting a check in macro
what's the script !
Warm regards,
Akhtar Aziz
RE: Putting a check in macro
indocti discant et ament meminisse periti
RE: Putting a check in macro
any help guys?
Set Document = MyCATIA.ActiveDocument
'---
'---CREATE USER PARAMETERS----
Set productDocument1 = MyCATIA.ActiveDocument
Set product1 = productDocument1.Product
Set parameters1 = product1.UserRefProperties
Set strParam1 = parameters1.CreateString("FILE FOR MANUFACTURING", "")
If strParam1.Value = "FILE FOR MANUFACTURING" Then
strParam1.ValuateFromString ""
strParam1.Value = "XXXXXXX.STP"
End If
RE: Putting a check in macro
CODE -->
Language="VBSCRIPT" Sub CATMain() Set productDocument1 = CATIA.ActiveDocument Set product1 = productDocument1.Product Set parameters1 = product1.UserRefProperties On error resume next Err.clear Set strparam1 = parameters1.item("Project") If err.number <> 0 then Set strParam1 = parameters1.CreateString("Project", "") On error go to 0 End if