;;ExhCAD繪圖系統(tǒng)(版本:1.01a Final)
;;版權(quán): 安徽工業(yè)大學(xué) 首鋼技術(shù)研究院
;;研發(fā)：endlessfree(wjm_2001_97@chinaren.com)
(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)