lixuequxian.bas

计算力学特性曲线

Attribute VB_Name = "lixuequxian"
Public AcadApp As AcadApplication
Public AcadDocs As AcadDocuments
Public AcadDoc As AcadDocument
Public MoSpace As AcadModelSpace
Public ExcelApp As Excel.Application
Public Excelworkbook As Workbook
Public Excelsheet As Worksheet
Public filename1 As String

Sub Tension()

    Load ZLHCForm
    ZLHCForm.Show
    
End Sub