;;;互通式立交设计工具条
(defun c:Interchange_ToolBar ()
	(hy_showmenu "ID_SZDL_INTERCHANGE")
)

;;;导线法-圆弧
(defun c:Ic_Arc ()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_TraverseMethodArc)
  )
  (Un_Reactor)
  (princ)
)

;;;回头曲线设计
(defun c:htqx ()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_HTQX)
  )
  (Un_Reactor)
  (princ)
)
;;;
;;;曲线法设计卵型缓和段
(defun c:Ic_L ()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_L)
  )
  (Un_Reactor)
  (princ)
)
;;;曲线法设计S型缓和段
(defun c:Ic_S ()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_S)
  )
  (Un_Reactor)
  (princ)
)
;;;曲线法设计C型缓和段
(defun c:Ic_C ()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_C)
  )
  (Un_Reactor)
  (princ)
)
;;曲线法设计直缓型缓和段
(defun c:Ic_ZY ()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_ZY)
  )
  (Un_Reactor)
  (princ)
)
;;;
;;曲线法设计扩展-直圆圆
(defun c:zyy()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_ZYY)
  )
  (Un_Reactor)
  (princ)
)

;;曲线法设计扩展-圆直圆
(defun c:yzy()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_YZY)
  )
  (Un_Reactor)
  (princ)
)

;;曲线法设计扩展-直圆直
(defun c:zyz()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_ZYZ)
  )
  (Un_Reactor)
  (princ)
)

;;曲线法设计扩展-圆圆圆
(defun c:yyy()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_YYY)
  )
  (Un_Reactor)
  (princ)
)

;;积木法-直线单元
(defun c:ic_AeamLine()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_AeamLine)
  )
  (Un_Reactor)
  (princ)
)

;;积木法-圆弧单元
(defun c:ic_AeamArc()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_AeamArc)
  )
  (Un_Reactor)
  (princ)
)

;;积木法-回旋线单元
(defun c:ic_AeamClothoid()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_AeamClothoid)
  )
  (Un_Reactor)
  (princ)
)

;;积木法附加命令-连接两缓和曲线
(defun c:ic_LinkClothoid()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_LinkTwoClothoids)
  )
  (Un_Reactor)
  (princ)
)

;;端部圆角绘制
(defun c:ic_Fillet()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_DrawEndMostArc)
  )
  (Un_Reactor)
  (princ)
)

;;直接式变速车道
(defun c:ic_VSLane()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(Ic_DirectSpeedChangeLane)
  )
  (Un_Reactor)
  (princ)
)

;;;帮助
(defun c:ichelp (/ w_path)
  (setq w_path (strcat (HY_GetInstallDir) "Interchange\\Help")
        w_path (strcat w_path "\\Interchange.chm")
  )
;;(startapp "winhlp32" w_path)
  (startapp "hh" w_path)
  (princ)
)
;;关于
(defun c:icAbout	()
  (En_Reactor)
  (if (IsLoaded_IDS)
	(ic_About)
  )
  (Un_Reactor)
  (princ)
)

;;;-----------------------------------------------------------------------------------------以下是互通式立交的标注命令-----------------------------------------------------------------------------------------
;;;图层设置
(defun c:IcDim_ManageLayer ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_ManageLayer)
  )
  (Un_Reactor)
  (princ)
)

;;;互通式立交标注工具条
(defun c:IcDim_ToolBar ()
	(hy_showmenu "ID_ICDIMSYS")
)

;;;特征点标注字符设置
(defun c:IcDim_PPCPointSet ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_PPCPointSet)
  )
  (Un_Reactor)
  (princ)
)

;;;交点标注
(defun c:IcDim_InterPt ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_InterPt)
  )
  (Un_Reactor)
  (princ)
)

;;;平曲线参数标注
(defun c:IcDim_PCCParam ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_PCCParam)
  )
  (Un_Reactor)
  (princ)
)

;;;路线标注
(defun c:IcDim_Route ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_Route)
  )
  (Un_Reactor)
  (princ)
)

;;;标注路线名称
(defun c:IcDim_RoadName ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_RoadName)
  )
  (Un_Reactor)
  (princ)
)

;;;标剖面线
(defun c:IcDim_SectionLine ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_SectionLine)
  )
  (Un_Reactor)
  (princ)
)

;;;单桩标注
(defun c:IcDim_SingleStake ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_SingleStake)
  )
  (Un_Reactor)
  (princ)
)

;;;单桩查询与标注
(defun c:IcDim_QueryAndDimOneStake ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_QueryAndDimOneStake)
  )
  (Un_Reactor)
  (princ)
)

;;;标注十字坐标
(defun c:IcDim_CrossWire ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_CrossWire)
  )
  (Un_Reactor)
  (princ)
)

;;;标注任意点桩号和坐标
(defun c:IcDim_OneStakeAndCoord ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_OneStakeAndCoord)
  )
  (Un_Reactor)
  (princ)
)

;;;标注桩号与高程
(defun c:IcDim_OneStakeAndElev ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_OneStakeAndElev)
  )
  (Un_Reactor)
  (princ)
)

;;;标注路线交叉点桩号
(defun c:IcDim_RouteInterPt ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_RouteInterPt)
  )
  (Un_Reactor)
  (princ)
)

;;;标注桩号距离
(defun c:IcDim_StakeDist ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_StakeDist)
  )
  (Un_Reactor)
  (princ)
)

;;;标注道路方向标
(defun c:IcDim_RoadDirection ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_RoadDirection)
  )
  (Un_Reactor)
  (princ)
)

;;;标注实体管理
(defun c:IcDim_ManageDimEntity ()
  (En_Reactor)
  (if (IsLoaded_IDS)
    (IcDim_ManageDimEntity)
  )
  (Un_Reactor)
  (princ)
)
;;;-----------------------------------------------------------------------------------------以上是互通式立交的标注命令-----------------------------------------------------------------------------------------
(princ)