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畫圖用的數(shù)據(jù)
Public Type ExhDesign
   ColNum As Integer '列數(shù)
   LinNum As Integer '排數(shù)
   PipLen As Double '管長
   PipDiameter As Double '外徑
   PipInDiameter As Double '內(nèi)徑
   RouteNum As Integer '行程數(shù)
   HorizonBetweenPipeDistance As Double '橫向間距
   VeriticalBetweenPipeDistance As Double '縱向間距
   PipeNum As Integer '每行程的管數(shù)
   DistanceBetweenRoute1 As Double '兩行程之間的偶數(shù)距離
   DistanceBetweenRoute2 As Double '兩行程之間的奇數(shù)距離
End Type




'調(diào)用AutoCAD R14 類庫
Public Acadapp As Object 'ACAD應(yīng)用程序?qū)ο?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 '畫圖數(shù)據(jù)