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

torun 发表于 2006-7-4 08:45:06

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

各位大侠：您们好！

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

Sub addmodel()
Dim m As ModelReference

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

End Sub

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

kuangbingo 发表于 2006-7-4 10:39:27

Sub addmodel()
Dim m As ModelReference

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

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

torun 发表于 2006-7-4 17:33:29

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

pearl2988 发表于 2006-7-4 17:58:59

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 发表于 2024-10-20 08:30:33

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

kmliro_2017 发表于 2024-10-20 08:32:26

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

查看完整版本: [求助]：VBA创建模型的问题求教高手?