frmdhgen.frm

CATIA二次开发

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDHGen 
   Caption         =   "灯罩表面灯花自动生成"
   ClientHeight    =   2895
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5640
   OleObjectBlob   =   "frmDHGen.dsx":0000
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "frmDHGen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'退出按钮
Private Sub cmdExit_Click()
    Unload Me
End Sub

'生成圆柱形灯花按钮
Private Sub cmdGenCircleSurf_Click()
    
    '设置一些初始参数
    Init
    
    '选择参考元素
    SetRef
    
    '若用户完成了选择则生成灯花
    If DefineFinished Then
        
        '隐藏参数设置窗口并显示生成进度窗口
        Me.Hide
        frmProgress.Show
        frmProgress.lblProgress.Caption = "正在初始化..."
        frmProgress.Repaint
        DoEvents
        
        '设定灯花生成参数
        SetPar
        
        '创建基础元素
        CreateBaseElement
        
        frmProgress.lblProgress.Caption = "正在生成交线..."
        frmProgress.Repaint
        DoEvents
        
        '创建交线
        CreateIntersection
        
        frmProgress.lblProgress.Caption = "正在生成圆柱灯花..."
        frmProgress.Repaint
        DoEvents
        
        '创建圆柱灯花
        CreateCircleSurf
        
        '关闭进度窗口，重新显示参数设置窗口
        Unload frmProgress
        Me.Show
    
    End If

End Sub

'仅生成线按钮
Private Sub cmdGenCurve_Click()
    
    '设置一些初始参数
    Init
    
    '选择参考元素
    SetRef
    
    '若用户完成了选择则生成灯花
    If DefineFinished Then
    
        '隐藏参数设置窗口并显示生成进度窗口
        Me.Hide
        frmProgress.Show
        frmProgress.lblProgress.Caption = "正在初始化..."
        frmProgress.Repaint
        DoEvents
        
        '设定灯花生成参数
        SetPar
        
        '创建基础元素
        CreateBaseElement
        
        frmProgress.lblProgress.Caption = "正在生成交线..."
        frmProgress.Repaint
        DoEvents
        
        '创建交线
        CreateIntersection
        
        '关闭进度窗口，重新显示参数设置窗口
        Unload frmProgress
        Me.Show
    
    End If

End Sub

'生成棱形灯花按钮
Private Sub cmdGenDelSurf_Click()
    
    '设置一些初始参数
    Init
    
    '选择参考元素
    SetRef
    
    '若用户完成了选择则生成灯花
    If DefineFinished Then
        
        '隐藏参数设置窗口并显示生成进度窗口
        Me.Hide
        frmProgress.Show
        frmProgress.lblProgress.Caption = "正在初始化..."
        frmProgress.Repaint
        DoEvents
        
        '设定灯花生成参数
        SetPar
        
        '创建基础元素
        CreateBaseElement
        
        frmProgress.lblProgress.Caption = "正在生成交线..."
        frmProgress.Repaint
        DoEvents
        
        '创建交线
        CreateIntersection
        
        frmProgress.lblProgress.Caption = "正在生成三角灯花..."
        frmProgress.Repaint
        DoEvents
        
        '创建棱形灯花
        CreateTriSurf
    
        '关闭进度窗口，重新显示参数设置窗口
        Unload frmProgress
        Me.Show
    
    End If

End Sub

Private Sub UserForm_Initialize()
    Me.Move Screen.Width - Me.Width - 1000, Screen.Height - Me.Height - 1000
    MakeMeOnTop Me.hwnd
End Sub