[求助]：VBA创建模型的问题求教高手?

torun

各位大侠：您们好！

我需要在VBA程序中动态的创建模型（model），用以下代码：

Sub addmodel()
Dim m As ModelReference

Set m = ActiveDesignFile.Models.Add(ActiveModelReference, "0+5000", "测试", msdModelTypeNormal, False)

End Sub

创建的模型在显示时却与用模型管理器创建的不一样，就是在模型名称后有“临时视图”字样（见图片），请问以上代码中还需要加什么代码才能正确创建模型？

kuangbingo

Sub addmodel()
Dim m As ModelReference

Set m = ActiveDesignFile.Models.Add(ActiveModelReference, "0+5000", "测试", msdModelTypeNormal, False)
   

因为你使用了activemodelreference 作为参数,所以这条命令就用你的文件中显示的那个" 0临时视图" 这个模型作为模板来新建模型。

torun

我试过,不是这个原因,我用以下代码:
        Set m = ActiveDesignFile.Models.Add(ActiveDesignFile.DefaultModelReference, strModelName, strModelName, msdModelTypeNormal, False)
就是DGN文件默认的那个Default模型作为模板来创建,新建的模型还是显示为"临时视图",而图标显示为灰的,如上图所示,不知建模型跟视图有什么关系?请指教!

pearl2988

Creating a New Model

Function CreateNewModel(strName As String) As ModelReference
    Dim template As ModelReference
   
    Set template = ActiveDesignFile.DefaultModelReference
    With template
        Set CreateNewModel = ActiveDesignFile.Models.Add(template, strName, "Added " & Now, .Type, .Is3D)
    End With
End Function

kmliro_2017

不错，谢谢分享！！！！！

kmliro_2017

不错，谢谢分享！！！！！