【visum工作笔记】之六

最新推荐文章于 2014-05-13 08:48:26 发布

wjm_21

最新推荐文章于 2014-05-13 08:48:26 发布

阅读量781

点赞数

CC 4.0 BY-SA版权

分类专栏： PY VBA VISUM 文章标签： COM VPH macro

本文链接：https://blog.youkuaiyun.com/wjm21/article/details/11265381

反正也不加班，所以就把能想到的尽量记下，顺便温习一下。今天准备再画路网时，突然感觉很陌生，还是没有解决如何将dwg的图转成SHP的，这样就能导入到visum了。

不过我想到自己曾经将dwg格式的图当做backgroud导入到ver中，但是今天试了下没有成功，我怀疑是110中没有识别dwg中带有的geograph的信息，所有尝试使用了下130，结果成功了，这是第二是问题，为何不能导入背景了呢？

这是问题，我尚未解决，先放一边。还是谈谈原来的那个macro编程吧。

在模型中我们通常会用到PUT分配，而visum提供了一种capacity restraint的分配方法。

Sub SetTimeProfileTimePenalty()
  Dim Cap As Long
  Dim Sat As Double
  Dim Vol As Double
  Dim Time1 As Double
  Dim TPenalty As Double
  Dim OldTPenalty As Double
  
  CapFactor = ...
  PassImp = 0
  For Each tp In TProfiles.GetAll
    Cap = tp.attvalue(CapAttribute & "(AP)") * CapFactor
    Set Items = tp.TimeProfileItems
    For Each tpi In Items.GetAll
      Vol = tpi.attvalue("VOL(AP)")
      Time1 = tpi.attvalue("POSTRUNTIME") / 60
      If Cap = 0