首页 > 学术百科

sap2000出计算书

调用VBA为sap2000出计算书

启动界面如下：

生成结果：

下面详细讲解该程序的制作过程

1、启动Visual Basic编辑器，

Word2007中，单击菜单“开发工具”--->“Visual Basic”按钮，弹出编辑器界面

Word2003中，选择菜单“工具”--->“宏”--->“Visual Basic 编辑器”，或者按快捷键“Alt + F11”，弹出编辑器界面

2、添加用户窗体。在工程资源管理器中右击空白处添加用户窗体，并在其属性中修改名称

3、在工程资源管理器中双击添加的用户窗体，进入窗体编辑，添加控件。

大众传播对社会的影响

4、为各个控件添加响应代码。直接双击控件或是右击控件选择“查看代码”便进入到响

应代码的编辑界面。可选择该控件支持的各种事件。如按钮控件有Click,DblClick,KeyDown等等.此处我们分别添加三个Click响应函数以及Form的初始化函数，然后在对应“过程”体中添加所需代码

代码如下：

Private Sub CommandButton_Exit_Click()

'退出SAP2000

Sap2000.ApplicationExit (False)

End Sub

Private Sub CommandButton_OutPut_Click()

sf公司‘生成计算书的主函数

WriteProject.Start

End Sub

Private Sub CommandButton_Start_Click()

亲水铝箔

Dim SapObject As Sap2000.SapObject

Dim ret As Long

Set SapObject = New Sap2000.SapObject

'启动SAP2000全宋词检索

ret = SapObject.ApplicationStart(N_mm_C)

' 激活按钮

CommandButton_OutPut.Enabled = True

CommandButton_Exit.Enabled = True

CommandButton_Start = False

'清空临时变量

Set SapObject = Nothing

第一黄金论坛End Sub

Private Sub UserForm_Initialize()

' 初始设置在没有启动SAP2000时，这两个按钮无效

CommandButton_OutPut.Enabled = False

CommandButton_Exit.Enabled = False

End Sub

5、双击“Microsoft Word 对象”下的“ThisDocument”，添加Open和Close的响应函数代码，open时启动用户窗体，close时退出SAP2000

代码：

Private Sub Document_Close()

Dim SapObject As Sap2000.SapObject

Set SapObject = Sap2000.SapObject

SapObject.ApplicationExit (False)

Set SapObject = Nothing

End Sub

Private Sub Document_Open()

UserForm.Show

End Sub

6、与插入“用户窗体”步骤相同，插入“模块”，重命名为“WriteProject”，添加通过SAP2000API 获取数

据和生成计算书的代码，具体请参阅SAP2000API相关文档（SAP2000程序文件路径下的SAP2000_API_Documentation.chm）以及WORD VBA开发相关帮助文档。

通过SAP2000.SapObject.SapModel.GetProjectInfo 获取项目信息

通过SapObject.SapModel.PointObj.GetNameList 获取节点信息数组

通过SapObject.SapModel.PointObj.GetCoordCartesian 获取节点坐标

通过SapObject.SapModel.PointObj.GetRestraint 获取节点约束信息

可能出现问题

对于用户在使用过程中出现的问题这里做些解释：

1、打开附件里的Word文档后，不弹出上图所示的启动sap2000v12的对话框界面

请在Word里启用宏，然后关闭该文档并重新打开，若弹出是否启用宏的对话框请选择启用宏

2、如何启用宏？

word2003下，选择菜单“工具”--->“宏”--->“宏安全性”，选择“低”，或者“中”

word2007下，菜单“开发工具”--->“宏安全性”，弹出“信任中心”对话框，在宏设置一栏设置为“启用所有宏”或者“禁用

所有宏，并发出通知”，确定。

不忠的爱3、单击"启动SAP2000按钮"，无法启动SAP200，弹出“丢失sap2000v12”

本工具是在SAP2000V12.0.2下开发的，若用户的SAP版本不同，必须手工添加引用，启动Visual Basic编辑器，选择菜单“工具”下的“引用”，

勾选“SAp2000V12”，若没有这个复选项的话，点击右侧的“浏览”按钮，选择SAP2000安装目录下的“”文件来添加引用。

本文发布于:2024-09-20 20:24:31，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/615366.html

上一篇：sap2000总结

下一篇：sap2000 常见问题解决

标签：添加窗体选择启动用户代码控件

留言与评论（共有 0 条评论）