点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

PowerDesigner 16.6

如何在活动模型的所有图上重绘表格符号？
当前图仅在现在重绘（请参见下面的脚本）

函数％Validate％（obj，ByRef消息）

dim sym
dim col

activeDiagram.symbols
'msgbox sym.ClassName
如果sym.ClassName ="表符号"，则
如果sym.Code = obj.Code，则
如果obj.GetExtendedAttribute（" PartitionScheme"）<>""，则
sym.Shadow = true
sym.ShadowStyle = 1
sym.ShadowColor = 255


elseif obj.GetExtendedAttribute（" FilledManuallyTable"）然后
sym.Shadow = true
sym.ShadowStyle = 1
sym.ShadowColor = 200 * 150 * 100

else
sym.Shadow = false
如果if

如果obj.GetExtendedAttribute（" SignificantTable"）则
sym .LineWidth = 3
else
sym.LineWidth = 0
如果
结束if
结束if
Next

activeDiagram.RedrawAllViews
％Validate％ = True

最终功能