查看完整内容
比较麻烦,仅供参考
foreach(a geGetSelSet()
viaDef=a~>viaHeader~>viaDef
viaPt=a~>origin
viaOrient=a~>orient
newParams=nil
foreach(b a~>viaHeader~>overrideParams
case(car(b)
("layer1Enc" || "layer2Enc"
newParam=list(cadr(cadr(b)) car(cadr(b)))
newParams=append1(newParams list(car(b) newParam))
)
(t
newParams=append1(newParams b)
)
)
)
dbCreateVia(geGetEditCellView ...