分享一个将CLine、Line、shape转换成keepout anti etch的shape的skill,源码奉上

skny2011 · 发表于 2019-5-20 14:29:00

本帖最后由 skny2011 于 2019-5-21 11:40 编辑

分享一个将CLine、Line、shape转换成keepout anti etch的shape的skill,源码奉上
功能很简单，操作不作详细描述了，有一个问题就是手动关闭Form后，skill依然在执行。

另外，请教大家一个问题，怎么在循环过程中创建类似Oops的这个操作，谢谢大家，我这个现在只能一次回退到最开始。

两个问题已经解决：
1.创建类似Oops的这个操作：原来是我函数用错了，应该用axlDBTransactionMark(),我用成了axlDBTransactionCommit(),所以一下回退到最开始的状态。
已下载的附件的网友们，可直接在if(sel_list这一行的上一行添加axlDBTransactionMark(startMark)，即可更改成功。不用重复下载附件，浪费贡献值。

2.手动关闭Form后，skill依然在执行：判定Form的doneState,手动关闭Form时，doneState值为3。
已下载的附件的网友们，可直接添加以下粉色代码到对应位置即可：
defun(ShapeForm_Action (myform)
      let(()
   以上是原始程序，以下是新增代码：
      if(myform->doneState!=0
            then
                     POP_Done()
            )
   以下是原始程序，以上是新增代码：
         case(myform->curField

分享出来给大家，希望有用。

ShapeTools.zip (2.5 KB, 下载次数: 36)

hyper · 发表于 2019-5-21 12:54:58

哈哈，厉害，现在认真写的比较少了

skny2011 · 发表于 2019-5-21 13:38:03

hyper 发表于 2019-5-21 12:54
哈哈，厉害，现在认真写的比较少了

自学中，慢慢研究吧。。。。

s88014081 · 发表于 2019-5-21 17:13:36

厉害，感谢分享

LJ李杰 · 发表于 2019-5-30 10:16:30

哈哈，厉害，现在认真写的比较少了

825cow · 发表于 2019-6-8 14:28:57

谢谢分享，。

JY2580 · 发表于 2019-6-10 17:20:12

感谢分享。。。。。。。

.vEフ_oo_侽生、 · 发表于 2019-6-11 08:48:32

哈哈，厉害，现在认真写的比较少了

s88014081 · 发表于 2019-6-29 12:06:05

谢谢你的分享

ASDK · 发表于 2020-1-3 22:26:23

学习了，厉害厉害

帐号		自动登录	找回密码
密码			立即注册

[分享] 分享一个将CLine、Line、shape转换成keepout anti etch的shape的skill,源码奉上

评分