变变变一帖我的做法

草图中有两个封闭轮廓，其中多边形轮廓的边数由草图中的阵列数决定，当多边形边数为9时圆形轮廓包围多边形轮廓，其余情况下多边形轮廓包围圆形轮廓。

为要正确成型拉伸时所用轮廓选用两个局部范围，见下图

重建模型时的自动变化由方程式实现，其方程式设置及解释如下：

"边数@草图1"=iif("边数@草图1">8,3," 边数@草图1"+1)

         ‘上式使多边形边数在3—9之间循环变化，每次建模边数加1，当边数为9时重建模多边形回复到三角形。

"多边形外接圆半径@草图1"=iif("边数@草图1">8,40,100)

         ‘ 上式使多边形边数为9时多边形外接圆半径为40，其它情况下多边形外接圆半径为100

"多边形半圆心角@草图1" = 180/"边数@草图1"

         ‘上式计算多边形一边对应的半圆心角

"圆形轮廓半径@草图1" = 140-"多边形外接圆半径@草图1"

         ‘上式计算圆形轮廓半径，使多边形边数为9时其值为100，其它情况下其值为40。

偷吃步，做不出三角形變化，只好跳過處理！
SW2016練習不知哪裡出錯???

灯具小翔 发表于 2013-1-28 08:39
刚刚学会录制屏幕，再做一次：

翔哥，请问下，草图里面多边形的边数不能赋予方程式，怎么弄啊

666，感谢，竟然能这样使用方程式

求教，多边形的边数尺寸怎么显示出来呀？？？

看了好长时间，做出来的还有点不一样，接着再想啊

顶啊，都是牛人

厉害啊厉害

如果在VBA中建立自己的模块或类的属性、方法或事件，在建模中能调用吗？如果可以的话，直接调用属性、方法或激发事件，一切就简单了。等回去自己试试！其实，iif函数功能相对比较简单，只能做简单的判断操作，当然iff函数可以多层嵌套使用。用自己创建的方法可以加入更多的条件，以完成更加复杂的功能，比如，超过三个以上的轮廓的计算、比较和判断。除了算数、三角函数计算和iif函数也不知道sw还内建了其它哪些函数。如果能支持VB.NET（真正的面向对象编程了）就更强大了，不过当前还不可能，包括word2013、excel2013还是VBA（也就是VB6.0的函数和语法等）。递归：实际就是自己调用自己的函数，满足结束条件后将每一次递归的值经过设计的计算后返回最终值。如果将不老叔的题的条件稍微调整一下，如果多边形的边数是奇数，则多边形包圆，同时弹出提示窗体提示“多边形包圆 ”；如果多边形的边数是偶数，则为圆包多边形，同时也弹出提示窗体 提示“圆包多边形 ”。这样应该就会用到VBA了。

弱弱的问一句，怎么显示多边形的边数？