Microstation VBA记录

1 创建单元_creatcellelement2函数
Sub cell2() '创建函数
Dim ease As CellElement '定义一个单元对象
Set ease = CreateCellElement2(“131110”, Point3dZero(), Point3dOne(), True, Matrix3dIdentity()) '设置该对象等于这些
ease.Level = ActiveDesignFile.Levels(levelname) '该单元所在层位置
ease.Color = 3 '该单元颜色
ActiveModelReference.AddElement ease '放置激活单元
End Sub

2 获取激活图层
关键字 ActiveSettings.Level
例如 ease.Level = ActiveSettings.Level '将该要素的层设置为当前层，然后再添加
Set oNewElement.Level = ActiveDesignFile.Levels.FindByCode(10)
以确定的图层号设置该元素
将别的层设置成当前层
ActiveSettings.Level = ActiveDesignFile.Levels(“ZJJMD”)
获取该层的名字easename = ActiveSettings.Level.Name