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.    
   

复制代码

joonjie

飞翔的鸟 发表于 2024-11-29 09:52
遍历cv下所有的shape，找到theLabel为需要替换的内容，进行计算并替换

procedure(delLabel(name)
  let((cv shapes shape)
        cv = deGetEditCellView()
                shapes = cv~>shapes
        foreach(shape shapes
                            if (shape~>objType=="label" && shape~>theLabel == name then
                                        schDelete(shape)
                                )
        )

     )
)

大佬您好！这是我写的一个删除指定Label名字的skill脚本但是运行报错：if 返回值为nil

飞翔的鸟

joonjie 发表于 2025-1-2 09:03
procedure(delLabel(name)
  let((cv shapes shape)
        cv = deGetEditCellView()

大佬，不敢当。skill语言有一个特性，他是从lisp语言过来的，你的错误是因为if后面有个空格，删除空格或者用lisp语法(if xxxx这样写