home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / DachTest.bas < prev    next >
BASIC Source File  |  1998-09-23  |  2KB  |  87 lines
  1. Attribute VB_Name = "DachTest"
  2. Option Explicit
  3.  
  4. Public Sub Main()
  5.  
  6.     Const dMinX As Double = -4
  7.     Const dMaxX As Double = 4
  8.     Const dMinY As Double = -4
  9.     Const dMaxY As Double = 4
  10.     
  11.     Dim prog As New ArCon.ArCon
  12.  
  13.     prog.StartMe 0, ""
  14.     
  15.     If prog.Mode = 0 Then
  16.         prog.CreateProject Nothing
  17.     End If
  18.     
  19.     Dim constr As ArCon.RoofConstruction
  20.     Set constr = prog.NewRoofConstruction()
  21.     With constr
  22.         .SetzeAnzahlKonturPunkte 4
  23.         
  24.         .SetzeKonturPunkt 1, dMinX, dMinY
  25.         .SetzeUeberstand 1, 0.5
  26.         .SetzeAnzahlKnicke 1, 1
  27.         .SetzeKnickNeigung 1, 1, 45
  28.         .SetzeKnickHoehe 1, 1, 0.5
  29.         
  30.         .SetzeKonturPunkt 2, dMaxX, dMinY
  31.         .SetzeUeberstand 2, 0.5
  32.         .SetzeAnzahlKnicke 2, 2
  33.         .SetzeKnickNeigung 2, 1, 60
  34.         .SetzeKnickHoehe 2, 1, 2.6
  35.         .SetzeKnickNeigung 2, 2, 90
  36.         .SetzeKnickHoehe 2, 2, 3.5
  37.         
  38.         .SetzeKonturPunkt 3, dMaxX, dMaxY
  39.         .SetzeUeberstand 3, 0.5
  40.         .SetzeAnzahlKnicke 3, 1
  41.         .SetzeKnickNeigung 3, 1, 45
  42.         .SetzeKnickHoehe 3, 1, 0.5
  43.         
  44.         .SetzeKonturPunkt 4, dMinX, dMaxY
  45.         .SetzeUeberstand 4, 0.5
  46.         .SetzeAnzahlKnicke 4, 2
  47.         .SetzeKnickNeigung 4, 1, 60
  48.         .SetzeKnickHoehe 4, 1, 2.6
  49.         .SetzeKnickNeigung 4, 2, 90
  50.         .SetzeKnickHoehe 4, 2, 3.5
  51.         
  52.         .DickeKonstruktion = 0.3
  53.         .DickeEindeckung = 0.12
  54.         .MitTraufDetails = True
  55.         .TraufDetailTyp = 2
  56.         .MitKehlbalken = False
  57.         .MaxSparrenAbstand = 1
  58.         .SparrenDicke = 0.1
  59.     End With
  60.     
  61.     Dim r As ArCon.Roof
  62.     Set r = constr.CreateRoof(prog.CurrentStory)
  63.     
  64.     Dim i As Long, num As Long, minPnts As Long, maxPnts As Long
  65.     num = prog.AvailableGauben
  66.     For i = 0 To num - 1
  67.         prog.GetGaubenConstructionRange i, minPnts, maxPnts
  68.         Debug.Print "Gaube Typ # " & i & ", Name = " & prog.GetGaubenName(i) _
  69.                     & ", minimal " & minPnts & ", maximal " & maxPnts & " Eckpunkte"
  70.     Next
  71.     
  72.     Dim contur As Point2DCollection
  73.     Set contur = prog.NewPoint2DCollection
  74.     contur.AddPoint -2.2, -3.7
  75.     contur.AddPoint 2.2, -3.7
  76.     r.CreateGaube 3, contur
  77.     
  78.     Dim rw As ArCon.RoofWindow
  79.     Set rw = prog.NewRoofWindow(13)
  80.     r.PlaceWindow rw, -1.65, 3.14
  81.     Set rw = prog.NewRoofWindow(10)
  82.     r.PlaceWindow rw, 2.35, 3.14
  83.     
  84.     prog.EndMe
  85. End Sub
  86.  
  87.