frmdhgen.frm

CATIA二次开发

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmDHGen 
   Caption         =   "灯罩表面灯花自动生成"
   ClientHeight    =   4035
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5610
   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_Step1 Then
        
        SetRefH
        
        Me.Repaint
        DoEvents
        
        If DefineFinished_Step2 Then
            
            Me.Hide
            frmProgress.Show
            
            frmProgress.lblProgress.Caption = "正在初始化..."
            frmProgress.Repaint
            DoEvents
        
            SetPar
            CreateBaseElement
            
            frmProgress.lblProgress.Caption = "正在生成交点..."
            frmProgress.Repaint
            DoEvents
            
            CreateIntersection
            
            frmProgress.lblProgress.Caption = "正在生成交点...已完成25%"
            frmProgress.Repaint
            DoEvents
            
            CreateIntersectionH
            
            frmProgress.lblProgress.Caption = "正在生成交点...已完成50%"
            frmProgress.Repaint
            DoEvents
            
            CreateIntersectionM
            
            frmProgress.lblProgress.Caption = "正在生成交点...已完成75%"
            frmProgress.Repaint
            DoEvents
            
            CreateIntersectionMH
            
            frmProgress.lblProgress.Caption = "正在生成构造线..."
            frmProgress.Repaint
            DoEvents
            
            CreateCircleCurve
            
            frmProgress.lblProgress.Caption = "正在生成鱼眼..."
            frmProgress.Repaint
            DoEvents
            
            CreateSurf
            
            Unload frmProgress
            Me.Show
            
        End If
    
    End If

End Sub

'仅生成线按钮
Private Sub cmdGenCurve_Click()
    
    Init
    SetRef
    
    If DefineFinished_Step1 Then
        
        SetRefH
        
        Me.Repaint
        DoEvents
        
        If DefineFinished_Step2 Then
            
            Me.Hide
            frmProgress.Show
            
            frmProgress.lblProgress.Caption = "正在初始化..."
            frmProgress.Repaint
            DoEvents
        
            SetPar
            CreateBaseElement
            
            frmProgress.lblProgress.Caption = "正在生成交点..."
            frmProgress.Repaint
            DoEvents
            
            CreateIntersection
            
            frmProgress.lblProgress.Caption = "正在生成交点...已完成25%"
            frmProgress.Repaint
            DoEvents
            
            CreateIntersectionH
            
            frmProgress.lblProgress.Caption = "正在生成交点...已完成50%"
            frmProgress.Repaint
            DoEvents
            
            CreateIntersectionM
            
            frmProgress.lblProgress.Caption = "正在生成交点...已完成75%"
            frmProgress.Repaint
            DoEvents
            
            CreateIntersectionMH
            
            frmProgress.lblProgress.Caption = "正在生成构造线..."
            frmProgress.Repaint
            DoEvents
            
            CreateCircleCurve
            
            Unload frmProgress
            Me.Show
            
        End If
    
    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