求一个改变铜皮的skill

南歌岁月

求一个改变铜皮的skill

outline9

axlCmdRegister("ClineToShape" 'ClineToShape)
axlSetAlias("c2s" "ClineToShape")
procedure( ClineToShape(@optional (cline nil))
prog((poly clayer cnet cparent mark)
   unless(cline
      axlSetFindFilter(?enabled '("all") ?onButtons '("noall" "clines"))
      cline = car(axlGetSelSet(axlSingleSelectPoint()))
   )
   poly = car(axlPolyOperation(axlPolyFromDB(cline ?endCapType 'OCTAGON) nil 'OR))
   clayer = cline->layer
   cnet = cline->net
   cparent = cline->parent
   mark = axlDBTransactionStart()
   axlDeleteObject(cline)
   if(axlDBCreateShape(poly t clayer cnet cparent) then
      axlDBTransactionCommit(mark)
   else
      axlDBTransactionOops(mark)
   )
))

南歌岁月

outline9 发表于 2020-8-25 09:16
axlCmdRegister("ClineToShape" 'ClineToShape)
axlSetAlias("c2s" "ClineToShape")
procedure( ClineToS ...

你这个是线变成铜皮或者铜皮变成线，我想要的是可以修改铜皮网络的SKILL

max192

outline9 发表于 2020-8-25 09:16
axlCmdRegister("ClineToShape" 'ClineToShape)
axlSetAlias("c2s" "ClineToShape")
procedure( ClineToS ...

17.2的能用吗  我的怎么用不了  怎么用呢

刘平

附件这个..........