EDA365电子论坛网

标题: 线转换为shape的skill文件，求 [打印本页]

---

作者: womi1989    时间: 2016-6-22 19:30
标题: 线转换为shape的skill文件，求
哪位有这个的文件，最好是不带密码的~

---

作者: chrysalis    时间: 2016-6-23 08:06
自己写呗，axlPolyFromDB

---

作者: 361553894    时间: 2016-6-23 08:52

1. axlCmdRegister("wlClineToShape" 'wlClineToShape)
   
2. axlSetAlias("ccs" "wlClineToShape")
   
3. procedure( wlClineToShape(@optional (cline nil))
   
4. prog((poly clayer cnet cparent mark)
   
5. unless(cline
   
6. axlSetFindFilter(?enabled '("all") ?onButtons '("noall" "clines"))
   
7. cline = car(axlGetSelSet(axlSingleSelectPoint()))
   
8. )
   
9. poly = car(axlPolyFromDB(cline ?endCapType 'ROUND))
   
10. clayer = cline->layer
    
11. cnet = cline->net
    
12. cparent = cline->parent
    
13. mark = axlDBTransactionStart()
    
14. axlDeleteObject(cline)
    
15. if(axlDBCreateShape(poly t clayer cnet cparent) then
    
16. axlDBTransactionCommit(mark)
    
17. else
    
18. axlDBTransactionOops(mark)
    
19. )
    
20. ))

复制代码

这个是自动确定的，也就是不能撤销

---

作者: mentorkk    时间: 2016-11-15 01:15
谢谢分享！

---

作者: lovesweet33    时间: 2017-1-3 23:29
谢谢分享

---

作者: wcjcn    时间: 2017-6-8 22:51
谢谢分享。。。。。。

---

欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/)

Powered by Discuz! X3.2