skill 问题

sushiping

使用skill ，实现下面的操作
地址线的label：A<11>,A<22>,A<33> 使这三个label 的数字部分都加上20,得到A<31>,A<42>,A<53>，并替换掉之前的label?

飞翔的鸟

遍历cv下所有的shape，找到theLabel为需要替换的内容，进行计算并替换

yulizi

1. procedure(addNum(number)
   
2.   let((str num1 num2)
   
3.     foreach(label geGetSelSet()
   
4.       pcreMatchp("(.*)([\\[|<])([0-9]+)([\\]|>])" label~>theLabel)
   
5.       str = pcreSubstitute("\\1")
   
6.       num1 = pcreSubstitute("\\3")
   
7.       num2 = artMakeString(evalstring(num1) + number)
   
8.       label~>theLabel = strcat(str pcreSubstitute("\\2") num2 pcreSubstitute("\\4"))
   
9.     )
   
10.   )
    
11. )
    

复制代码

acrofoxAgain

1. let((text p)
   
2.     text = label~>theLabel
   
3.     p = parseString(text "<>")
   
4.     label~>theLabel = sprintf(nil "%s<%d>" car(p) evalstring(cadr(p)) + 20)
   
5. )
   
6.    
   

复制代码