Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations The Obturator on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Help to get catproduct user defined properties

Status
Not open for further replies.

juangomezA

Computer
Jan 13, 2012
2
Hi cklong,

amazing aplication you have done!

I need to get the user defined properties as you are doing with your code. I've tried a lot of ways but non have work for me.

Could you please help me with this? which function or method are you using??

Thanks in advance!!

 
Replies continue below

Recommended for you

Public TEA(500) As String
Public TEB(500) As String
Set opart = CATIA.ActiveDocument
Set PartDoc = CATIA.ActiveDocument.GetItem(opart.Name)
Set partnum = PartDoc
PNUM = partnum.PartNumber
descr = partnum.DescriptionRef
On Error Resume Next
Dim XTemp As Long
Dim TE As String
XTemp = 1
A1 = Len(partnum.Name) + 12
While parameters1.Count > (XTemp - 1)
strtemp = parameters1.Item(XTemp).Name
A2 = Len(strtemp)
Set strParam1 = parameters1.GetItem(strtemp)
strtemp = Right(strtemp, A2 - A1)
strt = strParam1.Value
TENUM = XTemp
TEA(XTemp) = strtemp

TEB(XTemp) = strt
XTemp = XTemp + 1
Wend
'this will get the properties name as TEA(1),TEA(2),...
'and the Value as TEB(1),TEB(2),...

i think this is what you need hope this helps you
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor