浩辰暖通4-Int4的lisp程序12

crtrccrt

(defun C:Help_HC ()
  (setq HelpFile (strcat _drv "system\\INT4.0 帮助.chm::/0.0公司及软件简介.htm"))
  (startapp "hh" HelpFile)
  (princ)
)
  
(defun C:Help_FhJlSJ ()
    (setq HelpFile (strcat _drv "system\\INT4.0 帮助.chm::4.1平面设置.htm"))
    (startapp "hh" HelpFile)
    (princ)
)

(defun C:HELP_JZSJ ()
    (setq HelpFile (strcat _drv "system\\INT4.0 帮助.chm::/9.0建筑外框.htm"))
    (startapp "hh" HelpFile)
    (princ)
)

(defun C:HELP_FZBF ()
    (setq HelpFile (strcat _drv "system\\INT4.0 帮助.chm::/10.0辅助功能.htm" ))
    (startapp "hh" HelpFile)
    (princ)
)

(defun C:HELP_JSBF ()
    (setq HelpFile (strcat _drv "system\\INT4.0 帮助.chm::/8.0计算部分.htm"))
    (startapp "hh" HelpFile)
    (princ)
)

  (defun C:HELP_SLSJ ()
    (setq HelpFile
           (strcat _drv "system\\INT4.0 帮助.chm::/7.0水路设计.htm")
    )
    (startapp "hh" HelpFile)
    (princ)
  )

  (defun C:HELP_TFKTSJ ()
    (setq
      HelpFile (strcat _drv
                       "system\\INT4.0 帮助.chm::/6.0通风空调概述.htm"
               )
    )
    (startapp "hh" HelpFile)
    (princ)
  )

  (defun C:HELP_CNSJ ()
    (setq
      HelpFile (strcat _drv
                       "system\\INT4.0 帮助.chm::/5.0采暖设计概述.htm"
               )
    )
    (startapp "hh" HelpFile)
    (princ)
  )