本站微信 收藏本站 设为首页
 找回密码
 注册
关于网站域名变更的通知
EDA365电子论坛网»电子社区 › EDA工具&PCB设计 › Allegro Skill开发 › 【求解答】帮忙看一段代码
返回列表 发新帖
查看: 1072|回复: 7
打印 上一主题 下一主题

【求解答】帮忙看一段代码

[复制链接]
defir

该用户从未签到
跳转到指定楼层
1#
发表于 2016-4-27 22:55 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录！

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

x
本帖最后由 defir 于 2016-4-28 14:00 编辑

看了几个代码想到一个给PIN和VIA添加KEEPOUT的方式。
但是运行右键done操作不能结束命令，会继续执行完while后才能结束，也就是要done三次才能真正结束。
求帮忙改进代码，谢谢！
代码如下：

  2. axlCmdRegister("Create_Keepout" 'Create_Keepout ?cmdType "interactive" ?doneCmd 'Create_Keepout_done ?cancelCmd 'Create_Keepout_Cancel)
  3. defun(Create_Keepout ()
  4.       
  5.       let((mypopup clinedbid polydbid dia)
  6.       axlUIWPrint(nil "Create_Keepout V0.8")
  7.       axlUIWPrint(nil "Written by df")
  8.           notdone = t
  9.           
  10.     mypopup = axlUIPopupDefine(nil
  11.                            (list (list "Done" 'Create_Keepout_done)
  12.                                 (list "Cancel" 'Create_Keepout_Cancel)))
  13.     axlUIPopupSet(mypopup)
  14.         dia=atoi(axlUIPrompt("Enter Diameter" "50")) ;用弹窗的方式获取自定义的直径
  15.         while(notdone
  16.         FirstPin = nil
  17.         SecondPin = nil
  18.         axlClearSelSet()
  19.         axlSetFindFilter(?enabled list("noall" "VIAS" "pins") ?onButtons list("noall" "VIAS" "pins"))
  20.         axlUIWPrint(nil "Please Select First.....")
  21.                 axlSelect()
  22.         FirstPin = car(axlGetSelSet())
  23.         axlClearSelSet()
  24.         axlHighlightObject(FirstPin)
  25.         axlSetFindFilter(?enabled list("noall" "VIAS" "pins") ?onButtons list("noall" "VIAS" "pins"))
  26.         axlUIWPrint(nil "Please Select Second.....")
  27.                 axlSelect()
  28.         SecondPin = car(axlGetSelSet())
  29.         axlClearSelSet()
  30.         axlHighlightObject(SecondPin)
  31.                  if(FirstPin != nil && SecondPin != nil then
  32.                    clinedbid=caar(axlDBCreateLine(list(FirstPin->xy SecondPin->xy),dia,"Etch/top"));Create Cline on the top.
  33.                    polydbid=axlPolyFromDB(clinedbid ?endCapType 'ROUND);Poly
  34.            axlDeleteObject(clinedbid)
  35.                    df_shape=axlDBCreateShape(car(polydbid) t "Route Keepout/all" nil)
  36.                    axlDBAddProp(car(df_shape),  list("ROUTES_ALLOWED"))
  37.                    axlDBAddProp(car(df_shape),  list("VIAS_ALLOWED"))
  38.                    else
  39.                    axlUIWPrint(nil "Please Select via or pin....")
  40.                     );end if
  41.                         axlDehighlightObject(FirstPin)
  42.             axlDehighlightObject(SecondPin)
  43.                         );end while
  44.         ));end defun
  45.        
  46. defun(Create_Keepout_done ()
  47.                 notdone = nil
  48.                 axlFinishEnteRFun()
  49.                 axlUIWPrint(nil "- Done -")
  50.           )
  51. defun(Create_Keepout_Cancel ()
  52.                 notdone = nil
  53.                 axlCancelEnterFun()
  54.                 axlUIWPrint(nil "- Cancel -")
  55.      )
复制代码

keepout.zip

941 Bytes, 阅读权限: 30, 下载次数: 8, 下载积分: 贡献 -30 , 威望 -10

skill源码

下载资料威望不够？点击查看获取威望的N种方法>>
回复

举报

EDA365微信号及QQ群号！
deargds

该用户从未签到
2#
发表于 2016-4-28 14:02 | 只看该作者
一种改法，将axlSelect改为axlSingleSelectPoint,另外在done cancel回调函数中将菜单清除axlUIPopupSet(nil),　另外axlSelect函数已经是多选操作，不需要调用两次。

  2. axlCmdRegister("Create_Keepout" 'Create_Keepout ?cmdType "interactive" ?doneCmd 'Create_Keepout_done ?cancelCmd 'Create_Keepout_Cancel)
  3. defun(Create_Keepout ()
  4.       
  5.       let((mypopup clinedbid polydbid dia)
  6.       axlUIWPrint(nil "Create_Keepout V0.8")
  7.       axlUIWPrint(nil "Written by df")
  8.           notdone = t
  9.           
  10.     mypopup = axlUIPopupDefine(nil
  11.                            (list (list "Done" 'Create_Keepout_done)
  12.                                 (list "Cancel" 'Create_Keepout_Cancel)))
  13.     axlUIPopupSet(mypopup)
  14.         dia=atoi(axlUIPrompt("Enter Diameter" "50")) ;用弹窗的方式获取自定义的直径
  15.         while(notdone
  16.         FirstPin = nil
  17.         SecondPin = nil
  18.         axlClearSelSet()
  19.         axlSetFindFilter(?enabled list("noall" "VIAS" "pins") ?onButtons list("noall" "VIAS" "pins"))
  20.         axlUIWPrint(nil "Please Select First.....")
  21.                 axlSingleSelectPoint();change
  22.         FirstPin = car(axlGetSelSet())
  23.         axlClearSelSet()
  24.         axlHighlightObject(FirstPin)
  25.         axlSetFindFilter(?enabled list("noall" "VIAS" "pins") ?onButtons list("noall" "VIAS" "pins"))
  26.         axlUIWPrint(nil "Please Select Second.....")
  27.                 axlSingleSelectPoint();change
  28.         SecondPin = car(axlGetSelSet())
  29.         axlClearSelSet()
  30.         axlHighlightObject(SecondPin)
  31.                  if(FirstPin != nil && SecondPin != nil then
  32.                    clinedbid=caar(axlDBCreateLine(list(FirstPin->xy SecondPin->xy),dia,"Etch/top"));Create Cline on the top.
  33.                    polydbid=axlPolyFromDB(clinedbid ?endCapType 'ROUND);Poly
  34.            axlDeleteObject(clinedbid)
  35.                    df_shape=axlDBCreateShape(car(polydbid) t "Route Keepout/all" nil)
  36.                    axlDBAddProp(car(df_shape),  list("ROUTES_ALLOWED"))
  37.                    axlDBAddProp(car(df_shape),  list("VIAS_ALLOWED"))
  38.                    else
  39.                    axlUIWPrint(nil "Please Select via or pin....")
  40.                     );end if
  41.                         axlDehighlightObject(FirstPin)
  42.             axlDehighlightObject(SecondPin)
  43.                         );end while
  44.         ));end defun
  45.        
  46. defun(Create_Keepout_done ()
  47.                 notdone = nil
  48.                 axlFinishEnterFun()
  49.                                 axlUIPopupSet(nil);change
  50.                 axlUIWPrint(nil "- Done -")
  51.           )
  52. defun(Create_Keepout_Cancel ()
  53.                 notdone = nil
  54.                 axlCancelEnterFun()
  55.                                 axlUIPopupSet(nil);change
  56.                 axlUIWPrint(nil "- Cancel -")
  57.      )
复制代码



点评

defir
感谢版主的解答。 之前也用的是的axlSingleSelectPoint，但是发现邮件菜单出不来。现在改了还是这个问题。 [attachimg]112125[/attachimg][attachimg]112126[/attachimg]  详情 回复 发表于 2016-4-28 19:14

下载资料威望不够？点击查看获取威望的N种方法>>
回复 支持 反对

举报

defir

该用户从未签到
3#
 楼主| 发表于 2016-4-28 19:14 | 只看该作者
deargds 发表于 2016-4-28 14:02
一种改法，将axlSelect改为axlSingleSelectPoint,另外在done cancel回调函数中将菜单清除axlUIPopupSet(nil ...

感谢版主的解答。
之前也用的是的axlSingleSelectPoint，但是发现邮件菜单出不来。现在改了还是这个问题。

点评

deargds
把axlUIPopupSet(mypopup)放到while里面就行了  详情 回复 发表于 2016-4-29 08:56

下载资料威望不够？点击查看获取威望的N种方法>>
回复 支持 反对

举报

deargds

该用户从未签到
4#
发表于 2016-4-29 08:56 | 只看该作者
本帖最后由 deargds 于 2016-4-29 09:56 编辑
defir 发表于 2016-4-28 19:14
感谢版主的解答。
之前也用的是的axlSingleSelectPoint，但是发现邮件菜单出不来。现在改了还是这个问题 ...

把axlUIPopupSet(mypopup)放到while里面就行了


  2. axlCmdRegister("Create_Keepout" 'Create_Keepout ?cmdType "interactive" ?doneCmd 'Create_Keepout_done ?cancelCmd 'Create_Keepout_Cancel)
  3. defun(Create_Keepout ()
  4.       
  5.       let((mypopup clinedbid polydbid dia)
  6.       axlUIWPrint(nil "Create_Keepout V0.8")
  7.       axlUIWPrint(nil "Written by df")
  8.           notdone = t
  9.           
  10.     mypopup = axlUIPopupDefine(nil
  11.                            (list (list "Done" 'Create_Keepout_done)
  12.                                 (list "Cancel" 'Create_Keepout_Cancel)))
  13.    
  14.         dia=atoi(axlUIPrompt("Enter Diameter" "50")) ;用弹窗的方式获取自定义的直径
  15.         while(notdone
  16.                 axlUIPopupSet(mypopup)
  17.         FirstPin = nil
  18.         SecondPin = nil
  19.         axlClearSelSet()
  20.         axlSetFindFilter(?enabled list("noall" "VIAS" "pins") ?onButtons list("noall" "VIAS" "pins"))
  21.         axlUIWPrint(nil "Please Select First.....")
  22.                 axlSingleSelectPoint()
  23.         FirstPin = car(axlGetSelSet())
  24.         axlClearSelSet()
  25.         axlHighlightObject(FirstPin)
  26.         axlSetFindFilter(?enabled list("noall" "VIAS" "pins") ?onButtons list("noall" "VIAS" "pins"))
  27.         axlUIWPrint(nil "Please Select Second.....")
  28.                 axlSingleSelectPoint()
  29.         SecondPin = car(axlGetSelSet())
  30.         axlClearSelSet()
  31.         axlHighlightObject(SecondPin)
  32.                  if(FirstPin != nil && SecondPin != nil then
  33.                    clinedbid=caar(axlDBCreateLine(list(FirstPin->xy SecondPin->xy),dia,"Etch/top"));Create Cline on the top.
  34.                    polydbid=axlPolyFromDB(clinedbid ?endCapType 'ROUND);Poly
  35.            axlDeleteObject(clinedbid)
  36.                    df_shape=axlDBCreateShape(car(polydbid) t "Route Keepout/all" nil)
  37.                    axlDBAddProp(car(df_shape),  list("ROUTES_ALLOWED"))
  38.                    axlDBAddProp(car(df_shape),  list("VIAS_ALLOWED"))
  39.                    else
  40.                    axlUIWPrint(nil "Please Select via or pin....")
  41.                     );end if
  42.                         axlDehighlightObject(FirstPin)
  43.             axlDehighlightObject(SecondPin)
  44.                         );end while
  45.         ));end defun
  46.        
  47. defun(Create_Keepout_done ()
  48.                 notdone = nil
  49.                 axlFinishEnterFun()
  50.                                 axlUIPopupSet(nil)
  51.                 axlUIWPrint(nil "- Done -")
  52.           )
  53. defun(Create_Keepout_Cancel ()
  54.                 notdone = nil
  55.                 axlCancelEnterFun()
  56.                                 axlUIPopupSet(nil)
  57.                 axlUIWPrint(nil "- Cancel -")
  58.      )
复制代码


点评

defir
感谢解答！昨晚把这个程序改好了，目前发现的BUG已经修复。感谢版主的支持！  详情 回复 发表于 2016-4-29 12:08

下载资料威望不够？点击查看获取威望的N种方法>>
回复 支持 反对

举报

defir

该用户从未签到
5#
 楼主| 发表于 2016-4-29 12:08 | 只看该作者
deargds 发表于 2016-4-29 08:56
把axlUIPopupSet(mypopup)放到while里面就行了

感谢解答！昨晚把这个程序改好了，目前发现的BUG已经修复。感谢版主的支持！

下载资料威望不够？点击查看获取威望的N种方法>>
回复 支持 反对

举报

bingshuihuo

该用户从未签到
7#
发表于 2018-5-23 10:05 | 只看该作者
缺少是好帖子

下载资料威望不够？点击查看获取威望的N种方法>>
回复 支持 反对

举报

王开鑫55

该用户从未签到
8#
发表于 2018-10-17 13:49 | 只看该作者
发现，避让变大了后，在设置小直径就可以了，也就是说避让变大不能变小

下载资料威望不够？点击查看获取威望的N种方法>>
回复 支持 反对

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-6-9 16:53 , Processed in 0.109375 second(s), 33 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表