使用VBS在PD中创建扩展属性

2020-09-20 02:52发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

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


嗨,

Am尝试使用vbs在PD中创建扩展属性

它在网上失败了:

设置属性= Createobject(model.cls_ExtendedAttribute)

 

不支持对象-有人知道如何在数据项中创建新的扩展属性吗?

谢谢

代码看起来像

 ValidationMode = True'强制PowerDesigner进行验证
 的行为,并在发生禁止行为时返回错误
 InteractiveMode = im_Batch'禁止PowerDesigner对话框
 ' 主功能
 '使用类图创建OOM模型
 昏暗模型
 设置模型= CreateModel(PdCDM.cls_Model," | Diagram = ClassDiagram")
 model.Name ="客户管理"
 model.Code ="客户管理"
 '获取类图
 昏暗图
  点心
  设置cls = model.dataitems.CreateNew()
  cls.Name ="客户"
  cls.Code ="客户"
  cls.Comment ="客户类别"
  cls.Description ="客户类定义客户的属性和行为。"
  '创建属性
  CreateAttributes cls
  '创建方法
  CreateOperations cls
  '为班级创建符号
  昏暗的象征
  设置sym = diagram.AttachObject(cls)
  CreateClasses = True
 '创建属性功能
 函数CreateAttributes(cls)
  昏暗的属性
  设置属性= Createobject(model.cls_ExtendedAttribute)
  '(PdOOM.cls_Attribute)
  attr.Name =" ID"
  attr.Code =" ID"
  attr.DataType =" int"
  attr.Persistent = True
  attr.PersistentCode =" ID"
  attr.PersistentDataType =" I"
  attr.PrimaryIdentifier =真
  设置attr = cls.CreateObject(PdOOM.cls_Attribute)
  attr.Name ="名称"
  attr.Code ="名称"
  attr.DataType ="字符串"
  attr.Persistent = True
  attr.PersistentCode =" NAME"
  attr.PersistentDataType =" A30"
  设置attr = cls.CreateObject(PdOOM.cls_Attribute)
  attr.Name ="电话"
  attr.Code ="电话"
  attr.DataType ="字符串"
  attr.Persistent = True
  attr.PersistentCode =" PHONE"
  attr.PersistentDataType =" A20"
  设置attr = cls.CreateObject(PdOOM.cls_Attribute)
  attr.Name ="电子邮件"
  attr.Code ="电子邮件"
  attr.DataType ="字符串"
  attr.Persistent = True
  attr.PersistentCode =" EMAIL"
  attr.PersistentDataType =" A30"
  CreateAttributes = True
 结束功能

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

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


嗨,

Am尝试使用vbs在PD中创建扩展属性

它在网上失败了:

设置属性= Createobject(model.cls_ExtendedAttribute)

 

不支持对象-有人知道如何在数据项中创建新的扩展属性吗?

谢谢

代码看起来像

 ValidationMode = True'强制PowerDesigner进行验证
 的行为,并在发生禁止行为时返回错误
 InteractiveMode = im_Batch'禁止PowerDesigner对话框
 ' 主功能
 '使用类图创建OOM模型
 昏暗模型
 设置模型= CreateModel(PdCDM.cls_Model," | Diagram = ClassDiagram")
 model.Name ="客户管理"
 model.Code ="客户管理"
 '获取类图
 昏暗图
  点心
  设置cls = model.dataitems.CreateNew()
  cls.Name ="客户"
  cls.Code ="客户"
  cls.Comment ="客户类别"
  cls.Description ="客户类定义客户的属性和行为。"
  '创建属性
  CreateAttributes cls
  '创建方法
  CreateOperations cls
  '为班级创建符号
  昏暗的象征
  设置sym = diagram.AttachObject(cls)
  CreateClasses = True
 '创建属性功能
 函数CreateAttributes(cls)
  昏暗的属性
  设置属性= Createobject(model.cls_ExtendedAttribute)
  '(PdOOM.cls_Attribute)
  attr.Name =" ID"
  attr.Code =" ID"
  attr.DataType =" int"
  attr.Persistent = True
  attr.PersistentCode =" ID"
  attr.PersistentDataType =" I"
  attr.PrimaryIdentifier =真
  设置attr = cls.CreateObject(PdOOM.cls_Attribute)
  attr.Name ="名称"
  attr.Code ="名称"
  attr.DataType ="字符串"
  attr.Persistent = True
  attr.PersistentCode =" NAME"
  attr.PersistentDataType =" A30"
  设置attr = cls.CreateObject(PdOOM.cls_Attribute)
  attr.Name ="电话"
  attr.Code ="电话"
  attr.DataType ="字符串"
  attr.Persistent = True
  attr.PersistentCode =" PHONE"
  attr.PersistentDataType =" A20"
  设置attr = cls.CreateObject(PdOOM.cls_Attribute)
  attr.Name ="电子邮件"
  attr.Code ="电子邮件"
  attr.DataType ="字符串"
  attr.Persistent = True
  attr.PersistentCode =" EMAIL"
  attr.PersistentDataType =" A30"
  CreateAttributes = True
 结束功能
付费偷看设置
发送
3条回答
Aaron 3364
1楼 · 2020-09-20 03:07.采纳回答

大简至美
2楼-- · 2020-09-20 03:20

感谢链接Phillip。 在我的机器上,整个脚本的运行时间不到2秒,令人印象深刻:)

"帮助"中列出的脚本存在一些小问题:

  • 我不会将扩展属性称为"类型",因为移动设备对象已经具有带有自己的值列表的Type属性。 在我的版本中,我将其称为"平板电脑类型"
  • 该脚本将"平板电脑类型"的所有值设置为默认值,因为在此命令中限定扩展属性的名称时出错:
 obj.SetExtendedAttribute" MYEXT.TabletType",myProps(2)
需要更改MYEXT以匹配扩展名的代码
野沐沐
3楼-- · 2020-09-20 03:18

在上面的页面中,单击

创建和访问扩展(脚本)

一周热门 更多>