Changing Iproperies

[Anonymous]

When I change properties for userdefined properties it works, but not for system build properties as PART NUMBER, what's wrong. ? Private Sub CommandButton1_Click() Dim oUsrDwgPropSet As PropertySet Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Set oUsrDwgPropSet = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}") Dim oDwgProp As Property For Each oDwgProp In ThisApplication.ActiveDocument.PropertySets.Item(4) Select Case oDwgProp.Name Case "LL_REV" oDwgProp.value = "rev_1" End Select Next oDwgProp End Sub ---***---***----***--- Private Sub CommandButton2_Click() Dim oUsrDwgPropSet As PropertySet Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Set oUsrDwgPropSet = oDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}") Dim oDwgProp As Property For Each oDwgProp In ThisApplication.ActiveDocument.PropertySets.Item(3) Select Case oDwgProp.Name Case "PART NUMBER" oDwgProp.value = "xxxx" End Select Next oDwgProp End Sub

[Anonymous]

When I change properties for userdefined properties it works, but not for system build properties as PART NUMBER, what's wrong? The property's name is "Part Number", not "PART NUMBER". -------------------------------------------------------------------------------- Brian R. Iwaskewycz Senior Mechanical Engineer PA Transformer Technology, Inc. To err is human; to debug, divine.