Editing title block field manually breaks script

Hi Mhawley1 ,

You might currently be iterating only through the title blocks, which means you’re working with DboTitleBlock objects. Editing from this directly modifies only the instance-level properties.

That’s why when you manually edit the occurrence properties (shown in yellow), it doesn’t reflect in your script if you’re not accessing the correct occurrence.

In a previous post, we discussed iterating over occurrences of the title block (which gives you DboOccurrence objects). That method allows you to properly access and edit occurrence-level properties.

If you’d like to handle both cases — where occurrences exist or not — here’s a small proc you can use to fetch all title block occurrences (DboOccurrence) from a given parent (DboTitleBlock):

proc lGetOcc {lParent} {
  set lPartOcc {}
    set lOccCount [$lParent GetOccurrencesCount]
    for {set i 0} {$i<$lOccCount} {incr i} { 
        set lOcc [$lParent GetOccurrencesAtPos $i]
        lappend lPartOcc $lOcc
    }
  return $lPartOcc
}

You can then check if occurrences exist for the title block. If they do, modify the properties on those occurrences as well. If they don’t, fall back to editing directly instance level property.

Hope this helps!

Short reply , THIS WORKED ! I need to clean up my solution a little and ill repost in about an hour . Also thank you for the help . Your code snippets are small and to the point , they allow me to "INJECT" that right into my code and fix the issue. 

Ok so this is the code I settled on , Just added these procedures when each title block object comes up over the iteration . 

proc change_occurence_title {title_examined new_rev_code} {

set strange_occurent [lGetOcc $title_examined]

set new_rev [DboTclHelper_sMakeCString $new_rev_code]

set lProp [DboTclHelper_sMakeCString "RevCode"]
set lname [DboTclHelper_sMakeCString]

foreach occ $strange_occurent {

$occ GetEffectivePropStringValue $lProp $lname

set lStatus [$occ SetEffectivePropStringValue $lProp $new_rev]
}

}

proc lGetOcc {lParent} {
set lPartOcc {}
set lOccCount [$lParent GetOccurrencesCount]
for {set i 0} {$i<$lOccCount} {incr i} {
set lOcc [$lParent GetOccurrencesAtPos $i]
lappend lPartOcc $lOcc
}

return $lPartOcc
}