exhcad.mnl

来自「《管状换热器计算机辅助设计系统ExhCAD绘图系统(版本:1.01a Fina」· MNL 代码 · 共 21 行

;;ExhCAD绘图系统(版本:1.01a Final)
;;版权: 安徽工业大学 首钢技术研究院
;;研发：endlessfree([e-mail])
(defun ExhCADMenu (/ CNT)
  (setq CNT 1)
  (while (< CNT 24)
    (if (menucmd (strcat "P" (itoa CNT) ".1=?"))
      (setq CNT (1+ CNT))
      (progn
        (if (> CNT 2)
          (setq CNT (1- CNT))
          (setq CNT 2)
        )
        (menucmd (strcat "p" (itoa CNT) "=+ExhCAD.pop1"))
        (setq CNT 25)
      )
    )
  )
)

( ExhCADMenu)