[SRC]切割铜皮 CutShape

penny190

XYX365 发表于 2012-8-22 11:19
可能要將lCutBox = axlEnterBox(?prompts list("lease select an area."))
改為使用axlEnterEvent 函數 ...

{:soso_e102:}  大大加油!!

XYX365

penny190 发表于 2012-8-22 11:32
大大加油!!

將20 和21行修改如下

1. 
   
2. lSelectMask = list('STARTDRAG 'STOPDRAG)
   
3. axlClearSelSet()
   
4. while(bCSDoFlag
   
5.     rEventID = axlEnterEvent(lSelectMask nil t)
   
6.     case(rEventID->type
   
7.         ('STARTDRAG
   
8.             lTempXY = rEventID->xySnap
   
9.             axlAddSimpleRbandDynamics(lTempXY "box" ?origin lTempXY ?var_point (0:0))
   
10.        )
    
11.       ('STOPDRAG
    
12.         axlClearDynamics()
    
13.             lCutBox = list(lTempXY rEventID->xySnap)
    
14.                 fnCutShapesAction(lCutBox)
    
15.     )
    
16. )
    
17. 
    
18. ;原來的29行加入lCutBox
    
19. procedure(fnCutShapesAction(lCutBox)
    
20. 
    
21. ;原來的30行刪除lCutBox,
    
22. prog((lShapeIDs,tRectLayer, dRectCut, dRectCutPoly, ..............
    
23. 
    
24. ;原來的32和33行在前面加入;
    
25. ;axlClearSelSet()
    
26. ;lCutBox = axlEnterBox(?prompts list("Please select an area."))
    

复制代码

使用方法為滑鼠左鍵按住之後拉出一個box之後放開左鍵

penny190

XYX365 发表于 2012-8-22 13:25
將20 和21行修改如下
lSelectMask = list('STARTDRAG 'STOPDRAG)
axlClearSelSet()

{:soso_e115:}  XYZ365大大 ~~ 修改之後 ~~ 失敗了
麻煩大大能否幫我看一下~~是哪有問題呢?
謝謝

XYX365

penny190 发表于 2012-8-22 14:04
XYZ365大大 ~~ 修改之後 ~~ 失敗了
麻煩大大能否幫我看一下~~是哪有問題呢?
謝謝

如下圖所修改
21行到35行,
42行
43行
45行
46行


cutshape執行後,滑鼠左鍵按下(不要放開),再拉出一個框框後,放開左鍵,就完成

penny190

謝謝 ~~ XYZ365大大 ~~ 已經ok了

L-Den

先顶一个。

longzhiming

附件更新了没? 还自己改吗?

longzhiming

要用到这个功能时还真方便,楼主辛苦了,谢谢,下载走了.偷偷乐

bavol

200权限要等到什么时候呀

XYX365

longzhiming 发表于 2012-8-26 20:31
附件更新了没? 还自己改吗?

自己改

longzhiming

XYX365 发表于 2012-8-27 07:54
自己改

明白了,因为不是个个人都需要对格点切!

lig132

不错 很好用

koncc

感謝分享

chouqiu

以前也下过  类似割铜 skill  但是不好用
  希望楼主以后发skill的 时候能够  解释一下  怎么用  
现在不敢下 啊   现在  论坛的 金币比 美元还值钱  
    不过还是相信 楼主  下下来看看看 应该  顶起

chouqiu

用过了 相当好用   谢谢 楼主  灰常感谢