admin管理员组

文章数量:1565370

2024年3月29日发(作者：)

Tools>Execute Commands>Edit/Run Script

脚本

Option Explicit

ValidationMode = True

InteractiveMode = im_Batch

Dim blankStr

blankStr = Space(1)

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 Of(_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

if not tcut then

Dim col ' running column

for each col in s

if t = "" or replace(t," ", "")="" Then

type = blankStr

blankStr = blankStr & Space(1)

else

type = t

end if

next

end if

本文标签： 显示备注

版权声明：本文标题：PowerDesigner16PDM显示备注 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.elefans.com/dongtai/1711689797a322484.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。