schReplaceLabels

YuSHL · 发表于 2024-10-23 19:59:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

sch中搜索替换labels
/**********************************************************************************************************
Function YschChangeLabel()
**********************************************************************************************************/
procedure(YschChangeLabel()
let((labelText newLabelText obj)
labelText = hiCreateStringField(
?name 'labelText
?prompt "Search labels:"
?value ""
)
newLabelText = hiCreateStringField(
?name 'newLabelText
?prompt "Replace to:"
?value ""
)
YschChangeLabelForm = hiCreateAppForm(
?name 'YschChangeLabelForm
?formTitle "Replace labels text form"
?fields list(
list(labelText 0:0 400:30 100)
list(newLabelText 0:50 400:30 100)
)
?buttonLayout 'OKCancelApply
?callback "YschChangeLabelCB(hiGetCurrentForm())"
?minSize 420:100
)
when(geGetSelSet() && css()->objType=="label"
YschChangeLabelForm->labelText->value = css()->theLabel
)
hiDisplayForm('YschChangeLabelForm)
t
)
)

procedure(YschChangeLabelCB(form @optional cv(geGetEditCellView()) "rd")
prog((labelText newLabelText)
unless(form
warn("Can not get form database id - %A" form)
return()
)
when(form
labelText = form->labelText->value
newLabelText = form->newLabelText->value
YschChangeLabelMain(labelText newLabelText)
)
return(t)
)
)

procedure(YschChangeLabelMain(labelText newLabelText @optional cv(geGetEditCellView()) "ttd")
prog((objList)
when(artBlankString(labelText) || artBlankString(newLabelText)
warn("The argument#1 and argument#2 can not be nil or blank string - %A, %A\n" labelText newLabelText)
return()
)
unless(cv&&cv->mode!="r"
warn("Can not get cellView id or current cellView is readable\n")
return()
)
if(geGetSelSet() then
objList = geGetSelSet()
else
objList = cv->shapes
warn("Not selected any objects in current cellView - %A, then search for all labels in current cellView\n" geGetSelSet())
)
objList = setof(x objList x->objType=="label")
unless(objList
warn("Can not get any labels in current cellview - %A\n" objList)
return()
)
objList = setof(x objList x->theLabel==labelText)
unless(objList
warn("There is not any labels - %A named - %A" objList labelText)
return()
)
foreach(obj objList
obj->theLabel = newLabelText
)
return(t)
)
)