Learning Forum

[Guilin Sun]

简单的代码就是用copy: copy - Script command

因为结构的这种轴对称相当于把已知部分，例如第一象限，镜面反射为第二象限，再将上半部分镜面反射到下半部分，遗憾的是没有这样的脚本直接使用。你可以精心设置一个变量，比如 signx, signy 为1和 -1, 另外再加上坐标位置函数化，如 x(m), y(n), 可以通过循环得到第一象限结构，通过改变Signx得到第二象限，同理第三第四象限。

signx=signy=1;

loop (m,n):

addrect;

set("name","xpyp"+num2str(m)+num2str(n)),

set("x",signx*x(m),signy*y(n))

.....

signx=-1;

loop (m,n):

addrect;

set("name","xnyp"+num2str(m)+num2str(n));

set("x",signx*x(m)）；

set"y",signy*y(n));

....

singy=-1;

loop

...

signx=1;

loop

....

set("x",signx*x(m),signy*y(n))