VISSIM 5.30-05 User Manual

The COM Interface (Optional Module)
# Python Script sample for VISSIM
# Copyright (C) PTV AG. All rights reserved.
# SB, VR 2006-07-25
#
# This code demonstrates the use of the following interfaces for the simulation of a
# car park with access control and available free places information:
# - ISignalControllers and ISignalGroups
# - IDetectors: Use of the attributes PRESENCE and IMPULSE
# - IStaticObjects: Use of the attribute STATE to change 3D state during simulation time
#=======================================================
import win32com.client
#constants
#=======================================================
NAREAS = [0, 1, 2]
GREEN = 2 #signal group type #permanent green#
RED = 3 #signal group type #permanent red#
OPENEDTIME = 5 #opened barrier time
NPLACES = 11 #number of places
#=======================================================
#initialize global variables
#=======================================================
Sim = VISSIM.Simulation
SgCtrls = VISSIM.Net.SignalControllers
SgGrps = [SgCtrls.GetSignalControllerByNumber(i+1).SignalGroups.GetSignalGroupByNumber(1)
for i in NAREAS]
[SgGrps[i].SetAttValue("TYPE", RED) for i in NAREAS]
StObjs = VISSIM.Net.StaticObjects
Barriers = [StObjs.GetStaticObjectByName('Barrier0' + str(i+1) + '.v3d') for i in NAREAS]
[Barriers[i].SetAttValue("STATE", 0) for i in NAREAS]
BarrierOpening = [False for i in NAREAS]
BarrierClosing = [False for i in NAREAS]
Dets = [SgCtrls.GetSignalControllerByNumber(i+1).Detectors for i in NAREAS]
DetsIn = [Dets[i].GetDetectorByNumber(11) for i in NAREAS]
DetsPass = [Dets[i].GetDetectorByNumber(12) for i in NAREAS]
DetsOut = [Dets[i].GetDetectorByNumber(91) for i in NAREAS]
VehEntering = [False for i in NAREAS]
VehParked = [0 for i in NAREAS]
CtrName = [['Counter_P0' + str(i+1) + j + '.v3d' for i in NAREAS] for j in ['a', 'b']]
#=======================================================
#control detector for the entrance, pass and exit
#=======================================================
def ControlEntrances() :
#Through all entrances for i in NAREAS :
#if vehicle is on the entrance and no entrance is being processed
#then start enter process
if DetsIn[i].AttValue("PRESENCE") and not VehEntering[i] :
VehEntering[i] = True #start entrance process
BarrierOpening[i] = True #start open barrier process
#did the entering vehicle enter?
if VehEntering[i] and DetsPass[i].AttValue("PRESENCE") :
SgGrps[i].SetAttValue("TYPE", RED) #don't allow to enter
BarrierClosing[i] = True #start closing barrier
#=======================================================
#open and close barriers appropriately
#=======================================================
User Manual © PTV AG 2011 59