Powerdesigner快速生成pdm

1、新建PhysicalDataModel（File-->New-->Physical Data Model）

2、点击菜单栏中的Tools-->Execute Commands-->Edit/Run Script-->在弹出的窗体贴如以下代码

Option Explicit

'-----------------------------------------------------------------------------
' 魔尊年少时制作 http://pc-funning.cnblogs.com/
' 随便修改增强，希望能做记录，做注释，保留出处
' 2009-1-21最后整理
'-----------------------------------------------------------------------------
Dim system, file
Set system = CreateObject("Scripting.FileSystemObject") '创建文件对象

Dim ForReading, ForWriting, ForAppending
dim str
dim tittle
dim first
ForReading   = 1 ' 设置文件只读
ForWriting   = 2 ' 设置文件写入
ForAppending = 8 ' 设置文件追加

'-----------------------------------------------------------------------------
' 主要程序
'-----------------------------------------------------------------------------

Set file = system.OpenTextFile("D:\ped.txt", ForReading)'打开文本文档
Dim noLine
Dim Tab  '定义一个表，vbscript中变量没有那么严格的类型，但此变量将来将用来表示table
ValidationMode = True
Dim mdl ' 定义当前激活的模型，也就是mdl
Dim Col
dim dm, dmstr
Dim SSS
Dim isNewTable

Set mdl = ActiveModel '获取当前激活模型

set Tab = mdl.Tables.CreateNew
isNewTable = True

first=file.readline '读文档按行读
tittle=split(first) '以空格分隔划分入数组,获取的是表的属性，可以获取更多属性，根据实际情况而定
tab.name=tittle(0) 'name
tab.code=tittle(1) 'code

Do While file.AtEndOfStream <> True '循环读取文档的每一行
   SSS = file.ReadLine
   str=split(SSS)
  
   if isNewTable = True then
     if SSS <> "" then
       isNewTable = False
      
     end if
   elseif SSS = "" then
   
    
   else 
     set Col=tab.Columns.CreateNew '创建一行字段
     Col.name = str(0) '依次设置属性，同表的属性，字段熟悉也可以设置更多，根据实际情况
     Col.Code= str(1)
     col.datatype=str(2)
    
   end if 
Loop
file.Close

3、将你的建表文件整理成如下格式然后存放在D:\ped.txt，该文件格式如下

违章种类维度 Dim_Punish_Type
********************此分割线用来分割表名与字段（不可删除）***********************
违章种类代码 TypeCode VARCHAR2(10)
违章种类名称 TypeName VARCHAR2(100)

注：以上文件出了表名名称和代码；字段名称、代码、字段类型之间有一个空格外其他地方均无空格换行。

4、在powerdesigner中执行刚刚贴入的脚本，然后在左边的导航栏中将该模型拖入右边的窗体中，添加主外键、相关约束即可。