[VBA程序]：如何用VBA新建图层，并改新建层名！谢谢

tpmao

我想新建一个名字叫“kongzhi”的层，用VBA怎么实现？？？谢谢！

MicroStation迷

ActiveDesignFile.AddNewLevel ("kongzhi")
ActiveDesignFile.Levels.Rewrite

lgh4073

在ms中使用vba编程，如果对一些命令记不清楚，可以利用其中的宏录制功能（如果你用过excel，对它的宏录制功能应该有所了解），下面是我在ms中使用宏录制的程序代码，当然比不上MicroStation迷的整洁，但可以提供一种思路，让你更好的了解vba
Sub Macro2()
    Dim startPoint As Point3d
    Dim point As Point3d, point2 As Point3d
    Dim lngTemp As Long

'   启动命令
    CadInputQueue.SendCommand "LEVELMANAGER LEVEL NEW "

    CadInputQueue.SendCommand "LEVELMANAGER LEVEL RENAME LIST "

'设置一个与对话框关联的变量
    SetCExpressionValue "lvlmangrGlobals.levelName", "ab", "LVLMANGR"

    CommandState.StartDefaultCommand
End Sub

tpmao

谢谢lgh4073 ，我以前也用录制宏的这种方法，但有时改名字会出错。迷的方法很好，我找了很久一直没有找到，没有想到是ActiveDesignFile的方法！！呵呵，谢谢各位了！！！！