随着企业信息化地深入,水利水电设计领域也正经历着从传统二维CAD设计到三维设计地转变。本文主要介绍了CATIA软件在三河口水利枢纽工程电气设计中的基本流程,同时也简单阐述了如何运用该软件进行碰撞检查以及三维出图。
Private Sub Command1_Click() '00000000000000000000000 判断 catia是否开启 000000000000000000000000000 Dim CATIA As Object On Error Resume Next Set CATIA = GetObject(, "CATIA.Application") If Err.Number <> 0 Then Set CATIA = CreateObject("CATIA.Application") CATIA.Visible = True End If On Error GoTo 0 '0000000000000000000000 窗 体 文 本 框 内 的 数 值 传 递 到 函 数 对 应 的 变 量 000000000000000000000000000000000