Function OnInit(initData) initData.name = "DWG Columns" initData.desc = "Adds DWG Columns from the JTB World extension" initData.copyright = "(c) 2016 jpotter" initData.version = "1.0" initData.default_enable = true initData.min_version = "12.0" Dim props, prop, col Set props = DOpus.FSUtil.GetShellPropertyList("dwg.*", "r") for each prop in props Set col = initData.AddColumn col.name = prop.raw_name col.method = "OnDWGColumn" col.label = prop.display_name col.justify = "left" col.autogroup = true col.userdata = prop.pkey next End Function Function OnDWGColumn(scriptColData) scriptColData.value = scriptColData.item.shellprop(scriptColData.userdata) End Function