![](https://img-blog.csdnimg.cn/20201014180756923.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Microstation VBA
文章平均质量分 58
ANZI57066381
这个作者很懒,什么都没留下…
展开
-
(1) 创建新图层
Sub AddNewLevel() Function: 创建新层 Creater: anzi Create Time: 2008年10月12日 Description: 包括一下功能: (1) 层名转化为大写字母;原创 2008-10-14 22:45:00 · 1040 阅读 · 0 评论 -
MicroStation VBA程序软件发布注意事项
辛辛苦苦编出来的软件不仅要自己用,而且要发布给广大有相同需要的朋友使用。软件开发者总是希望自己的成果传播得越广越好,这样可以把科技成果转换成生成力,如果能换成银子,那是最好不过了的。MicroStation VBA虽然是VB的一种,但VBA通常都不带软件打包程序,这就给VBA程序编制者发布VBA软件带来了麻烦。在VB中我们可以用VB带的打包程序先打包,当然不是将VB生成的安装程序来发布,使用过转载 2008-10-30 21:19:00 · 2175 阅读 · 0 评论 -
MicroStation VBA创建直线的三种方法
----------------------------------------- 使用二维数组点创建直线 CreateLineElement1() ----------------------------------------- Sub CreateLine1() 定义一个点数组以及一个元素变量 Dim pntLine(0 To原创 2008-11-24 23:58:00 · 2875 阅读 · 2 评论 -
Microstation VBA创建圆弧的五种方法
----------------------------------------- 使用三点创建圆弧 CreateArcElement1() ----------------------------------------- Sub CreateArc1() 定义圆弧的三个点以及一个元素 Dim pntStart As Point3d原创 2008-11-25 23:23:00 · 2926 阅读 · 2 评论 -
MCUS.SettingOutData
Declare Function mdlDialog_fileOpen Lib "stdmdlbltin.dll" (ByVal _ fileName As String, ByVal rFileH As Long, ByVal _ resourceId As Long, ByVal suggestedFileName As String, _ ByVal filte原创 2009-03-26 00:11:00 · 888 阅读 · 0 评论 -
Application.OpenDesignFile
用OpenDesignFile方法打开文件Sub main() 声明文件路径及文件名字符串 Dim txtFileName As String txtFileName = "D:/road.dgn" 打开文件 On Error GoTo Err原创 2009-03-30 22:06:00 · 678 阅读 · 0 评论 -
modelList
mdlSelectFolder 模块名称:SelectFolder 模块功能: 选择文件夹 创建者: Andy 创建时间: 2009年6月20日 输出: 所选文件夹的路径原创 2009-08-22 01:25:00 · 1165 阅读 · 0 评论