;;;命令集合
;;;旧路改造设计工具条
(defun c:OldRoadRebuild_ToolBar ()
	(hy_showmenu "ID_SZDL_OLDROADREBUILD")
)
;;图层设置
(defun c:OrrLayerSettings	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_LayerSettings)
  )
  (Un_Reactor)
  (princ)
)
;;工程量设置
(defun c:OrrSettings	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_Settings)
  )
  (Un_Reactor)
  (princ)
)
;;标注设置
(defun c:OrrDimSettings	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_DimSettings)
  )
  (Un_Reactor)
  (princ)
)
;;工程量标注
(defun c:OrrDim	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_Dim)
  )
  (Un_Reactor)
  (princ)
)
;;面积类定义
(defun c:OrrAreaDef	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_AreaDef)
  )
  (Un_Reactor)
  (princ)
)
;;长度类定义
(defun c:OrrCurveDef	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_CurveDef)
  )
  (Un_Reactor)
  (princ)
)
;;个体类定义
(defun c:OrrUnitDef	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_UnitDef)
  )
  (Un_Reactor)
  (princ)
)
;;综合管理
(defun c:OrrMgr	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_Mgr)
  )
  (Un_Reactor)
  (princ)
)
;;图案填充
(defun c:OrrHatch	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_Hatch)
  )
  (Un_Reactor)
  (princ)
)
;;;关闭填充
(defun c:OrrOffHatch	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_OFFHATCH)
  )
  (Un_Reactor)
  (princ)
)
;;工程量统计
(defun c:OrrTotal	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_Total)
  )
  (Un_Reactor)
  (princ)
)
;;绘制图例表
(defun c:OrrLegend	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_DrawLegendTable)
  )
  (Un_Reactor)
  (princ)
)
;;面积类编辑
(defun c:OrrAreaEdit	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_AreaEdit)
  )
  (Un_Reactor)
  (princ)
)
;;长度类编辑
(defun c:OrrCurveEdit	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_CurveEdit)
  )
  (Un_Reactor)
  (princ)
)
;;个体类编辑
(defun c:OrrUnitEdit	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_UnitEdit)
  )
  (Un_Reactor)
  (princ)
)
;;综合查询编辑
(defun c:OrrSearchEdit	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(ORR_SearchEdit)
  )
  (Un_Reactor)
  (princ)
)
;;;纵断面设计
(defun c:OrrZdsqxsj ()
  (En_Reactor)
  (#ppas "zdmdsgn")
  (HY_SV)
  (if (IsLoaded_ORRDS)
  	(ZDM_Design 1)
	)  
  (HY_RV)
  (Un_Reactor)
)
;;;旧路补强标准断面
(defun c:OrrHdbzdm	()
  (En_Reactor)
  (#ppas "pm_line.arx")
  (if (IsLoaded_ORRDS)
  	(dmbzdm 1)
	)  
  (#ppuas "pm_line.arx")
  (Un_Reactor)
)
;;;旧路补强横断面计算绘图
(defun c:OrrHdmjsht_new	(/ w_ptb)
  (En_Reactor)
  (setq *error* global_err)
	(if (IsLoaded_ORRDS)
  	(progn
		  (DL_ArxLoad "TransectDesign")
		  (HY_SV)
		  ;;(DL_MakeLayer "PP-PM-TK")
		  (setq w_ptb (DLHDM_CALDRAW_NEW 1))
		  (HY_RV)
		)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;帮助
(defun c:Orrhelp (/ w_path)
  (setq w_path (strcat (HY_GetInstallDir) "OldRoadRebuild\\Help")
        w_path (strcat w_path "\\OldRoadRebuild.chm")
  )
;;(startapp "winhlp32" w_path)
  (startapp "hh" w_path)
  (princ)
)
;;关于
(defun c:OrrAbout	()
  (En_Reactor)
  (if (IsLoaded_ORRDS)
	(Orr_About)
  )
  (Un_Reactor)
  (princ)
)
(princ)