comm.bas

《管状换热器计算机辅助设计系统ExhCAD绘图系统(版本:1.01a Final)》为自由软件

Attribute VB_Name = "comm"
Public Const DeTable = "\data\detable.hb"
Public Const Title = "\data\title.hb"
Public Const ExhCADDwg = "\data\exhcad.dwg"
Public Const ExhCADBigFontFile = "\data\gbcbig.shx"


'CAD画图用的数据
Public Type ExhDesign
   ColNum As Integer '列数
   LinNum As Integer '排数
   PipLen As Double '管长
   PipDiameter As Double '外径
   PipInDiameter As Double '内径
   RouteNum As Integer '行程数
   HorizonBetweenPipeDistance As Double '横向间距
   VeriticalBetweenPipeDistance As Double '纵向间距
   PipeNum As Integer '每行程的管数
   DistanceBetweenRoute1 As Double '两行程之间的偶数距离
   DistanceBetweenRoute2 As Double '两行程之间的奇数距离
End Type




'调用AutoCAD R14 类库
Public Acadapp As Object 'ACAD应用程序对象
Public Acaddoc As Object 'ACAD文档对象
Public MoSpace As Object 'ACAD模型空间对象
Public Pvport As Object 'ACAD视图对象
Public AcadUtility As Object 'ACAD实用工具集对象
Public LnContinous As Object '细实线对象
Public LnCenter As Object '点划线对象
Public LnDash As Object '虚线对象
Public TxStyle As Object
Public DmStyle As Object
Public Design As ExhDesign '画图数据