set mdl = ActiveModel
Set opt = mdl.GetModelOptions()
Output “NameNamingConventions.Count: ” & opt.NameNamingConventions.Count
Output “CodeNamingConventions.Count: ” & opt.CodeNamingConventions.Count
for each ncon in opt.NameNamingConventions
ncon.script = “news value”
next
opt.Save
opt.UpdateModelOptions
mdl.save
‘mdl.close