设为首页收藏本站
开启辅助访问 切换到宽版

Cadence Skill 论坛

 找回密码
 立即注册

QQ登录

只需一步，快速开始

搜索
Cadence Skill 论坛»首页 › 分享交流 › 代码展示 › 【求助】麻烦罗老师和大家指点
返回列表 发新帖
查看: 7346|回复: 7

[原创] 【求助】麻烦罗老师和大家指点

[复制链接]
defir
发表于 2016-4-28 14:06:39 | 显示全部楼层 |阅读模式
看了几个代码想到一个给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.      )
复制代码



回复

使用道具 举报

发表于 2016-4-28 17:07:30 | 显示全部楼层

  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.         axlSingleSelectPoint()
  23.         FirstPin = car(axlGetSelSet())
  24.         axlClearSelSet()
  25.         axlHighlightObject(FirstPin)
  26.         when(notdone && FirstPin
  27.         axlSetFindFilter(?enabled list("noall" "VIAS" "pins") ?onButtons list("noall" "VIAS" "pins"))
  28.         axlUIWPrint(nil "Please Select Second.....")
  29.         ;axlSelect()
  30.         axlSingleSelectPoint()
  31.         SecondPin = car(axlGetSelSet())
  32.         axlClearSelSet()
  33.         axlHighlightObject(SecondPin)
  34.                  if(FirstPin != nil && SecondPin != nil then
  35.                    clinedbid=caar(axlDBCreateLine(list(FirstPin->xy SecondPin->xy),dia,"Etch/top"));Create Cline on the top.
  36.                    polydbid=axlPolyFromDB(clinedbid ?endCapType 'ROUND);Poly
  37.            axlDeleteObject(clinedbid)
  38.                    df_shape=axlDBCreateShape(car(polydbid) t "Route Keepout/all" nil)
  39.                    axlDBAddProp(car(df_shape),  list("ROUTES_ALLOWED"))
  40.                    axlDBAddProp(car(df_shape),  list("VIAS_ALLOWED"))
  41.                    else
  42.                    axlUIWPrint(nil "Please Select via or pin....")
  43.                     );end if
  44.                         axlDehighlightObject(FirstPin)
  45.             axlDehighlightObject(SecondPin)
  46.                         );end while
  47.         ));end defun
  48.         )
  49.         
  50. defun(Create_Keepout_done ()
  51.                 notdone = nil
  52.                 axlFinishEnterFun()
  53.                 axlUIWPrint(nil "- Done -")
  54.           )
  55. defun(Create_Keepout_Cancel ()
  56.                 notdone = nil
  57.                 axlCancelEnterFun()
  58.                 axlUIWPrint(nil "- Cancel -")
  59.      )
复制代码



原因：
done之后程序一直停在axlSelect等待选择，需要选择两次。所以。。。。。
回复 支持 反对

使用道具 举报

defir
 楼主| 发表于 2016-4-28 19:37:58 | 显示全部楼层
vivienluo 发表于 2016-4-28 17:07
原因：
done之后程序一直停在axlSelect等待选择，需要选择两次。所以。。。。。

罗老师这个改法很棒！感谢！
回复 支持 反对

使用道具 举报

发表于 2016-4-28 21:50:17 | 显示全部楼层
defir 发表于 2016-4-28 19:37
罗老师这个改法很棒！感谢！

做好之后分享一下哦
回复 支持 反对

使用道具 举报

defir
 楼主| 发表于 2016-4-28 22:09:39 | 显示全部楼层
vivienluo 发表于 2016-4-28 21:50
做好之后分享一下哦

会的，你改过之后基本可以用了。
后面继续学习，加入更多功能，来论坛和大家分享。
回复 支持 反对

使用道具 举报

发表于 2016-9-11 20:51:21 | 显示全部楼层
赞一个，希望能多分享些代码给我们这些菜鸟学习一下
回复 支持 反对

使用道具 举报

发表于 2017-2-3 15:58:07 | 显示全部楼层
赞一个，希望能多分享些代码给我们这些菜鸟学习一下
回复 支持 反对

使用道具 举报

发表于 2022-2-13 12:31:30 | 显示全部楼层
学习到了，感谢罗老师的分享
回复 支持 反对

使用道具 举报

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

本版积分规则

Archiver|手机版|网站地图|Cadence Skill 论坛 ( 蜀ICP备13024417号 )

GMT+8, 2024-4-20 10:48 , Processed in 0.226377 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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