createPathShield.il

YuSHL · 发表于 2024-6-18 19:20:30

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

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

x

本帖最后由 YuSHL 于 2024-6-19 13:47 编辑

;;Function : createPathShield()
;;center Path lpp : leGetEntryLayer() ;; Palette Layers seleted

登录/注册后可看大图

fengrlove · 发表于 2024-6-18 21:13:26

谢谢

haydnzhang · 发表于 2024-8-15 15:42:26

亲测好用。

aszx · 发表于 2024-8-17 22:31:06

谢谢分享

joeyang · 发表于 2024-10-14 17:40:29

thanks

YuSHL · 发表于 2024-11-5 13:59:23

本帖最后由 YuSHL 于 2024-11-5 14:00 编辑

已修改，添加points转换到当前层的功能
;;|###########################################################################|
;;| |
;;|Function : createPathShield() |
;;|center Path lpp : leGetEntryLayer() ;

alette Layers seleted |
;;| |
;;|###########################################################################|
hiSetBindKey("Layout" "Ctrl<Key>Z" "createPathShield()")
procedure(createPathShield()

unless(boundp('createPathShieldForm)
createPathShieldFormDone()
)
enterPath(
?form eval(createPathShieldForm)
?doneProc "createPathShieldDone"
?pathWidth 1.0
)
)

procedure(createPathShieldDone(win done pts)
when(done
createPathShield_MainDone(
geGetEditCellView()
createPathShieldForm
pts
)
);endwhen
)

procedure(createPathShieldFormDone()
prog((cv width mode leftW leftSep leftLpp rightW rightSep
rightLpp frame1 frame2)
unless(cv = geGetEditCellView()
return(warn("Cannot get current cellView - %A\n" cv))
);unless
width = hiCreateFloatField(
?name 'width
?prompt "center Path W"
?value 0.38
)
mode = hiCreateRadioField(
?name 'mode
?prompt "Lpp select"
?choices list("SameASCenter" "DiffFromCenter")
?value "SameASCenter"
?callback list("createPathShield_BtnCB(createPathShieldForm)")
)
leftW = hiCreateFloatField(
?name 'leftW
?prompt "left W"
?value 0.38
)
leftSep = hiCreateFloatField(
?name 'leftSep
?prompt "left Space"
?value 0.30
)
leftLpp = leCreateLayerField(
'leftLpp
?callback ""
?techFile techGetTechFile(cv)
?syncedPaletteWindow hiGetCurrentWindow()
?enabled nil
)
rightW = hiCreateFloatField(
?name 'rightW
?prompt "right W"
?value 0.38
)
rightSep = hiCreateFloatField(
?name 'rightSep
?prompt "right Space"
?value 0.30
)
rightLpp = leCreateLayerField(
'rightLpp
?callback ""
?techFile techGetTechFile(cv)
?syncedPaletteWindow hiGetCurrentWindow()
?enabled nil
)
frame1 = hiCreateFrameField(?name 'frame1 ?labelText "left Path")
frame2 = hiCreateFrameField(?name 'frame2 ?labelText "right Path")

createPathShieldForm = hiCreateAppForm(
?name 'createPathShieldForm
?formTitle "createPathShieldForm"
?formType 'options
?buttonLayout 'HideCancel ;OKCancelApply
?minSize 320:300
?callback ""
?fields list(
list(width 10:10 300:30 100)
list(mode 10:50 300:30 100)
list(frame1 5:80 310:125 100)
list(leftW 10:90 300:30 100)
list(leftSep 10:130 300:30 100)
list(leftLpp 10:170 300:30 100)
list(frame2 5:210 310:125 100)
list(rightW 10:220 300:30 100)
list(rightSep 10:260 300:30 100)
list(rightLpp 10:300 300:30 100)
)
)
;hiDisplayForm('createPathShieldForm)
return(t)
)
)

procedure(createPathShield_MainDone(cv form pts)
prog((lpp )
unless(cv
return(warn("

lease open Layout cellView"))
);unless
when(cv->mode == "r"
return(warn("Current cellView is %A mode\n" cv->mode))
);when

lpp = leGetEntryLayer()
width = form->width->value

if(form->mode->value ==  "SameASCenter" then
leftLpp = lpp
rightLpp = lpp
else
leftLpp = parseString(form->leftLpp->value)
rightLpp = parseString(form->rightLpp->value)
);end if
leftW = form->leftW->value
leftSep = form->leftSep->value
rightW = form->rightW->value
rightSep = form->rightSep->value

createPathShield_Main(
cv
lpp
width
createPathShield_TransformBox(pts)
leftLpp
leftW
leftSep
rightLpp
rightW
rightSep)
return(t)
)
)

procedure(createPathShield_BtnCB(form "r")
let((mode)
when(form
mode = form->mode->value
case(mode
("SameASCenter"
form->leftLpp->enabled = nil
form->rightLpp->enabled = nil
)
("DiffFromCenter"
form->leftLpp->enabled = t
form->rightLpp->enabled = t
)
)
);end when
t
)
)

;;
procedure(createPathShield_Main(cv lpp width pts leftLpp leftW leftSep rightLpp rightW rightSep)
let((Path)
Path = rodCreatePath(
?layer lpp
?cvId cv
?pts pts
?width width
?justification "center"
?offsetSubPath list(
list(
?layer leftLpp
?width leftW
?sep leftSep
?justification "left"
?beginOffset 0.0
?endOffset 0.0
)
list(
?layer rightLpp
?width rightW
?sep rightSep
?justification "right"
?beginOffset 0.0
?endOffset 0.0
)
);end offset sub path
);end rodCreatePath
rodUnNameShape(Path)
);end let
);end proc

;;
procedure(createPathShield_TransformBox(@optional pts(enterBox()) "l")
      when(pts
      foreach(mapcar x pts
         geWindowToEditPoint(hiGetCurrentWindow() x)
      );end foreach
);end when
);end proc