线变铜皮的skill，谁能提供一个~谢谢

womi1989

我之前有一个该skill，但是不好用，密码是这个论坛网址~

wcjcn

继续学习。

杰1111

ACE_ASL 发表于 2016-9-6 13:05
有些信号表层要露铜沉金的

哦，明白了

ACE_ASL

杰1111 发表于 2016-9-6 11:47
表层的线，绿油开窗？这是什么意思啊，不太明白，能仔细说说嘛

有些信号表层要露铜沉金的

杰1111

ACE_ASL 发表于 2016-9-5 17:33
表层的线，绿油开窗，打算手动画shape吗？

表层的线，绿油开窗？这是什么意思啊，不太明白，能仔细说说嘛

ACE_ASL

杰1111 发表于 2016-9-5 16:59
请教下为什么要把线变成铜皮，直接铺铜皮不好吗

表层的线，绿油开窗，打算手动画shape吗？

杰1111

请教下为什么要把线变成铜皮，直接铺铜皮不好吗

ACE_ASL

亲测，可用，多谢

361553894

womi1989 发表于 2016-8-31 18:43
麻烦确认下，代码是不是有错误~并不能使用~
或者麻烦直接发送一个il文件~

直接发文件，怕你权限不够不能下载

361553894

womi1989 发表于 2016-8-31 18:43
麻烦确认下，代码是不是有错误~并不能使用~
或者麻烦直接发送一个il文件~

能用的啊，输入c2s后选择需要变成铜皮的cline
我只是没把对话窗口做出来而已
可以根据需求把 ?endCapType  'ROUND（圆形）改成'OCTAGON（八角形）

womi1989

361553894 发表于 2016-8-31 12:25

麻烦确认下，代码是不是有错误~并不能使用~
或者麻烦直接发送一个il文件~

361553894

1. axlCmdRegister("ClineToShape" 'ClineToShape)
   
2. axlSetAlias("c2s" "ClineToShape")
   
3. procedure( ClineToShape(@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(axlPolyOperation(axlPolyFromDB(cline ?endCapType 'OCTAGON) nil 'OR))
   
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. ))

复制代码