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