Vissim4.3之API/SDK编程;Vissim编程;

vissim4.3 是德国PTV公司的一款微观交通模拟软件.

其可以模拟道路车辆,红绿灯运行,可以模拟3D的景象.我这里直说2D

在2D的一段道路上,有车在运动,如何获取车子的坐标信息呢??

根据Vissim文档,可以通过Vissim的COM编程接口进行编程,COM接口可以使用VB(s)/VC/Python/等所有支持COM的语言编程.

其步骤是:1 安装vissim软件,4.3很特殊,有个破解的license,但是要修改时间为2008年,具体可以到智能交通论坛下载.

2.安装VB,如果使用VBS可直接开始编程.我使用了VB6进行编程.(没办法,虽然老,但是无法替代啊.)

3.新建立VB工程,默认的exe就可以.

然后在工程->引用 ->浏览添加 C:\PTV_Vision\VISSIM430\Exe\vissim.exe 这个vissim的可执行文件(其也是COM Server的组件)

Vissim4.3之API/SDK编程;Vissim编程;

然后整一个按钮,双击开始添加代码

Dim vis     As vissim
Dim SIM     As Simulation
Dim vehins  As VehicleInputs
Dim vehin   As VehicleInput
Dim vehicles As vehicles
Dim vehicle  As vehicle

   Set vis = CreateObject("VISSIM.Vissim")                                     'NEW Vissim
    vis.LoadNet "C:\PTV_Vision\VB COM for VISSIM\Demo_VISSIM_CrossTraffic_INP\crossTraffic.inp"
    Set vehins = vis.Net.VehicleInputs
    Set vehicles = vis.Net.vehicles
    Set SIM = vis.Simulation
    For i = 1 To vehins.Count
        If True Then
            Set vehin = vehins(i)                                               'or vehins.Item(i)
            msgbox "VeHins.Count=(" & vehins.Count & ");i =" & i
            msgbox "VeHin.name=" & vehin.Name & vbCrLf _
            & "VeHin.ID=" & vehin.ID & vbCrLf _
            & "VeHin.AttValue(TIMEFROM)=" & vehin.AttValue("TIMEFROM") & vbCrLf _
            & "VeHin.AttValue(TIMEUNTIL)=" & vehin.AttValue("TIMEUNTIL") & vbCrLf _
            & "VeHin.AttValue(VOLUME)=" & vehin.AttValue("VOLUME") & vbCrLf & "==============================" & vbCrLf
        End If
    Next                                                                        'i
    For i = 0 To 1000
        SIM.RunSingleStep
        If vehicles.Count > 0 Then
            Call ShowAllVehicles
        End If
        vis.DoEvents
    Next
    SIM.Stop
    
    MsgBox "End() Success"

Sub showAllvehicles

    Dim j
    For j = 1 To vehicles.Count
        Set vehicle = vehicles(j)                                               'or vehicles.Item(i)


        msgbox "Vehicles.count=(" & vehicles.Count & ");j=" & j
        msgbox "vehicle.name=" & vehicle.Name
        msgbox "vehicle.ID=" & vehicle.ID
        msgbox "vehicle.AttValue(POINT).X=" & vehicle.AttValue("POINT").X
        msgbox "vehicle.AttValue(POINT).Y=" & vehicle.AttValue("POINT").Y
        msgbox "vehicle.AttValue(POINT).Z=" & vehicle.AttValue("POINT").Z


        Set vehicle = Nothing
    Next          
End Sub

大约就是这个样子.循环是相当的多的....

仅限于做少量的测试.