[求助]我需要统计所有Net不同线宽的总线长，应该用什么方式来储存这对数据

361553894

目前获取到的List格式为
((width1 length1) (width2 length2)...(widthn lengthn))
然后根据widthn是否相同，将lengthn相加
这个需要怎么实现？？
还有没有更好的方法来统计？？

Projectaker

支持一下

361553894

目前用的两种方法，都是可行的

1. TempList = nil
   
2. tmpList = nil
   
3. foreach(child Children
   
4.     when(child->objType == "path"
   
5.         segments = child->segments
   
6.         foreach(seg segments
   
7.             if(axlVersion('version) > 16 then
   
8.                 tmpList = append1(tmpList list(seg->width axlDBGetLength(seg)))
   
9.             else
   
10.                 tmpList = append1(tmpList list(seg->width wlGetSegLength(seg)))
    
11.             )
    
12.         )
    
13.     )
    
14. )
    
15. tmpList = sortcar(tmpList 'lessp)
    
16. temp = list(0,0)
    
17. foreach(tmp tmpList
    
18.      unless(car(tmp) == car(temp)
    
19.            TempList = append1(TempList temp)
    
20.            temp = list(0,0)
    
21.      )
    
22.      temp = list(car(tmp) cadr(temp) + cadr(tmp))
    
23. )
    
24. TempList = append1(TempList temp)
    
25. TempList = remove('(0,0) TempList)

复制代码

1. 
   
2. lw = makeTable("lw" 0)
   
3. foreach(child Children
   
4.       when(child->objType == "path"
   
5.             segments = child->segments
   
6.             foreach(seg segments
   
7.                  if(axlVersion('version) > 16 then
   
8.                      lw[seg->width] = axlDBGetLength(seg) + lw[seg->width]
   
9.                  else
   
10.                      lw[seg->width] = wlGetSegLength(seg) + lw[seg->width]
    
11.                  )
    
12.             )
    
13.       )
    
14. )  
    
15. TempList = tableToList(lw)
    
16. TempList = sortcar(TempList 'lessp)  

复制代码

361553894

betamelody 发表于 2015-11-3 17:32
lw = makeTable("lw" 0)
lw[linedbid->width] = linelen+lw[linedbid->width]

刚试了下，linedbid->width允许是小数，table好神奇啊。。。

361553894

betamelody 发表于 2015-11-3 17:32
lw = makeTable("lw" 0)
lw[linedbid->width] = linelen+lw[linedbid->width]

可我的linewidth可能是浮点数，不是interger，array[index]不是要求index是整数么？

betamelody

lw = makeTable("lw" 0)
lw[linedbid->width] = linelen+lw[linedbid->width]

361553894

betamelody 发表于 2015-11-3 13:08
以线宽为索引存到 table 中

TempList = nil
tmpList = sortcar(tmpList 'lessp)
temp = list(0,0)
foreach(tmp tmpList
    unless(car(tmp) == car(temp)
        TempList = append1(TempList temp)
        temp = list(0,0)
    )
    temp = list(car(tmp) cadr(temp) + cadr(tmp))
)
TempList = remove('(0,0) TempList)
这是我目前的做法，tmpList存储的是((width1 length1) (width2 length2)...(widthn lengthn))

发现问题了。。。最后一组不会添加到列表内。。。

361553894

betamelody 发表于 2015-11-3 13:08
以线宽为索引存到 table 中

table应该怎么使用？？这应该就是c语言中的指针吧？
在skill中不知道怎么使用

betamelody

以线宽为索引存到 table 中