点击此处--->   群内免费提供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
 结束功能