Tools -> Execute Commands -> Edit/Run Script 执行以下脚本: 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
原理:把显示name的列的值,替换成注释的值. 步骤:打开菜单Tools>Execute Commands>Edit/Run Script.. 或者用快捷键 Ctrl+Shift+X.将下面的语句粘贴进去并执行 VBS脚本: Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim blankStr blankStr ) Dim mdl ' the current model ' get the current a