吾爱光设

会员须知
会员须知
实用帮助
实用帮助
查看: 4424|回复: 2

[求助] 请问zemax怎样把快速所有玻璃设置为替代

[复制链接]
  • TA的每日心情
    奋斗
    2024-11-15 09:46
  • 签到天数: 269 天

    [LV.8]以坛为家I

    6

    主题

    9

    回帖

    2

    积分

    小白

    积分
    2
    发表于 2022-6-8 11:20 来自手机 | 显示全部楼层 |阅读模式
    大牛请分享一下比较好用的快捷方式。
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    回复

    使用道具 举报

  • TA的每日心情

    2024-11-14 09:07
  • 签到天数: 1018 天

    [LV.10]以坛为家III

    3

    主题

    346

    回帖

    84

    积分

    入门

    积分
    84
    发表于 2022-6-8 12:59 | 显示全部楼层
    可以写一个宏  
    但是总共也没多少玻璃,手动改一改不就好了
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    回复

    使用道具 举报

  • TA的每日心情

    2024-11-14 09:10
  • 签到天数: 1085 天

    [LV.10]以坛为家III

    2

    主题

    129

    回帖

    68

    积分

    入门

    积分
    68
    发表于 2022-6-8 13:37 | 显示全部楼层
    之前刚好写过一个宏

    input "输入0设置固定,输入1设置替换",type
    sur_start=1 #初始面
    sur_end=nsur()-1 #结束面
    if(type==1)
    for i=sur_start,sur_end,1
            G$=$GLASS(i)
            if(G$ $!= "")then SOLVETYPE i, GS
    next
    endif
    if(type==0)
    for i=sur_start,sur_end,1
            G$=$GLASS(i)
            if(G$ $!= "")then SOLVETYPE i, GF
    next
    endif

    评分

    参与人数 2金币 +4 收起 理由
    + 1
    很给力!

    查看全部评分

    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    联系我们|本论坛只支持PC端注册|手机版|小黑屋|吾爱光设 ( 粤ICP备15067533号 )

    GMT+8, 2024-11-16 23:30 , Processed in 0.109375 second(s), 24 queries .

    Powered by Discuz! X3.5

    © 2001-2024 Discuz! Team.

    快速回复 返回顶部 返回列表