[求助] zemax如何一键替换玻璃

zemax替换玻璃时，需要一个一个的点替换，能否有个宏直接一键全选，各位有啥宏推荐推荐

手册上研究下这个宏命令  SETSURFACEPROPERTY ，for循环所有面+if判断当前面折射率是否不为1+ SETSURFACEPROPERTY更改表面求解类型参数来实现

歪个楼 设置渐晕的时候要固定口径，想问问各位有没有什么可以一键固定和释放口径的快捷方式？

选择你想要的口径，CTRL+Z

input "请输入想要替换的玻璃库",arg1$
#arg1$ = "cdgm"
surface_num = NSUR()#读取表面数量
code$ = "GS"        #求解类型为替换
for n,0,surface_num,1
        if GIND(n)>1        #折射率大于1的表面设置为替换
        solvetype n,GS,arg1$
        #print arg1$
        endif
next

上面这个宏能把所有折射率大于1的表面设置为替换，你试试你的软件版本能用吗

试试看这个宏，运行时输入1就可以材料全部设为替换，输入0就是全部取消替换。

给的东西非常给力，这个刚学习到这一部分的宏语言，自己写还有点小问题，但是看一眼瞬间开拓了，可惜没有积分，不然给你打几分

感谢感谢，看了你的宏，思路打开了，不行我就自己写匹配版本的宏

不用客气啊，这个宏我也是从论坛下载的，对你有帮助就好。