pd转换name为comment脚本

        在【Tools】-【Execute Commands】-【Edit/Run Script】 下。输入下面的语句即可，也可以保存起来，以便下次使用，后缀为.vbs。 

'------------------------------------------------------------''脚本功能：'    PowerDesigner中批量根据对象的name生成comment的脚本'执行方法：'    Open PDM--Tools--Execute Commands--Run Script''------------------------------------------------------------Option ExplicitValidationMode = TrueInteractiveMode = im_BatchDim mdl 'the current model'get the current active modelSet mdl = ActiveModelIf (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 mdlEnd If'------------------------------------------------------------'This routine copy name into code for each table, each'column and each view of the current folde'------------------------------------------------------------Private sub ProcessFolder(folder)    Dim Tab 'running table    for each Tab in folder.tables        if not tab.isShortcut then            tab.comment = tab.name            Dim col 'running column            for each col in tab.columns                col.comment= col.name            next        end if    next    Dim view 'running view          for each view in folder.Views              if not view.isShortcut then              view.comment = view.name          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 '------------------------------------------------------------