PowerDesigner脚本

电玩女神 2022-10-27 05:21 332阅读 0赞

## 打开脚本编辑/运行窗口 ##

菜单栏里找不到的话（比如我就没找到），直接按 Ctrl + Shift + X 。就是它了  
使用的话把脚本粘贴进去，看需求编辑一下，然后执行。  
当然也可以保存和加载脚本，嗯，看图标就知道了。  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NDU2NTA5NQ_size_16_color_FFFFFF_t_70]

## 导入Excel表格中的信息生成新实体 ##

1.“E:\\Docs\\ldm\\脚本及模型\\table.xlsx” 文件路径需要替换一下；  
2.只读取Excel文件中的第一个Sheet，且Sheet名是“sheet1”；  
3.第一行是数据表的信息，第1-3列放表名Code、表名、表注释；  
4.第二行之后的数据作为表的属性。第1-4行分别放列名Code、列名、数据类型、是否必填(Y);  
5.第二行的属性作为表主键；  
6.把列名作为列的注释了；  
7.以上只是下面脚本的说明，一切都可以自己动手调整。

' 第一行是表信息的描述，依次是：表名Code、表名、表注释
    ' 第二行开始是列的描述，分别是：列名Code、列名、数据类型、是否必填
    ' Excel的sheet名称统一为sheet1
    '开始
    Option Explicit
    
    Dim mdl ' the current model
    Set mdl = ActiveModel
    If (mdl Is Nothing) Then
        MsgBox "There is no Active Model"
    End If
    
    Dim HaveExcel
    Dim RQ
    RQ = vbYes 'MsgBox("Is  Excel Installed on your machine ?", vbYesNo + vbInformation, "Confirmation")
    If RQ = vbYes Then
        HaveExcel = True
        ' Open & Create  Excel Document
        Dim x1 '
        Set x1 = CreateObject("Excel.Application")
        x1.Workbooks.Open "E:\Docs\ldm\脚本及模型\table.xlsx" '指定 excel文档路径
        x1.Workbooks(1).Worksheets("Sheet1").Activate '指定要打开的sheet名称
    Else
        HaveExcel = False
    End If
    
    a x1, mdl
    
    sub a(x1, mdl)
    dim rwIndex 
    dim tableName
    dim colname
    dim table
    dim col
    
    on error Resume Next
    
    set table = mdl.Tables.CreateNew '创建一个 表实体
    
    For rwIndex = 1 To 1000 '
        With x1.Workbooks(1).Worksheets("Sheet1")
            If .Cells(rwIndex, 1).Value = "" Then
            Exit For
            End If
                    
            If rwIndex = 1 Then
                ' 表赋值
                table.Code=.Cells(rwIndex, 1).Value '实际表名 
                table.Name=.Cells(rwIndex, 2).Value '逻辑表名 
                table.Comment=.Cells(rwIndex, 3).Value '表注释 
            Else        
                set col = table.Columns.CreateNew '创建一列/字段            
                
                col.Code = .Cells(rwIndex, 1).Value
                col.Name = .Cells(rwIndex, 2).Value '指定列名
                col.DataType = .Cells(rwIndex, 3).Value '指定列数据类型
                col.Comment = .Cells(rwIndex, 2).Value '指定列说明，这里把列名作为注释了
                
                If .Cells(rwIndex, 4).Value = "Y" Then
                    col.Mandatory = true '指定列是否可空 true 为不可空 
                End If
                
                If rwIndex = 2 Then
                    'col.Primary = true '指定主键
                End If
            End If
        End With
    Next
    MsgBox "生成成功"
    
    Exit Sub
    End sub

Excel大致就这个样子了。  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NDU2NTA5NQ_size_16_color_FFFFFF_t_70 1]

## 注释和属性名的互相同步脚本 ##

#### 会把当前工作空间的所有实体/表都遍历一遍 ####

###### 1.将Comment中的字符复制至Name中，判断name=code的情况下才复制，防止手动修改的内容被覆盖 ######

Option   Explicit 
    ValidationMode   =   True 
    InteractiveMode   =   im_Batch
    
    Dim   mdl   '   the   current   model
    
    '   get   the   current   active   model 
    Set   mdl   =   ActiveModel 
    If   (mdl   Is   Nothing)   Then 
          MsgBox   "There   is   no   current   Model " 
    ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then 
          MsgBox   "The   current   model   is   not   an   Physical   Data   model. " 
    Else 
          ProcessFolder   mdl 
    End   If
    
    Private   sub   ProcessFolder(folder) 
    On Error Resume Next
          Dim   Tab   'running     table 
          for   each   Tab   in   folder.tables 
                if   not   tab.isShortcut   then
    				if tab.name=tab.code then
                      tab.name   =   tab.comment
    				end if
                      Dim   col   '   running   column 
                      for   each   col   in   tab.columns 
                      if col.comment="" then
                      else
    					  if col.name=col.code then
                            col.name=   col.comment
    					  end if
                      end if
                      next 
                end   if 
          next
    
          Dim   view   'running   view 
          for   each   view   in   folder.Views 
                if   not   view.isShortcut   then 
    			    if view.name=view.code then
                      view.name   =   view.comment 
    				end if
                end   if 
          next
    
          '   go   into   the   sub-packages 
          Dim   f   '   running   folder 
          For   Each   f   In   folder.Packages 
                if   not   f.IsShortcut   then 
                      ProcessFolder   f 
                end   if 
          Next 
    end   sub

###### 2.将Name中的字符复制至Comment中，只有Comment字段为空才复制 ######

Option   Explicit 
    ValidationMode   =   True 
    InteractiveMode   =   im_Batch
    
    Dim   mdl   '   the   current   model
    
    '   get   the   current   active   model 
    Set   mdl   =   ActiveModel 
    If   (mdl   Is   Nothing)   Then 
          MsgBox   "There   is   no   current   Model " 
    ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then 
          MsgBox   "The   current   model   is   not   an   Physical   Data   model. " 
    Else 
          ProcessFolder   mdl 
    End   If
    
    '   This   routine   copy   name   into   comment   for   each   table,   each   column   and   each   view 
    '   of   the   current   folder 
    Private   sub   ProcessFolder(folder) 
          Dim   Tab   'running     table 
          for   each   Tab   in   folder.tables 
                if   not   tab.isShortcut  then 
    				if tab.comment="" then
                      tab.comment   =   tab.name 
    				end if
                      Dim   col   '   running   column 
                      for   each   col   in   tab.columns 
    					if col.comment="" then
                            col.comment=   col.name 
    					end if
                      next 
                end   if 
          next
    
          Dim   view   'running   view 
          for   each   view   in   folder.Views 
                if   not   view.isShortcut   then 
    				if view.comment="" then
                      view.comment   =   view.name
    				end if
                end   if 
          next
    
          '   go   into   the   sub-packages 
          Dim   f   '   running   folder 
          For   Each   f   In   folder.Packages 
                if   not   f.IsShortcut   then 
                      ProcessFolder   f 
                end   if 
          Next 
    end   sub

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NDU2NTA5NQ_size_16_color_FFFFFF_t_70]: /images/20221024/52305a5b968245eeb6296e8a5092fa61.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NDU2NTA5NQ_size_16_color_FFFFFF_t_70 1]: /images/20221024/76630b40f5a54abb9627289ad7764b02.png