;;;----------------commands of file <文件>---------------
;;;DL_CurDrawingCheckProj
;;; c:acad 在文件 acadr14.lsp 中定义
(load	(strcat	(HY_GetInstallDir)	"Interchange\\sup\\Interchange_cmd.LSP"))
(load	(strcat	(HY_GetInstallDir)	"OldRoadRebuild\\sup\\OldRoadRebuild_cmd.LSP"))
(load	(strcat	(HY_GetInstallDir)	"ZigzagChannel\\sup\\ZigzagChannel_cmd.LSP"))
;;; 鸿业交通 
  (setq jtCmdFile (strcat (HY_GetInstallDir) "TrafficSigns\\sup\\TrafficSigns_Cmd.LSP"))
  (if (findfile jtCmdFile)
    (progn 
	  (load jtCmdFile)
	)
 )
  
(defun c:kzst	()
	(entget (car (entsel)) (list "*"))
)
(defun c:cx	()
	(cx)
)
;;;=======================commands of pop2 <设置> ==============================
;;;新建工程
(defun c:szxjgc	()
  (En_Reactor)
  (DL_NewProject)
  (Un_Reactor)
  (princ)
)
;;;打开工程
(defun c:szdkgc	()
  (En_Reactor)
  (DL_OpenProject)
  (Un_Reactor)
  (princ)
)
;;;工程管理
(defun c:szgcgl	()
  (En_Reactor)
  (DL_ProjectManage)
  (Un_Reactor)
  (princ)
)
;;;设置当前数据文件
(defun c:szdqwj	()
  (En_Reactor)
  (DL_ManageMainFile)
  (Un_Reactor)
  (princ)
)

;;;2003/4 新增命令
;;;设计高程线位置设置
;(defun c:sjgcx()
; (En_Reactor)
; (dL_designlinepos)
; (Un_Reactor)
;)

;;;市政道路综合设置
(defun c:szdlzhsz ()
  (En_Reactor)
  (DL_GENERALSET)
  (Un_Reactor)
  (princ)
)
;;;图层设置
(defun c:szdltcsz ()
  (En_Reactor)
  (DL_LayerManage)
  (Un_Reactor)
  (princ)
)
;;;标注设置
(defun c:szbzsz	()
  (En_Reactor)
  (DL_PmDimSet)
  (Un_Reactor)
  (princ)
)
;;;设置图框
(defun c:BorderSetup()
  (En_Reactor)
  (DL_BorderSetup)
  (Un_Reactor)
  (princ)
)

;;;图签填写
(defun c:FillTuQian ()
  (En_Reactor)
  (HY_SV)
  (if (/= (DL_ProjectProDeal) -1)
  	(progn
  		(#ppas "hy_tukuang")
  		(filltuqian)
  		(#ppuas "hy_tukuang")
  	)
	)
  (HY_RV)
  (Un_Reactor)
  (princ)
)
;;;设置图框
(defun c:SetTuKuang ()
  (En_Reactor)
  (HY_SV)
  (if (/= (DL_ProjectProDeal) -1)
  	(progn
  		(#ppas "hy_tukuang")
  		(settukuang)
  		(#ppuas "hy_tukuang")
  	)
	)
  (HY_RV)
  (Un_Reactor)
  (princ)
)

;;;简化命令
(defun c:SimpleCmd ()
  (En_Reactor)
  (DL_CommandManage)
  (Un_Reactor)
  (princ)
)
;;;配置管理
(defun c:SetManager ()
  (En_Reactor)
  (DL_SettingManage)
  (Un_Reactor)
  (princ)
)

;;;图框向导
(defun c:BorderGuide ()
  (En_Reactor)
  (TuKuang_Guide)
  (Un_Reactor)
  (princ)
)

(defun c:DrawTuKuang ( )
  (En_Reactor)
  (HY_SV)
  (if (/= (DL_ProjectProDeal) -1)
  	(progn
  		(szload For_DrawTuKuang "hyszdlsz")
  		(For_DrawTuKuang)
  	)
	)
  (HY_RV)
  (Un_Reactor)
  (princ)
)

;;;简易图框
(defun c:a0 ()
  (En_Reactor)
  (setq *error* global_err)
  (szload sz_smp_tk "hyszdlsz")
  (sz_smp_tk 0)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:a1 ()
  (En_Reactor)
  (setq *error* global_err)
  (szload sz_smp_tk "hyszdlsz")
  (sz_smp_tk 1)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:a2 ()
  (En_Reactor)
  (setq *error* global_err)
  (szload sz_smp_tk "hyszdlsz")
  (sz_smp_tk 2)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:a3 ()
  (En_Reactor)
  (setq *error* global_err)
  (szload sz_smp_tk "hyszdlsz")
  (sz_smp_tk 3)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:a4 ()
  (En_Reactor)
  (setq *error* global_err)
  (szload sz_smp_tk "hyszdlsz")
  (sz_smp_tk 4)
  (setq *error* nil)
  (Un_Reactor)
)
;;;----------------commands of pop3 <地形>---------------
;;;自然等高线
(defun c:dxzrdgx ()
	(hy_showmenu "ID_DX_ZrDgx")
)


;;;自然标高离散点
(defun c:dxzrlsd ()
	(hy_showmenu "ID_DX_ZrBgLsd")
)

;;;三角网法构造三维地形
(defun c:dx3ddx	()
  (En_Reactor)
  (setq *error* global_err)
  (szload 3ddx "szdldx3d")
  (3ddx)
  (setq *error* nil)
  (Un_Reactor)
)
;;;地形断面
(defun c:dxdm ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dxdm "szdldx3d")
  (dxdm)
  (setq *error* nil)
  (Un_Reactor)
)
;;;视点转换
(defun c:dxsdzh	()
  (En_Reactor)
  (setq *error* global_err)
  (#ppls "szdldx3d")
  (3dvpt)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:dxtc()
  (En_Reactor)
  (setq *error* global_err)
  (szload #txtc "szdldx3d")
  (#txtc)
  (setq *error* nil)
  (Un_Reactor)
)

;;;----------------commands of pop4 <土方>---------------
;;;交叉口设计等高线
(defun c:jcksjdgx ()
	(hy_showmenu "ID_Jck_DgxTool")
)

;;;设计等高线
(defun c:tfsjdgx ()
	(hy_showmenu "ID_TF_SjDgx")
)
;;;设计标高离散点
(defun c:tfsjlsd ()
	(hy_showmenu "ID_TF_SjBgLsd")
)

;;;土方边界在文件尾定义
(defun c:tfbj ()
  (En_Reactor)
  (setq *error* global_err)
  (sa_menu "temp")
  (szload #lineb "pppp")
  (#lineb "PP-TF-BJ" nil)
  (re_menu)
  (setq *error* nil)
  (Un_Reactor)
)

;;;土方挡土墙
(defun c:tfdtq ()
  (En_Reactor)
  (setq *error* global_err)
  (sa_menu "temp")
  (szload #tfdtq "@T_TFWG")
  (#tfdtq)
  (re_menu)
  (setq *error* nil)
  (Un_Reactor)
)
;;;显示命令菜单
(defun c:tfcdtf ()
	(hy_showmenu "ID_TF_Tfjs")
)
(defun c:tfcdtf2 ()
	(hy_showmenu "ID_TF_Tfjs_2")
)
;;;定义网格线
(defun c:dywgx()  
 (En_Reactor) 
  (#ppas "LabelGrid")
  (LabelGrid_dywg)
  (#ppuas "LabelGrid")
 (Un_Reactor)
)
;;;识别网格
(defun c:sbwg()  
 (En_Reactor) 
  (#ppas "LabelGrid")
  (LabelGrid_sbwg)
  (#ppuas "LabelGrid")
 (Un_Reactor)
)
;;;土方网格
(defun c:tfwg()  
 (En_Reactor) 
 (setq *error* global_err)
 (#ppls "@t_tfwg")
 (t_tfwg) 
 (setq *error* nil)
 (Un_Reactor)
)
;;;网格编号
(defun c:wxbh() 
  (En_Reactor) 
  (setq *error* global_err)
  (#ppls "@T_TFWG")
  (t_wxbh)
  (setq *error* nil)
  (Un_Reactor)
)
;;;网格处理
(defun c:wgcl() 
  (En_Reactor)
  (setq *error* global_err)
  (#ppls "@t_tfwg")
  (t_wgcl)
  (setq *error* nil)
  (Un_Reactor)
)
;;;土方标高定义
(defun c:tfbgdy() 
  (En_Reactor)
  (setq *error* global_err)
  (#ppls "@t_tfwg")
  (t_bgdy)
  (setq *error* nil)
  (Un_Reactor)
)
;;;土方标高标注
(defun c:tfbgbz() 
 (En_Reactor)
 (setq *error* global_err)
 (#ppls "@T_TFBZ")
 (t_bgbz)
 (setq *error* nil)
 (Un_Reactor)
)
;;;土方优化
(defun c:tfyh() 
  (En_Reactor)
  (setq *error* global_err)
  (#ppls "@t_tfyh")
  (t_tfyh)
  (setq *error* nil)
  (Un_Reactor)
)
;;;土方计算
(defun c:tfjs() 
  (En_Reactor)
  (setq *error* global_err)
  (#ppls "@t_tfwg") 
  (t_tfjsa)
  (setq *error* nil)
  (Un_Reactor)
)
;;;边坡计算
(defun c:bpjs()
 (En_Reactor)
 (setq *error* global_err)
 (#ppls "@t_bpjs")
 (t_bpjs)
 (setq *error* nil)
 (Un_Reactor)
)
;;;土方标注
(defun c:tfbz()
 (En_Reactor) 
 (setq *error* global_err)
 (#ppls "@t_tfbz")
 (t_tfbz)
 (setq *error* nil)
 (Un_Reactor)
)
;;;土方统计
(defun c:tftj()
 (En_Reactor)
 (setq *error* global_err)
 (#ppls "@t_tfbz")
 (t_tftj)
 (setq *error* nil)
 (Un_Reactor)
)
;;;土方统计(识别网格)
(defun c:tftjnew()  
 (En_Reactor)
  (#ppas "LabelGrid")
  (LABELGRID_TJWG)
  (#ppuas "LabelGrid")
 (Un_Reactor)
)

;;;土方断面
(defun c:tfdm()
 (En_Reactor)
 (setq *error* global_err)
 (#ppls "@t_tfwg")
 (t_dxdm)
 (setq *error* nil)
 (Un_Reactor)
)
;;;网格曲面
(defun c:3dwg()
  (En_Reactor)
  (setq *error* global_err)
  (#ppls "@T_TFWG")
  (t_3dwg)
  (setq *error* nil)
  (Un_Reactor)
)
;;;着色
(defun c:shadem() 
  (En_Reactor)
  (setq *error* global_err)
  (#ppls "SZDLDX3D")
  (shadem)
  (setq *error* nil)
  (Un_Reactor)
)
;;;图面清理
(defun c:tmqc()
  (En_Reactor)
  (setq *error* global_err)
  (#ppls "@T_TFWG")
  (tftmqc)
  (setq *error* nil)
  (Un_Reactor)
)
;;;区域移动
(defun c:qyyd()
   (En_Reactor)
   (setq *error* global_err)
   (#ppls "@T_BPJS")
   (t_qyyd)
   (setq *error* nil)
   (Un_Reactor)
)


;;;-----------------------------------平面--------------------------------------
;;;坐标关系

;;;平面其他工具条菜单
(defun c:PmOtherToolBar ()
	(hy_showmenu "ID_PmOther")
)

(defun c:zbgx	()
  (En_Reactor)
  (setq *error* global_err)
  (HY_CoordSet)
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;调整水平方向
(defun c:pmxz	()
　(En_Reactor)  
　(setq *error* global_err)
  (pmxz)
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;坐标网格
(defun c:pmzbwg	()
  (En_Reactor)
  (setq *error* global_err)
  (szload pm_zbwg "hyszdlsz")
  (pm_zbwg)
  (setq *error* nil)
  (Un_Reactor)
)
;;;风玫瑰
(defun c:pmfmg ()
  (En_Reactor)
  (setq *error* global_err)
  (szload wwbzfmg "wwbzfmg")
  (wwbzfmg)
  (setq *error* nil)
  (Un_Reactor)
)
;;;指北针
(defun c:pmzbz ()
  (En_Reactor)
  (setq *error* global_err)
  (szload pm_zbz "wwbzfmg")
  (pm_zbz)
  (setq *error* nil)
  (Un_Reactor)
)

;;;线型设计设置
(defun c:xxsjsz ()
 (En_Reactor)
 (#ppas "PlaneDim")
 (icdim_linetypedesignset)
 (#ppuas "PlaneDim")
 (Un_Reactor)
)

;;;自动定线
(defun c:pmzddx ()
 (En_Reactor)
 (#ppas "pm_line")
 (pm_dx)
 (#ppuas "pm_line")
 (Un_Reactor)
)
(defun c:pmdx ()
 (En_Reactor)
 (#ppas "pm_line")
 (dxdsgn)
 (#ppuas "pm_line")
 (Un_Reactor)
)
;;;曲线合并
(defun c:qxhb ()
 (En_Reactor)
 (#ppas "pm_line")
 (combinecurve)
 (#ppuas "pm_line")
 (Un_Reactor)
)

;;;曲线拆分
(defun c:qxcf ()
 (En_Reactor)
 (#ppas "pm_line")
 (splitcurve)
 (#ppuas "pm_line")
 (Un_Reactor)
)

;;;中心线识别
(defun c:zxxsb ()
 (En_Reactor)
 (#ppas "pm_line")
 (AlignmentIdentify)
 (#ppuas "pm_line")
 (Un_Reactor)
)

;;;修改缓和曲线参数
(defun c:xghhqx ()
 (En_Reactor)
 (#ppas "pm_line")
 (ModifySperialParam)
 (#ppuas "pm_line")
 (Un_Reactor)
)

;;;倒角设置
(defun c:pmdjsz ()
  (En_Reactor)
  (#ppas "drawroad")
  (rdset)
  (Un_Reactor)
  (princ)
)
;;;绘制道路
(defun c:pmhzdl ()
  (En_Reactor)
  (#ppas "drawroad")
  (hzdl)
  (Un_Reactor)
  (princ)
)
;;;线转道路
(defun c:xzdl ()
  (En_Reactor)
  (#ppas "drawroad")
  (xzdl)
  (Un_Reactor)
  (princ)
)

;;;路网线转路
(defun c:LWZhuanLu ()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_LuWangZhuanLu)
  (Un_Reactor)
  (princ)
)
;;;路网交叉处理
(defun c:LWCrossProc ()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_LWCrossProc)
  (Un_Reactor)
  (princ)
)
;;;路幅变宽
(defun c:lfbk ()
  (En_Reactor)
  (DL_ArxLoad "DrawRoad")
  (dllfbk)
  (Un_Reactor)
  (princ)
)
;;;直线路幅变宽
(defun c:ZXlfbk ()
  (En_Reactor)
  (DL_ArxLoad "DrawRoad")
  (DL_ZXLFBK)
  (Un_Reactor)
  (princ)
)
;;;曲线路幅变宽
(defun c:QXlfbk ()
  (En_Reactor)
  (DL_ArxLoad "DrawRoad")
  (DL_QXLFBK)
  (Un_Reactor)
  (princ)
)
;;;中心路幅变宽
(defun c:Centerlfbk ()
  (En_Reactor)
  (DL_ArxLoad "DrawRoad")
  (DL_CENTERLFBK)
  (Un_Reactor)
  (princ)
)
;;;手工加宽
(defun c:ManualDLJK ()
  (En_Reactor)
  (DL_ArxLoad "DrawRoad")
  (DL_MANUALDLJK)
  (Un_Reactor)
  (princ)
)
;;;修改道路专业信息
(defun c:xgdlxx ()
  (En_Reactor)
  (DL_ArxLoad "DrawRoad")
  (DL_ChangeRoadInfo)
  (Un_Reactor)
  (princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;新桩号系统开始;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;设置断链
(defun c:pmszdl	()
  (En_Reactor)
  (setq *error* global_err)
  	(if (/= (DL_ProjectProDeal) -1)
  		(progn
		  (DL_InputBC)
		)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;定义桩号
(defun c:pmdyzh	()
  (En_Reactor)
  (setq *error* global_err)
  	(if (/= (DL_ProjectProDeal) -1)
  		(progn
		  (Dl_DefineStake 0)
		)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;修改桩号
(defun c:pmxgzh	()
  (En_Reactor)
  (setq *error* global_err)
  	(if (/= (DL_ProjectProDeal) -1)
  		(progn
		  (Dl_UnDefineStake 0)
		)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;定义主桩号
(defun c:pmdyzzh ()
  (En_Reactor)
  (if (/= (DL_ProjectProDeal) -1)
  	(Dl_SetMainStake)
	)
  (Un_Reactor)
  (princ)
)
;;;桩号标注设置
(defun c:pmzhsz	()
  (En_Reactor)
  (if (/= (DL_ProjectProDeal) -1)
  	(Dl_DimStake 0)
	)
  (Un_Reactor)
)
;;;自动标注桩号
(defun c:pmzdbz	()
  (En_Reactor)
  ;;(setq *error* global_err)
	(if (/= (DL_ProjectProDeal) -1)
  		(progn
		  (Dl_DimStake 1)
		)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;点取标注桩号
(defun c:pmdqbz	()
  (En_Reactor)
  (setq *error* global_err)
	(if (/= (DL_ProjectProDeal) -1)
  	(progn
		  (Dl_DimStake 3)
		)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;输入标注桩号
(defun c:pmsrbz	()
  (En_Reactor)
  (setq *error* global_err)
	(if (/= (DL_ProjectProDeal) -1)
  		(progn
		  (Dl_DimStake 2)
		)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;清除桩号代号
(defun c:pmqczhdh ()
  (En_Reactor)
  (if (/= (DL_ProjectProDeal) -1)
  	(Dl_ClearStakeCode)
	)
  (Un_Reactor)
  (princ)
)
;;;生成桩号列表
(defun c:pmsczhlb ()
  (En_Reactor)
  (#ppas "pm_line")
  (CREATE_STAKE_LIST) 
  (#ppuas "pm_line")
  (Un_Reactor)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;新桩号系统结束;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:ZhToolBar ()
	(hy_showmenu "ID_ZhSys")
)
(defun c:ZhToolBar_Old ()
	(hy_showmenu "ID_ZhSys_Old")
)

;;;中心线定义
(defun c:AxisDef()
  (En_Reactor)
  (#ppas "pm_line")
  (axisdef)
  (#ppuas "pm_line")
  (Un_Reactor)
  (princ)
)
;;;导线法设计工具条
(defun c:DaoXianFa_ToolBar ()
	(hy_showmenu "ID_Pm_DaoXianFa")
)

;;;导线法设计
(defun c:dxfsj ()
  (En_Reactor)
  (#ppas "pm_line")
  (setvar "CMDECHO" 0)
  (command "TraverDesign")
  (setvar "CMDECHO" 1)
  (Un_Reactor)
  (princ)
)

;;;基本型缓和曲线设计
(defun c:jbxqx ()
  (En_Reactor)
  (#ppas "pm_line")
  (jbxqx)
  (#ppuas "pm_line")
  (Un_Reactor)
  (princ)
)

;;;同向复曲线设计
(defun c:txfqx ()
  (En_Reactor)
  (#ppas "pm_line")
  (txfqx)
  (#ppuas "pm_line")
  (Un_Reactor)
  (princ)
)

;;;凸形曲线设计
(defun c:txqx ()
  (En_Reactor)
  (#ppas "pm_line")
  (txqx)
  (#ppuas "pm_line")
  (Un_Reactor)
  (princ)
)

;;;单交点五单元曲线
(defun c:djdwqyqx ()
  (En_Reactor)
  (#ppas "pm_line")
  (djdwdy)
  (#ppuas "pm_line")
  (Un_Reactor)
  (princ)
)

;;;回头曲线设计
(defun c:DLhtqx ()
  (En_Reactor)
  (#ppas "CurveDesign")
  (Ic_HTQX)
  (#ppuas "CurveDesign")
  (Un_Reactor)
  (princ)
)

;;;五单元回头曲线
(defun c:wdyhtqx ()
  (En_Reactor)
  (#ppas "pm_line")
  (wdyhtqx)
  (#ppuas "pm_line")
  (Un_Reactor)
  (princ)
)

;;;导线法S/C型曲线设计
(defun c:TraverSC ()
  (En_Reactor)
  (#ppas "pm_line")
  (TraverS_C)
  (#ppuas "pm_line")
  (Un_Reactor)
  (princ)
)
;;;曲线法设计工具条
(defun c:QuXianFa_ToolBar ()
	(hy_showmenu "ID_Pm_QuXianFa")
)
;;;曲线法设计卵型缓和段
(defun c:yyl ()
  (En_Reactor)
  (#ppas "CurveDesign")
  (Ic_L)
  (#ppuas "CurveDesign")
  (Un_Reactor)
  (princ)
)
;;;曲线法设计S型缓和段
(defun c:yys ()
  (En_Reactor)
  (#ppas "CurveDesign")
  (Ic_S)
  (#ppuas "CurveDesign")
  (Un_Reactor)
  (princ)
)
;;;曲线法设计C型缓和段
(defun c:yyc ()
  (En_Reactor)
  (#ppas "CurveDesign")
  (Ic_C)
  (#ppuas "CurveDesign")
  (Un_Reactor)
  (princ)
)
;;曲线法设计直缓型缓和段
(defun c:zy ()
  (En_Reactor)
  (#ppas "CurveDesign")
  (Ic_ZY)
  (#ppuas "CurveDesign")
  (Un_Reactor)
  (princ)
)

;;;2003/4 增加命令c:cgjksj
(defun c:cgjksj()
  (En_Reactor)
  (#ppas "pm_line")
  (if (/= (DL_ProjectProDeal) -1)
  	(cgjksj)
	)
  (#ppuas "pm_line")
  (Un_Reactor)
)
;;;2007/9 增加命令c:NewGgTFile
(defun c:NewGgTFile()
  (En_Reactor)
  (#ppas "pm_line")
  	(pmLine_NewCgTFile)
  (#ppuas "pm_line")
  (Un_Reactor)
)

;;;显示裁图工具条
(defun c:CaiTuSysToolBar ()
	(hy_showmenu "ID_PM_CTSys")
)

;;;新布局裁图
;;;显示新布局裁图工具调
(defun c:BuJuCaiTuToolBar ()
	(hy_showmenu "ID_PM_BUJUCAITU")
)
;;;页面定义
(defun c:BuJu_CreateFrame()
　(En_Reactor)  
　(setq *error* global_err)
  (#ppas "Drawroad")
　(DrawRoad_BuJu_CreateFrame)
  (setq *error* nil)
  (Un_Reactor)
)
;;;页面编辑
(defun c:BuJu_EditFrame()
　(En_Reactor)  
　(setq *error* global_err)
  (#ppas "Drawroad")
　(DrawRoad_BuJu_EditFrame)
  (setq *error* nil)
  (Un_Reactor)
)
;;;页面编号
(defun c:BuJu_BHFrame()
　(En_Reactor)  
　(setq *error* global_err)
  (#ppas "Drawroad")
　(DrawRoad_BuJu_BHFrame)
  (setq *error* nil)
  (Un_Reactor)
)
;;;裁图
(defun c:BuJu_CaiTu()
　(En_Reactor)  
　(setq *error* global_err)
  (#ppas "Drawroad")
　(DrawRoad_BuJu_CaiTu)
  (setq *error* nil)
  (Un_Reactor)
)
;;;新自动裁图
(defun c:newpmzdct()
　(En_Reactor)  
　(setq *error* global_err)
	(#ppas "Drawroad")
　(DLPM_CUTDWG)
  (setq *error* nil)
  (Un_Reactor)
)
;;;调试平面裁图
(defun c:ctdebug ()
　(En_Reactor)  
　(setq *error* global_err)
	(#ppas "Drawroad")
　(DLPM_DEBUG_CUTDWG)
  (setq *error* nil)
  (Un_Reactor)
)
;;;新布局裁图
(defun c:PMZDCT_BUJU()
  (En_Reactor)
  (#ppas "Drawroad")
　(DrawRoad_TrimDwgToPaperSpace)
  (Un_Reactor)
)
;;;自动裁图(整合)
(defun c:PlanPlot()
  (En_Reactor)
  (#ppas "Drawroad")
　(DrawRoad_PlanPlot)
  (Un_Reactor)
)
;(defun c:pmzdct_BuJu	()
;  (En_Reactor)
;  (setq *error* global_err)
;  (szload pmctinps "pmctinps.LSP")
;  (pmctinps)
;  (setq *error* nil)
; (Un_Reactor)
;)
(defun c:BuJu_DrawCtx	()
  (En_Reactor)
  (setq *error* global_err)
  (szload draw_ctx "editctx.LSP")
  (draw_ctx)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:BuJu_DragCtx	()
  (En_Reactor)
  (setq *error* global_err)
  (szload drag_ctx "editctx.LSP")
  (drag_ctx)
  (setq *error* nil)
  (Un_Reactor)
)

;;;统计平面工程量
(defun c:pmtjgchl()
  (En_Reactor)
  (#ppas "pm_line")
  (pmLine_CalcWorkAmount)
  (#ppuas "pm_line")
  (Un_Reactor)
)

;;;平面规范检查
(defun c:pmgfjc()
  (En_Reactor)
  (#ppas "pm_line")
  (pmLine_GuiFanJiancha)
  (#ppuas "pm_line")
  (Un_Reactor)
)
;;;-----------------------------------渠化--------------------------------------
;;显示渠化工具条
(defun c:QhToolBar ()
	(hy_showmenu "ID_QH_Proc")
)

;;;右转车道
(defun c:yzcd()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_DrawYzcd)
  (Un_Reactor)
)
;;导流岛
(defun c:dld()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_DrawDld)
  (Un_Reactor)
)
;;;坡道
(defun c:pd()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_DrawPD)
  (Un_Reactor)
)
;;;视距三角形
(defun c:sjsjx()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_DrawSjsjx)
  (Un_Reactor)
)

;;;通道设计
(defun c:tdsj()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_TongDaoSheJi)
  (Un_Reactor)
)

;;;港湾停靠站
(defun c:gwtkz()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_GangWanTingKaoZhan)
  (Un_Reactor)
)
;;;-----------------------------------编辑--------------------------------------
;;;道路延伸
(defun c:bjdlys	()
  (En_Reactor)
  (setq *error* global_err)
  (szload g_st_road "bj_rdbj")
  (g_st_road)
  (setq *error* nil)
  (Un_Reactor)
)

;;;道路删除
(defun c:bjdlsc()
  (En_Reactor)
  (#ppas "drawroad")
  (DelRoad)
  (Un_Reactor)
)

;;;交互倒角
(defun c:bjdldj	()
  (En_Reactor)
  (setq *error* global_err)
  (szload road_dj "bj_rdbj")
  (road_dj)
  (setq *error* nil)
  (Un_Reactor)
)
;;;改转弯半径
(defun c:bjzwbj	()
  (En_Reactor)
  (setq *error* global_err)
  (szload bj_ch_rdr "bj_rdbj")
  (bj_ch_rdr)
  (setq *error* nil)
  (Un_Reactor)
)
;;;--------------------
;;;交叉路口处理工具条
(defun c:JckProcToolBar ()
	(hy_showmenu "ID_BJ_JckProc")
)
;;;交叉处理-->>
(defun c:bjjccl	()
  (En_Reactor)
  (#ppas "dl_dj")
  (HY_SV)
  (c:dl_dj)
  (HY_RV)
  (#ppuas "dl_dj")
  (Un_Reactor)
  (princ)
)
;;;环形交叉
(defun c:bjhxjc	()
  (En_Reactor)
  (setq *error* global_err)
  (szload zxht "bj_rdbj")
  (zxht)
  (setq *error* nil)
  (Un_Reactor)
)
;;;改弧缘石半径
(defun c:bjdhbj	()
  (En_Reactor)
  (#ppas "dl_dj")
  (HY_SV)
  (mod_rad)
  (HY_RV)
  (#ppuas "dl_dj")
  (Un_Reactor)
  (princ)
)
;;;切人行道
(defun c:bjqrxd	()
  (En_Reactor)
  (setq *error* global_err)
  (szload #rxda2l "bj_rdbj")
  (#rxda2l)
  (setq *error* nil)
  (Un_Reactor)
)
;;;交互切角
(defun c:bjjhqj	()
  (En_Reactor)
  (setq *error* global_err)
  (szload dljhqj "bj_rdbj")
  (dljhqj)
  (setq *error* nil)
  (Un_Reactor)
)
;;;切角修改
(defun c:bjqjxg	()
  (En_Reactor)
  (setq *error* global_err)
  (szload dlqjxg "dim_pmbz")
  (dlqjxg)
  (setq *error* nil)
  (Un_Reactor)
)
;;;喇 叭 口
(defun c:bjlbk ()
  (En_Reactor)
   (#ppas "drawroad")
  (DL_Lkqh)
;;  (setq *error* global_err)
;;  (szload lkqh "hyszlkqh")
;;  (lkqh)
;;  (setq *error* nil)
  (Un_Reactor)
)

;;平面标注工具条
(defun c:PmDimToolToolBar ()
	(hy_showmenu "ID_BZ_Tool")
)
;;编辑其他工具条
(defun c:PmEditToolToolBar ()
	(hy_showmenu "ID_BJ_Tool")
)


;;;--------------------------------------
;;;交叉路口处理工具条
(defun c:LhdProcToolBar ()
	(hy_showmenu "ID_BJ_LhdProc")
)
;;;绿化带绘法一-->>
(defun c:bjhlhd	()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_DrawAlongLine)
  (Un_Reactor)
)
;;;绿化带绘法二
(defun c:bjhlhd1 ()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_DrawFreedom)
  (Un_Reactor)
)
;;;自动断绿化带
(defun c:bjzddlhd ()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_BreakAuto)
  (Un_Reactor)
)

;;;绿化带界面编辑程序
(defun c:EditDLLHD ()
  (En_Reactor)
  (#ppas "drawroad")
  (DRAWROAD_EditLhd)
  (Un_Reactor)
)

;;;断绿化带
(defun c:bjdlhd	()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_Break)
  (Un_Reactor)
)
;;;割绿化带
(defun c:bjglhd	()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_Cut)
  (Un_Reactor)
)
;;;绿化带界面编辑程序
(defun c:EditLHD ()
  (En_Reactor)
  (#ppas "drawroad")
  (DRAWROAD_EditLhd)
  (Un_Reactor)
)
;;;--------------------------------------
;;;交叉路口处理工具条
(defun c:FuZhuSheShiToolBar ()
	(hy_showmenu "ID_BJ_FuZhuSheShi")
)

;;;道路桥涵
(defun c:bjdlqh	()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_DrawFormation 0)
  (Un_Reactor)
)
;;;编辑道路桥涵
(defun c:bjdlqh1 ()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_DrawFormation 1)
  (Un_Reactor)
)
;;;路边停车场
(defun c:bjlbtcc ()
  (En_Reactor)
  (#ppas "drawroad")
  (DRAWROAD_DRAWLBTCC)
  (Un_Reactor)
)
;;;大型停车场
(defun c:bjtcc ()
  (En_Reactor)
  (setq *error* global_err)
  (szload park "park")
  (park)
  (setq *error* nil)
  (Un_Reactor)
)
;;;回 车 场
(defun c:bjhcc ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dl_hcc "dl_hcc")
  (dl_hcc)
  (setq *error* nil)
  (Un_Reactor)
)
;;;出入口
(defun c:bjcrk ()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_Crk)
  (Un_Reactor)
  (princ)
)
;;;绘制人行横道线
(defun c:bjrxhd	()
  (En_Reactor)
  (setq *error* global_err)
  (szload rxhd "bj_fzss")
  (rxhd)
  (setq *error* nil)
  (Un_Reactor)
)
;;;-----------------------------------------
;;;人行道树坑
(defun c:rxdsk()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_DrawShuKeng)
  (Un_Reactor)
  (princ)
)
;;;-----------------------------------------
;;;挡土平面
(defun c:bjdtpm	()
  (En_Reactor)
  (setq *error* global_err)
  (szload dw-gzw8 "bj_fzss")
  (dw-gzw8)
  (setq *error* nil)
  (Un_Reactor)
)
;;;挡土转弧
(defun c:bjdtzh	()
  (En_Reactor)
  (setq *error* global_err)
  (szload #dtq_arc "bj_fzss")
  (#dtq_arc)
  (setq *error* nil)
  (Un_Reactor)
)
;;;护    坡
(defun c:bjhp ()
  (En_Reactor)
  (setq *error* global_err)
  (szload #hhp "bj_fzss")
  (#hhp)
  (setq *error* nil)
  (Un_Reactor)
)

;;;-------------------------------<标注>-------------------------------------

;;;测量坐标标注
(defun c:bzzbbz	()
  ;;(szload wwsgbz "wwsgbz")
  ;;(wwclbz)
  (En_Reactor)
  (#ppas "drawroad")
  (MeasureCoordinateDim)
  (Un_Reactor)
  (princ)
)
;;;道宽尺寸自动标注
(defun c:bzlkzdbz ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dim_lkbz "dim_pmbz")
  (dim_lkbz)
  (setq *error* nil)
  (Un_Reactor)
)
;;;道宽交互点取标注
(defun c:bzlkjhbz ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dim_lkjhbz "dim_pmbz")
  (dim_lkjhbz)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:bzdhbz	()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_CrossingArcDim)
  (Un_Reactor)
)
;;;交叉口切角标注dim_qjbz
(defun c:bzqjbz	()
  (En_Reactor)
  (setq *error* global_err)
  (szload dim_qjbz "dim_pmbz")
  (dim_qjbz)
  (setq *error* nil)
  (Un_Reactor)
)
;;;平曲线参数标注
(defun c:bzpqxbz ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dim_curve_para "dim_pmbz")
  (dim_curve_para)
  (setq *error* nil)
  (Un_Reactor)
)
;;;平曲线参数标注新
(defun c:bzpqxbznew ()
  (En_Reactor)
  (#ppas "PlaneDim")
  (icdim_pccparam)
  (Un_Reactor)
)
;;;特征点标注字符设置
(defun c:PPCPointSet ()
  (En_Reactor)
  (#ppas "PlaneDim")
  (IcDim_PPCPointSet)
  (Un_Reactor)
)
;;;车道标注DimRoadway
(defun c:bzcdbz	()
  (En_Reactor)
  (#ppas "drawroad")
  (DimRoadway)
  (Un_Reactor)
)
;;;车道边线标注
(defun c:cdbxbz	()
  (En_Reactor)
  (#ppas "drawroad")
  (drawroad_dim_borderline)
  (Un_Reactor)
)
;;;方位角标注dim_fwjbz
(defun c:bzfwjbz ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dim_fwjbz "dim_pmbz")
  (dim_fwjbz)
  (setq *error* nil)
  (Un_Reactor)
)
;;;道路坐标标注
(defun c:blzb ()
  (En_Reactor)
  (#ppas "drawroad")
  (drawRoad_coordElevDim)
  (Un_Reactor)
)

;;;绘转弯弧交点
;;(defun c:hhjd()
;; (En_Reactor)
;; (#ppas "pm_line")
;; (hz_qxjd)
;; (#ppuas "pm_line")
;; (Un_Reactor)
;;)

;;;交点标注
;;(defun c:hhjd ()
;;  (En_Reactor)
;;  (#ppas "pm_line")
;;  (hz_qxjd)
;;  (#ppuas "pm_line")
;;  (Un_Reactor)
;;  (princ)
;;)

;;;新绘制平曲线交点（立交里的“交点标注”）
(defun c:hhjd ()
  (En_Reactor)
  (#ppas "PlaneDim")
  (IcDim_InterPt)
  (#ppuas "PlaneDim")
  (Un_Reactor)
  (princ)
)

;;;----------------commands of pop6 <纵断>---------------

;;;纵断表头定制
(defun c:zdbt ()
  (En_Reactor)
  (#ppas "zdmdsgn")
  (if (/= (DL_ProjectProDeal) -1)
  	(arx_zdmbtsz)
	)
  (Un_Reactor)
  (princ)
)
;;;交互输入纵断自然标高
(defun c:zdinputbgz()
  (En_Reactor)
  (setq *error* global_err)
  (dl_arxload "zdmdsgn")
  (Zdm_InputZrg 2)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;交互输入纵断设计标高
(defun c:zdinputbgs()
  (En_Reactor)
  (setq *error* global_err)
  (dl_arxload "zdmdsgn")
  (Zdm_InputZrg 1)   
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;地形图提取自然标高(新)
(defun c:zdDxtTiQuZrg()
  (En_Reactor)
  (setq *error* global_err)
  (dl_arxload "zdmdsgn")
  (Zdm_DxtTiQuZrg)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
(defun c:ZdmCeLiangTuTiQu ()
  (En_Reactor)
  (setq *error* global_err)
  (dl_arxload "zdmdsgn")
  (Zdm_CeLiangTuTiQu)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
;;;由横断自然标高文件生成
(defun c:zdbghbgz ()
  (En_Reactor)
  (#ppas "zdmdsgn")
  (if (/= (DL_ProjectProDeal) -1)
  	(arx_bghtobgz)
	)  
  (Un_Reactor)
  (princ)
)
;;;定义拉坡参考点
(defun c:dylpckd ()
  (En_Reactor)
  (#ppas "zdmdsgn")
  (if (/= (DL_ProjectProDeal) -1)
  	(arx_defrfd)
	)  
  (Un_Reactor)
)
;;;纵断面设计
(defun c:zdsqxsj ()
  (En_Reactor)
  (#ppas "zdmdsgn")
  (HY_SV)
  (if (/= (DL_ProjectProDeal) -1)
  	(arx_sqxdsgn)
	)  
  (HY_RV)
  (Un_Reactor)
)

;;;纵断面设计
(defun c:zdmsj ()
  (En_Reactor)
  (#ppas "zdmdsgn")
  (HY_SV)
  (if (/= (DL_ProjectProDeal) -1)
  	(ZDM_Design)
	)  
  (HY_RV)
  (Un_Reactor)
)

;;;求任意桩设计高
(defun c:zdcalsjg()
  (En_Reactor)
  (setq *error* global_err)
  (DL_Arxload "zdmdsgn")
  (if (/= (DL_ProjectProDeal) -1)
  	(arx_calsjg)
	)
  (Un_Reactor)
  (setq *error* nil)
  (princ)
)

;;;纵断面绘制
(defun c:zdhz ()
  (En_Reactor)
  (setq *error* global_err)
  (szload hyzdmdgn "hyzdmdgn")
  (if (/= (DL_ProjectProDeal) -1)
  	(hyzdmdgn)
	)
  (setq *error* nil)
  (Un_Reactor)
)

;;;纵断面绘制(New)
(defun c:zdhzNew ()
  (En_Reactor)
  (#ppas "zdmdsgn")
  (zdm_draw)
  (Un_Reactor)
)
;;;旧路补强纵断面设计
(defun c:jlbqsj ()
  (En_Reactor)
  (#ppas "zdmdsgn")
  (HY_SV)
  (if (/= (DL_ProjectProDeal) -1)
  	(DL_Jlbq)
	) 
  (HY_RV)
  (Un_Reactor)
  (princ)
)

;;;合成坡度计算
(defun c:CalcHcpd ()
  (En_Reactor)
  (setq *error* global_err)
  (dl_arxload "zdmdsgn")
  (Zdm_CalcHcpd)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;纵断技术指标
(defun c:zdjszb ()
  (En_Reactor)
  (setq *error* global_err)
  (dl_arxload "zdmdsgn")
  (Zdm_Jszb)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;纵断地质概况数据定义
(defun c:dizhigaikuang ()
  (En_Reactor)
  (setq *error* global_err)
  (dl_arxload "zdmdsgn")
  (ZDM_DiZhiGaiKuang)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;纵断面规范检查
(defun c:zdmgfjc()
  (En_Reactor)
  (#ppas "ZdmDsgn")
  (ZDM_GuiFanJianCha)
  ;;;(#ppuas "ZdmDsgn")
  (Un_Reactor)
)

;;;纵断面凸形竖曲线满足视距的最小竖曲线长度计算
(defun c:zdmsjjst()
  (En_Reactor)
  (#ppas "ZdmDsgn")
  (ZDM_ShiJuJiSuan_TuXing)
  (Un_Reactor)
)

;;;纵断面凹形竖曲线满足视距的最小竖曲线长度计算
(defun c:zdmsjjsa()
  (En_Reactor)
  (#ppas "ZdmDsgn")
  (ZDM_ShiJuJiSuan_AoXing)
  (Un_Reactor)
)
;;;-----------------------------------横断--------------------------------------
;;;地形图提取自然标高
(defun c:hddxtzrbg ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(Hdm_DxtTiQuZrg)
  )  
  (setq *error* nil)
  (Un_Reactor)
)
;;;交互输入自然标高
(defun c:hdsrzrbg ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(Hdm_InputZrg)
  )  
  (setq *error* nil)
  (Un_Reactor)
)
;;;标准断面hdbzdm
(defun c:hdbzdm	()
  (En_Reactor)
  (#ppas "pm_line.arx")
  (if (/= (DL_ProjectProDeal) -1)
  	(dmbzdm)
	)  
  (#ppuas "pm_line.arx")
  (Un_Reactor)
)

;;;边坡参数定义
(defun c:hdbpcsOld	()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(Hdm_SpdDefineNew)
  )  
  (setq *error* nil)
  (Un_Reactor)
)

(defun c:hdbpcs()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(Hdm_DefineSlpStyle)
  )  
  (setq *error* nil)
  (Un_Reactor)
)

;;;挡土墙设计工具条
(defun c:DtqToolBar ()
	(hy_showmenu "ID_HD_DTQ")
)
;;;挡土墙定义
(defun c:DtqDefine	()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(DlHdm_DtqDesign)
	)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;扩充挡土墙
(defun c:ExpandDtq()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(HDM_ExpandDTQ)
	)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;管理自定义挡土墙
(defun c:ManageCustomDtq()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(HDM_ManageCustomDTQ)
	)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
;;;
;;;挡土墙立面设计
(defun c:DtqLiMianDesign	()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(DlHdm_DtqLiMianDesign)
	)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
;;;
;;;挡土墙平立面出图设置
(defun c:DtqLiMianSet	()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(DlHdm_DtqLiMianSet)
	)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
;;;
;;;挡土墙伸缩缝设置
(defun c:DtqLiMianSSF	()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(DlHdm_DtqLiMianSSF)
	)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
;;;
;;;挡土墙平立面绘制
(defun c:DtqLiMianDraw	()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(DlHdm_DtqPmLmDraw)
	)  
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
;;;
;;;换土层厚度定义
(defun c:hthdef	()
  (En_Reactor)
  (DL_ArxLoad "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(DLHdm_DefHhthd)
	)  
  (Un_Reactor)
  (princ)
)
;;;换土层厚度定义(New)
(defun c:hthdefNew	()
  (En_Reactor)
  (DL_ArxLoad "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(DLHdm_DefHhthd_New)
	)  
  (Un_Reactor)
  (princ)
)
;;;出图设置
(defun c:hdctsz_new	()
  (En_Reactor)
  (DL_ArxLoad "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(DLHdm_DrawingSet_New)
	)
  (Un_Reactor)
  (princ)
)

;;;横断面计算绘图
(defun c:hdmjsht_new	(/ w_ptb)
  (En_Reactor)
  (setq *error* global_err)
	(if (/= (DL_ProjectProDeal) -1)
  	(progn
		  (DL_ArxLoad "TransectDesign")
		  (HY_SV)
		  ;;(DL_MakeLayer "PP-PM-TK")
		  (setq w_ptb (DLHDM_CALDRAW_NEW))
		  (HY_RV)
		)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;征地线
(defun c:hdzdx ()
  (En_Reactor)
  (setq *error* global_err)
  ;;(szload hd_zdx "hd_zdx")
  (#ppas "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	;;;(hd_zdx)
  	(DLHDM_DrawZhengDiXian)
	)  
  (setq *error* nil)
  (Un_Reactor)
)
;;;示坡线
(defun c:DrawShiPoXian ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(Dlhdm_DrawShiPoXian)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;挖台阶处理
(defun c:wtj ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(HDM_DRAW_TAIJIE)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;更新横断面
(defun c:UpdateHDM ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(HDM_ModifyTS)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;标准横断面
(defun c:hdbzhdm ()
 (En_Reactor)
 (setq *error* global_err)
 (szload $bzhdm "$std_hdm")
 ($bzhdm)
 (setq *error* nil)
 (Un_Reactor)
 (princ)
)
;;;横断交叉口土方
(defun c:hdJckTf ()
 (En_Reactor)
 (setq *error* global_err)
 (#ppas  "drawroad")
 (RoadCrosswayDefine)
 (setq *error* nil)
 (Un_Reactor)
 (princ)
)
;;;路面结构绘制
(defun c:dllmjg	()
  (En_Reactor)
  (setq *error* global_err)
  (szload ?dl_lmjg "dl_lmjg")
  (?dl_lmjg)
  (setq *error* nil)
  (Un_Reactor)
)
;;;路拱曲线 new
(defun c:hdlgqx	()
  (En_Reactor)
  (#ppas "TransectDesign")
  (Hdm_RoadCoveDraw)
  (Un_Reactor)
)

;;;----------------commands of pop11 <表类>---------------

;;;平曲线表
(defun c:blpqxb ()
  (En_Reactor)
  (setq *error* global_err)
       (dl_arxload "bl_word")
       (pqxb)
       (arxunload "bl_word")
  (setq *error* nil)
  (Un_Reactor)
)
;;;单元要素表
(defun c:bl_dyysb ()
  (En_Reactor)
  (setq *error* global_err)
  (dl_arxload "pm_line")
  (draw_dyysb)
  (arxunload "pm_line")
  (setq *error* nil)
  (Un_Reactor)
)
;;;土方计算表
(defun c:bltfb ()
  (En_Reactor)
  (setq *error* global_err)
  (dl_arxload "bl_word")
  (tfjsb)
  (arxunload "bl_word")
  (setq *error* nil)
  (Un_Reactor)
)
;;;边坡面积表
(defun c:bpmjb ()
  (En_Reactor)
  (setq *error* global_err)
  (setq *error* global_err)
  (dl_arxload "bl_word")
  (BL_DrawSSAT)
  (arxunload "bl_word")
  (setq *error* nil)
  (Un_Reactor)
)
;;;边坡护坡工程量表
(defun c:tjhpgclb ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(Hdm_DrawTongJiHuPo)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;边坡护坡工程量表
(defun c:bphpgclb ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(Hdm_DrawHPStatistics)
	)
  (setq *error* nil)
  (Un_Reactor)
)
;;;加宽面积表
(defun c:bljkb()
  (En_Reactor)
  (#ppas "pm_line")
  (if (/= (DL_ProjectProDeal) -1)
  	(BL_jkmjb)
	)
  (#ppuas "pm_line")
  (Un_Reactor)
)

(defun c:blzzzbb ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas "bl_word")
  (if (/= (DL_ProjectProDeal) -1)
  	(Bl_DrawZzzbb)
  )  
  (#ppuas "bl_word")
   (setq *error* nil)
  (Un_Reactor)
)
;;;占地面积表
(defun c:blzdmjb ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas "bl_word")
  (if (/= (DL_ProjectProDeal) -1)
  	(zdmjb)
	)
  (#ppuas "bl_word")
  (setq *error* nil)
  (Un_Reactor)
)
;;;路基设计表
(defun c:blljsjb ()
  (En_Reactor)
  (setq *error* global_err)
  (#ppas "bl_word")
  (if (/= (DL_ProjectProDeal) -1)
  	(ljsjb)
	)
  (#ppuas "bl_word")
  (setq *error* nil)
  (Un_Reactor)
)
;;;路基土石方计算表
(defun c:blljtsfNew()
  (En_Reactor)
  (#ppas "Bl_Word")
  (setq *error* global_err)
  (if (/= (DL_ProjectProDeal) -1)
  	(bl_LuJiTuShiFangJSB)
	)    
  (#ppuas "Bl_Word")
  (setq *error* nil)
  (Un_Reactor)
)

;;;竖曲线表
(defun c:sqxb ()
  (En_Reactor)
  (#ppls "hyszdlsz")
  (setq *error* global_err)
  (#ppas "zdmdsgn")
  (if (/= (DL_ProjectProDeal) -1)
  	(arx_sqxTable)
	)
  (setq *error* nil)
  (Un_Reactor)
)

;;清除表土工程量表
(defun c:qcbtgclb()
  (En_Reactor)
  (#ppas "Bl_Word")
  (setq *error* global_err)
  (if (/= (DL_ProjectProDeal) -1)
  	(Bl_QingChuBiaoTuGCLB)
	)    
  (#ppuas "Bl_Word")
  (setq *error* nil)
  (Un_Reactor)
)

;;涵洞数量估算表
(defun c:hdslgsb()
  (En_Reactor)
  (#ppas "Bl_Word")
  (setq *error* global_err)
  (if (/= (DL_ProjectProDeal) -1)
  	(Bl_HanDongShuLiangGSB)
	)    
  (#ppuas "Bl_Word")
  (setq *error* nil)
  (Un_Reactor)
)

;;交通标志布设一览表
(defun c:jtbzbsylb()
  (En_Reactor)
  (#ppas "Bl_Word")
  (setq *error* global_err)
  (bl_JiaoTongBiaoZhiYLB)
  (#ppuas "Bl_Word")
  (setq *error* nil)
  (Un_Reactor)
)
;;路面、路缘石工程量表
(defun c:lmlys()
  (En_Reactor)
  (#ppas "pm_line")
  (setq *error* global_err)
  (pmline_calcworkAmount_fordz)
  (#ppuas "pm_line")
  (setq *error* nil)
  (Un_Reactor)
)
;;路基防护统计表
(defun c:ljfhtjb()
  (En_Reactor)
  (#ppas "TransectDesign")
  (setq *error* global_err)
  (Hdm_TongJiHuPo_XmszyDz)
  (setq *error* nil)
  (Un_Reactor)
)
;;导线点成果表
(defun c:dxdcgb()
  (En_Reactor)
  (#ppas "Bl_Word")
  (setq *error* global_err)
  (if (/= (DL_ProjectProDeal) -1)
  	(bl_DaoXianDianCGB)
	)    
  (#ppuas "Bl_Word")
  (setq *error* nil)
  (Un_Reactor)
)
;;11个空表
(defun c:kb()
  (En_Reactor)
  (#ppas "Bl_Word")
  (setq *error* global_err)
  (bl_drawkb)
  (#ppuas "Bl_Word")
  (setq *error* nil)
  (Un_Reactor)
)

;;总里程及断链桩号表
(defun c:stakebc()
  (En_Reactor)
  (#ppas "Bl_Word")
  (setq *error* global_err)
  (BL_StakeBC)
  (#ppuas "Bl_Word")
  (setq *error* nil)
  (Un_Reactor)
)
;;;----------------commands of pop13 <街景>---------------
(defun c:trr2 ()
  (En_Reactor)
  (setq *error* global_err)
  (szload laytree_line "laytree")
  (laytree_line)
  (setq *error* nil)
  (Un_Reactor)
)
;;;单点布置
(defun c:trr4 ()
  (En_Reactor)
  (setq *error* global_err)
  (szload #tree4 "laytree")
  (#tree4 1)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:3dtree ()
  (En_Reactor)
  (setq *error* global_err)
  (szload hysz_ins_tkk "HYSZDLSZ")
  (hysz_ins_tkk "PP-3D-TREE" "三维树")
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:3dblk ()
  (En_Reactor)
  (setq *error* global_err)
  (szload hysz_ins_tkk "HYSZDLSZ")
  (hysz_ins_tkk "PP-3D-BLKS" "其他三维图块")
  (setq *error* nil)
  (Un_Reactor)
)
;;;三维人物
(defun c:3dr ()
  (En_Reactor)
  (setq *error* global_err)
  (szload hysz_ins_tkk "HYSZDLSZ")
  (hysz_ins_tkk "PP-PJ-3DR" "三维人物")
  (setq *error* nil)
  (Un_Reactor)
)
;;;平面树转三维
(defun c:2dtr3d ()
  (En_Reactor)
  (setq *error* global_err)
  (szload 2dtr3d "@T_TFWG")
  (2dtr3d)
  (setq *error* nil)
  (Un_Reactor)
)
;;;三维树转平面
(defun c:3dtr2d	()
  (En_Reactor)
  (setq *error* global_err)
  (szload 3dtr2d "@T_TFWG")
  (3dtr2d)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:scts ()
  (En_Reactor)
  (setq *error* global_err)
  (if (null ~ts_draw)
    (#ppls "szdldx3d")
  )
  (~ts_draw 1)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:tspy ()
  (En_Reactor)
  (setq *error* global_err)
  (if (null ~ts_draw)
    (#ppls "szdldx3d")
  )
  (~ts_draw 2)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:tsspxz	()
  (En_Reactor)
  (setq *error* global_err)
  (if (null ~ts_draw)
    (#ppls "szdldx3d")
  )
  (~ts_draw 3)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:tsczxz	()
  (En_Reactor)
  (setq *error* global_err)
  (if (null ~ts_draw)
    (#ppls "szdldx3d")
  )
  (~ts_draw 4)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:xr_cl ()
  (En_Reactor)
  (setq *error* global_err)
  (if (null ?xr_cl)
    (#ppls "@T_TFWG")
  )
  (?xr_cl)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:lhdtc ()
  (En_Reactor)
  (#ppas "drawroad")
  (DrawRoad_Fill)
  (Un_Reactor)
)
;;;add yft 99.11.12
(defun c:jzw_bz	()
  (En_Reactor)
  (setq *error* global_err)
  (if (null ?jj_3djzw)
    (#ppls "laytree")
  )
  (?jj_3djzw)
  (setq *error* nil)
  (Un_Reactor)
)

;;;----------------commands of pop14 <工具>---------------
;;;删除实体扩展数据
(defun c:EntityDataDel	()
  (En_Reactor)
  (setq *error* global_err)
  (SysSet_EntityDataDel)
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
;;;

;;;非高程线转层
(defun c:NotGcxToLayer	()
  (En_Reactor)
  (setq *error* global_err)
  (szload ChangePmCurveLayer "SZDLDXBG")
  (ChangePmCurveLayer)
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;Z坐标转0
(defun c:ZToZero()
  (En_Reactor)
  (setq *error* global_err)
  (szload elev_to_zero "szdltool")
  (elev_to_zero)
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)

;;;转PLINE线
(defun c:to_pline()
  (En_Reactor)
  (setq *error* global_err)
  (szload to_pline "szdltool")
  (to_pline)
  (setq *error* nil)
  (Un_Reactor)
  (princ)
) 

;;;
(defun c:tkgl ()
  (En_Reactor)
  (DL_ArxLoad "GalleryManage")
  (DL_GalleryManage)
  (arxunload "GalleryManage")
  (Un_Reactor)
  (princ)
)
;;;道路详图
(defun c:dlxt ()
  (En_Reactor)
  (DL_ArxLoad "GalleryManage")
  (dl_xiangtu_gallery)
  (arxunload "GalleryManage")
  (Un_Reactor)
  (princ)
)
;;
;;显示图层控制
(defun c:Show_LayerCtrlBar( / )
	(hy_showmenu "ID_tool_LayerCtrl")
)
;;冻结选中的层
(defun C:FreezeSelLayer( / )
  (En_Reactor)
  (setq *error* global_err)
  (szload laycz "szdltool")
  (lay00 "f")
  (setq *error* nil)
  (Un_Reactor)
	
)
;;冻结除选中层外的所有层
(defun c:FreezeAllLayerButSel( / )
  (En_Reactor)
  (setq *error* global_err)
  (szload laycz "szdltool")
  (lay11 "f")
  (setq *error* nil)
  (Un_Reactor)
	
)

;;锁定选中的层
(defun c:LockSelLayer( / )
  (En_Reactor)
  (setq *error* global_err)
  (szload laycz "szdltool")
  (lay00 "lo")
  (setq *error* nil)
  (Un_Reactor)
	
)

;;锁定除选中层以外的所有层
(defun c:LockAllLayerButSel( / )
  (En_Reactor)
  (setq *error* global_err)
  (szload laycz "szdltool")
  (lay11 "lo")
  (setq *error* nil)
  (Un_Reactor)
	
)

;;关闭选中的层
(defun c:ShutSelLayer( / )
  (En_Reactor)
  (setq *error* global_err)
  (szload laycz "szdltool")
  (lay00 "off")
  (setq *error* nil)
  (Un_Reactor)
	
)

;;关闭除选中层以外的所有层
(defun c:ShutAllLayerButSel( / )
  (En_Reactor)
  (setq *error* global_err)
  (szload laycz "szdltool")
  (lay11 "off")
  (setq *error* nil)
  (Un_Reactor)
	
)

;;所有层解冻
(defun c:UnFreezeAllLayer( / )
  (En_Reactor)
  (setq *error* global_err)
  (szload laycz "szdltool")
  (lay22 "t")
  (setq *error* nil)
  (Un_Reactor)
	
)

;;所有层解锁
(defun c:UnLockAllLayer( / )
  (En_Reactor)
  (setq *error* global_err)
  (szload laycz "szdltool")
  (lay22 "u")
  (setq *error* nil)
  (Un_Reactor)
	
)

;;所有层打开
(defun c:OpenAllLayer( / )
  (En_Reactor)
  (setq *error* global_err)
  (szload laycz "szdltool")
  (lay22 "on")
  (setq *error* nil)
  (Un_Reactor)
	
)

;;;文字样式替换
(defun c:ReplaceTxtStyle ()
  (En_Reactor)
  (TOOL_ReplaceTxtStyle)
  (Un_Reactor)
  (princ)
)
;;;自动截取小数点后的0
(defun c:CutZeros ()
  (En_Reactor)
  (DL_ArxLoad "Drawroad")
  (DrawRoad_CutZeros)
  (arxunload "Drawroad")
  (Un_Reactor)
  (princ)
)
;;;
(defun c:qhc ()
  (En_Reactor)
  (setq *error* global_err)
  (szload qhlay "szdltool")
  (qhlay)
  (setnil)
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
;;;
(defun c:gtc ()
  (En_Reactor)
  (setq *error* global_err)
  (szload ggtc "szdltool")
  (ggtc)
  (setnil)
  (setq *error* nil)
  (Un_Reactor)
  (princ)
)
;;;
(defun c:jbfy ()
  (En_Reactor)
  (setq *error* global_err)
  (szload pm_part_cut "HYSZDLSZ")
  (pm_part_cut t)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:txsc ()
  (setq *error* global_err)
  (szload dwg_output "hyszdlsz")
  (dwg_output)
  (setq *error* nil)
)
;;;色块填充
(defun c:stc ()
  (En_Reactor)
  (setq *error* global_err)
  (szload #stc "szdltool")
  (#stc)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:gbzws ()
  (En_Reactor)
  (szload ~gbzws "szdltool")
  (~gbzws)
  (Un_Reactor)
)
;;;
(defun c:xxxk ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dw-ww1 "szdltool")
  (dw-ww1)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:mjjs ()
 (En_Reactor)
 (dl_arxload "earthwork")
 (mjjs)
 (dl_arxunload "earthwork")
 (Un_Reactor)
)
;;;
(defun c:csgt ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dwg_preproc "hyszdlsz")
  (dwg_preproc)
  (setq *error* nil)
  (Un_Reactor)
)
;;; 图面操作工具条
(defun c:Show_DwgProcToolBar()
	(hy_showmenu "ID_tool_DwgProc")
)
;;;
(defun c:dele ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dele "szdltool")
  (dele)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:purge_clear ()
  (En_Reactor)
  (setq *error* global_err)
  (szload purge&clear "szdltool")
  (purge&clear)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:len ()
  (En_Reactor)
  (setq *error* global_err)
  (szload $lengthen "szdltool")
  ($lengthen)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:pmove ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dw-move "szdltool")
  (dw-move "move")
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:pcopy ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dw-move "szdltool")
  (dw-move "copy")
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:prota ()
  (En_Reactor)
  (setq *error* global_err)
  (szload w_protat "szdltool")
  (w_protat)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:sblk ()
  (En_Reactor)
  (setq *error* global_err)
  (szload dw-sblk "szdltool")
  (dw-sblk)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:jhdh ()
  (En_Reactor)
  (setq *error* global_err)
  (szload #dljhdj "bj_rdbj")
  (#dljhdj)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:tkth ()
  (En_Reactor)
  (setq *error* global_err)
  (szload #tkth "laytree")
  (#tkth)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:bzj ()
  (En_Reactor)
  (setq *error* global_err)
  (#setangpt nil "")
  (Un_Reactor)
  (setq *error* nil)
  (princ)
)

;;;
(defun c:jcxdx ()
  (En_Reactor)
  (setq *error* global_err)
  (szload bj_chk_sline "bj_rdbj")
  (bj_chk_sline)
  (setq *error* nil)
  (Un_Reactor)
)
;;;add by wzy 2003-5-10 16:18 begin
;;;批量编辑
(defun c:pledit()
 (En_Reactor)
 (princ "pledit")
 (setq *error* global_err)
 (#ppls "szdltool")
 
  (batchedit)
  (setq *error* nil)
  (Un_Reactor)
)
;;;绘制锥坡
(defun c:zp()
  (En_Reactor)
  (setq *error* global_err)
	(#ppls "szdltool")
  (drawzp)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:ddx()
  (En_Reactor)
  (setq *error* global_err)
	(#ppas "drawroad")
	(drawroad_breakline)
  (setq *error* nil)
  (Un_Reactor)
)
(defun c:arrow()
  (En_Reactor)
  (setq *error* global_err)
	(#ppls "szdltool")
  (drawarrow)
  (setq *error* nil)
  (Un_Reactor)
)

	
;;;add by wzy 2003-5-10 16:18 end
;;;----------------commands of pop15 <文字>---------------
;;;修改truetype字型
(defun c:gttf ()
  (En_Reactor)
  (setq *error* global_err)
  (szload zxzh "szdltext")
  (zxzh)
  (setq *error* nil)
  (Un_Reactor)
)


;;;修改字型
(defun c:gstyle	()
 (En_Reactor)
 (setq *error* global_err)
	(if	(null gstyle)
		(#ppls "szdltext")
	)
	(gstyle)
	(setq *error* nil)
	(Un_Reactor)
)
(defun c:dlzk()
  (En_Reactor)
  (#ppas "hyzkgl")
  (hy_zkgl)
  (#ppuas "hyzkgl")
  (Un_Reactor)
)
;;;
(defun c:gzgd()
  (En_Reactor)
  (setq *error* global_err)
  (szload dwchte "szdltext")
  (dwchte)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:gzkd()
  (En_Reactor)
  (setq *error* global_err)
  (szload chwidth "szdltext")
  (chwidth)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:gxwg()
  (En_Reactor)
  (setq *error* global_err)
  (szload gxwgd "szdltext")
  (gxwgd)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:thjj()
  (En_Reactor)
  (setq *error* global_err)
  (szload chhjj "szdltext")
  (chhjj)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:tzjj()
  (En_Reactor)
  (setq *error* global_err)
  (szload chzjj "szdltext")
  (chzjj)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:chtxt()
  (En_Reactor)
  (setq *error* global_err)
  (szload chtxt "szdltext")
  (chtxt)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:exchg()
  (En_Reactor)
  (setq *error* global_err)
  (szload exchg "szdltext")
  (exchg)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:bjtxt()
  (En_Reactor)
  (setq *error* global_err)
  (szload bjtxt "szdltext")
  (bjtxt)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:exptxt()
  (En_Reactor)
  (setq *error* global_err)
  (szload eptext "szdltext")
  (HY_UndoM)
  (eptext)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
(defun c:jointxt()
  (En_Reactor)
  (setq *error* global_err)
  (szload text_join "text_join")
  (HY_UndoM)
  (text_join)
  (setq *error* nil)
  (Un_Reactor)
)
;;;
;;文字排版
(defun c:wzpb()
  (En_Reactor)
  (setq *error* global_err)
  (szload wztz "szdltext")
  (wztz)
  (setq *error* nil)
  (Un_Reactor)
)

;;;文字屏蔽
(defun c:txtmask ()
  (En_Reactor)
  (setq *error* global_err)
  (szload  &textyc "&textyc")
  (&textyc)
  (setq *error* nil)
  (Un_Reactor)
)

;;;去文字屏蔽
(defun c:utxtmask()
  (En_Reactor)
  (setq *error* global_err)
  (szload  jh_txt_mask_del "&textyc")
  (jh_txt_mask_del)
  (setq *error* nil)
  (Un_Reactor)
)
 
;;;帮助
(defun c:hyszabout()
  (hy_about)
)

;;示例
(defun c:hyszsample()
	(setq softpath (HY_GetInstallDir)
		   softpath (strcat softpath "Samples"))
	(startapp "explorer.exe" softpath)
	(princ)
)

;;在线升级
(defun c:liveupdate()
	(alert "某些升级可能需要退出软件后才能安装，请注意查看升级包的说明。")
	(setq softpath (HY_GetInstallDir)
		   softpath (strcat softpath "HyLiveUpdate.exe")
		   cadver (substr (getvar "ACADVER") 1 2))
	(if (IsX86Sys)
	  (progn
		(cond
			((= cadver "15")
				(startapp softpath "HY-SZDL8-R15.xml")
			)
			((= cadver "16")
				(startapp softpath "HY-SZDL8-R16.xml")
			)
			((= cadver "17")
				(startapp softpath "HY-SZDL8-R17.xml")
			)
			((= cadver "18")
				(startapp softpath "HY-SZDL8-R18.xml")
			)
		)
	  )
	  (progn
		(cond
			((= cadver "15")
				(startapp softpath "HY-SZDL8-R15x64.xml")
			)
			((= cadver "16")
				(startapp softpath "HY-SZDL8-R16x64.xml")
			)
			((= cadver "17")
				(startapp softpath "HY-SZDL8-R17x64.xml")
			)
			((= cadver "18")
				(startapp softpath "HY-SZDL8-R18x64.xml")
			)
		)
	  )
	)
	(princ)	
)

;;;市政道路帮助
(defun c:hyszhelp (/ w_path)
  (setq w_path (strcat (HY_GetInstallDir) "Help")
        w_path (strcat w_path "\\市政道路.CHM")
  )
;;(startapp "winhlp32" w_path)
  (startapp "hh" w_path)
  (princ)
)
;;;市政道路规范
(defun c:hyszgf (/ w_path)
  (setq w_path (strcat (HY_GetInstallDir) "Help")
        w_path (strcat w_path "\\road.chm")
  )
;;(startapp "winhlp32" w_path)
  (startapp "hh" w_path)
  (princ)
)
;;;;;;;;;;;;;;;;;2002年12月由王志宇添加
;;;自然标高离散点
(defun c:ZhiShiBxToolBar ()
	(hy_showmenu "ID_BzBx_ZhiShiBx")
)
;;;自然标高离散点
(defun c:JinZhiBxToolBar()
	(hy_showmenu "ID_BzBx_JinZhiBx")
)
;;;add yft 99.01.19 交通设施管理
;;;双向两车道路面中心线(黄色虚线)
(defun c:jtss_bx_sslcdlmzxx()
(En_Reactor)
(setq *error* global_err)
(if(null ?dljtss_jtbx_sxlcdlmzxx)(#ppls "dljtbx"))(?dljtss_jtbx_sxlcdlmzxx)
(setq *error* nil)
(Un_Reactor)
)
;;;车行道分界线(白色虚线)快速路
(defun c:jtss_bx_cxdfjx1()
(En_Reactor)
(setq *error* global_err)
(if(null ?dljtss_jtbx_cxdfjx)(#ppls "dljtbx"))(?dljtss_jtbx_cxdfjx 0)
(setq *error* nil)
(Un_Reactor)

)
;;;车行道分界线(白色虚线)其它路
(defun c:jtss_bx_cxdfjx2()
(En_Reactor)
(setq *error* global_err)
(if(null ?dljtss_jtbx_cxdfjx)(#ppls "dljtbx"))(?dljtss_jtbx_cxdfjx 1)
(setq *error* nil)
(Un_Reactor)
)
;;;车行道边缘线(白色实线)
(defun c:jtss_bx_cxdbyx()
(En_Reactor)
(setq *error* global_err)
(if(null ?dljtss_jtbx_cxdfjx)(#ppls "dljtbx"))(?dljtss_jtbx_cxdfjx 2)
(setq *error* nil)
(Un_Reactor)
)
;;;专用车道线(黄色虚线)
(defun c:jtss_bx_zycdx()
(En_Reactor)
(setq *error* global_err)
(if(null ?dljtss_jtbx_cxdfjx)(#ppls "dljtbx"))(?dljtss_jtbx_cxdfjx 3)
(setq *error* nil)
(Un_Reactor)
)
;;;禁止变换车道线
(defun c:jjss_bx_jzbhcd()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtss_jtbx_cxdfjx)(#ppls "dljtbx"))(?dljtss_jtbx_cxdfjx 4)
(setq *error* nil)
(Un_Reactor)
)
;;;人行横道线
(defun c:jtss_bx_rxhdx()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtss_bx_rxhdx)(#ppls "dljtbx1"))(?dljtss_bx_rxhdx)
(setq *error* nil)
(Un_Reactor)
)
;;停车位标线
(defun c:jtss_bx_tcwbx()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtss_bx_tcwbx)(#ppls "dljtbx1"))(?dljtss_bx_tcwbx)
(setq *error* nil)
(Un_Reactor)
)
;;;禁止超车线(黄双实)
(defun c:jtss_bx_jjccx1()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtss_jtbx_jjccx)(#ppls "dljtbx"))(?dljtss_jtbx_jjccx 1)
(setq *error* nil)
(Un_Reactor)
)
;;;禁止超车线(黄虚实)
(defun c:jtss_bx_jjccx2()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtss_jtbx_jjccx)(#ppls "dljtbx"))(?dljtss_jtbx_jjccx 2)
(setq *error* nil)
(Un_Reactor)
)
;;;禁止超车线(黄单实)
(defun c:jtss_bx_jjccx3()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtss_jtbx_jjccx)(#ppls "dljtbx"))(?dljtss_jtbx_jjccx 3)
(setq *error* nil)
(Un_Reactor)
)
;;;道路栏杆---high
(defun c:jtss_bx_fence()
(En_Reactor)
(setq *error* global_err)
(if(null ?dljtss_jtbx_jjccx)(#ppls "dljtbx"))(?dljtss_jtbx_jjccx 4)
(setq *error* nil)
(Un_Reactor)
)
;;;道路栏杆---low
(defun c:jtss_bx_fence1()
(En_Reactor)
(setq *error* global_err)
(if(null ?dljtss_jtbx_jjccx)(#ppls "dljtbx"))(?dljtss_jtbx_jjccx 5)
(setq *error* nil)
(Un_Reactor)
)
;;;道路栏杆---自定义
(defun c:jtss_bx_fence2()
(En_Reactor)
(setq *error* global_err)
(if(null ?dljtss_jtbx_jjccx)(#ppls "dljtbx"))(?dl_fence_join_txwj)
(setq *error* nil)
(Un_Reactor)
)
;;;
;;;1---道路交通警告标志
(defun c:jjss_bz_jg()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbz)(#ppls "dljtbz"))(?dljtbz 1)
(setq *error* nil)
(Un_Reactor)
)
;;;2---道路交通禁令标志
(defun c:jjss_bz_jl()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbz)(#ppls "dljtbz"))(?dljtbz 2)
(setq *error* nil)
(Un_Reactor)
)
;;;3---道路交通指示标志
(defun c:jjss_bz_zs()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbz)(#ppls "dljtbz"))(?dljtbz 3)
(setq *error* nil)
(Un_Reactor)
)
;;;4---道路交通指路标志
(defun c:jjss_bz_zl()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbz)(#ppls "dljtbz"))(?dljtbz 4)
(setq *error* nil)
(Un_Reactor)
)
;;;5---道路交通旅游区标志
(defun c:jjss_bz_lyq()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbz)(#ppls "dljtbz"))(?dljtbz 5)
(setq *error* nil)
(Un_Reactor)
)
;;;6---道路交通施工安全标志
(defun c:jjss_bz_sg()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbz)(#ppls "dljtbz"))(?dljtbz 6)
(setq *error* nil)
(Un_Reactor)
)
;;;7---道路交通辅助标志
(defun c:jjss_bz_fz()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbz)(#ppls "dljtbz"))(?dljtbz 7)
(setq *error* nil)
(Un_Reactor)
)
;;;横断图库
(defun c:HDTK()
	(En_Reactor)
	(if (null GalleryManage)
	    (#ppas "GalleryManage")
	)
	(DL_HDGallery_New)
	(Un_Reactor)
)

;;;图块图框
(defun c:DrawTKTK()
	(En_Reactor)
	(if (null GalleryManage)
	    (#ppas "GalleryManage")
	)
	(DL_TKTK_GALLERY)
	(Un_Reactor)
)
;;;无障碍图库
(defun c:WZAITK()
	(En_Reactor)
	(if (null GalleryManage)
	    (#ppas "GalleryManage")
	)
	(DL_WZAi_Gallery)
	(Un_Reactor)
)
;;;级配曲线
(defun c:JPQX()
	(En_Reactor)
	(if (null TransectDesign)
	    (#ppas "TransectDesign.arx")
	)
	(DLHDM_DRAWJPQX)
	(Un_Reactor)
)
;;;路面结构
(defun c:HDLMJG()
	(En_Reactor)
	(if (null TransectDesign)
	    (#ppas "TransectDesign.arx")
	)
	(DLHDM_DRAWLMSTRUCT)
	(Un_Reactor)
)
;;;横断布置图
(defun c:HDBZT()
	(En_Reactor)
	(if (null TransectDesign)
	    (#ppas "TransectDesign.arx")
	)
	(DLHDM_DrawRoadStruct 1)
	(Un_Reactor)
)
;;;横断构造图
(defun c:HDGZT()
	(En_Reactor)
	(if (null TransectDesign)
	    (#ppas "TransectDesign.arx")
	)
	(DLHDM_DrawRoadStruct 2)
	(Un_Reactor)
)
;;;横断结构图
(defun c:HDJGT()
	(En_Reactor)
	(if (null TransectDesign)
	    (#ppas "TransectDesign.arx")
	)
	(DLHDM_DrawRoadStruct 3)
	(Un_Reactor)
)
;;;交通标志统计
(defun c:jjss_bz_tj()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbz_tj)(#ppls "dljtbz"))(?dljtbz_tj)
(setq *error* nil)
(Un_Reactor)
)
;;;路面文字标记
(defun c:jjss_bx_lmwz()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbx_lmwzbj)(#ppls "dljtbx1"))(?dljtbx_lmwzbj)
(setq *error* nil)
(Un_Reactor)
)
;;;路面斜线填充
(defun c:jjss_bx_hatch()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtss_bx_hatch)(#ppls "dljtbz"))(?dljtss_bx_hatch)
(setq *error* nil)
(Un_Reactor)
)

;;导向箭头
(defun c:TrafficMarkings_dxjt()
  (En_Reactor)
  (#ppas "GalleryManage")
  (Traffic_DaoXiangArrow)
  (#ppuas "GalleryManage")
  (Un_Reactor)
)

;;让行标线
(defun c:jjss_bx_rxbx()
  (En_Reactor)
  (#ppas "GalleryManage")
  (Traffic_RangXingBiaoXian)
  (#ppuas "GalleryManage")
  (Un_Reactor)
)

;;;左弯待转区
(defun c:jjss_bx_zwdzq()
(En_Reactor)
(setq *error* global_err)
(if (null ?jt_bx_jzbhcd)(#ppls "dljtbx1"))(?jt_bx_jzbhcd 1)
(setq *error* nil)
(Un_Reactor)
)
;;;禁止路边停放线
(defun c:jjss_bx_jzlbtf()
(En_Reactor)
(setq *error* global_err)
(if (null ?jt_bx_jzlbtf)(#ppls "dljtbx1"))(?jt_bx_jzlbtf 0)
(setq *error* nil)
(Un_Reactor)
)
;;;非机动车禁驶线
(defun c:jjss_bx_fjdcjs()
(En_Reactor)
(setq *error* global_err)
(if (null ?jt_bx_jzlbtf)(#ppls "dljtbx1"))(?jt_bx_jzlbtf 1)
(setq *error* nil)
(Un_Reactor)
)
;;;网状线
(defun c:jjss_bx_wzx()
(En_Reactor)
(setq *error* global_err)
(if (null ?jt_bx_jzlbtf)(#ppls "dljtbx1"))(?jt_bx_jzlbtf 2)
(setq *error* nil)
(Un_Reactor)
)
;;;禁止掉头标记
(defun c:jjss_bx_jzdtbj()
(En_Reactor)
(setq *error* global_err)
(if (null ?jt_bx_rxx)(#ppls "dljtbx1"))(?jt_bx_rxx 3)
(setq *error* nil)
(Un_Reactor)
)
;;;中心圈
(defun c:jjss_bx_zxq()
(En_Reactor)
(setq *error* global_err)
(if (null ?jt_bx_zxq)(#ppls "dljtbx1"))(?jt_bx_zxq)
(setq *error* nil)
(Un_Reactor)
)
;;;港湾式停靠站标线
(defun c:jjss_bx_tkzbx()
(En_Reactor)
(setq *error* global_err)
(if (null ?jt_bx_tkzbx)(#ppls "dljtbx1"))(?jt_bx_tkzbx)
(setq *error* nil)
(Un_Reactor)
)
;;;左转弯导向线
(defun c:jjss_bx_zzwdxx()
(En_Reactor)
(setq *error* global_err)
(if (null ?jt_bx_zzwdxx)(#ppls "dljtbx1"))(?jt_bx_zzwdxx)
(setq *error* nil)
(Un_Reactor)
)


;;;插入标志杆
(defun c:jjss_bz_bzg()
(En_Reactor)
(setq *error* global_err)
(if (null ?dl_bz_insert_bzg)(#ppls "dljtbz"))(?dl_bz_insert_bzg)
(setq *error* nil)
(Un_Reactor)
)
;;;插入信号灯
(defun c:jjss_bz_xhd()
(En_Reactor)
(setq *error* global_err)
(if (null ?dljtbz_xhd)(#ppls "dljtbz"))(?dljtbz_xhd)
(setq *error* nil)
(Un_Reactor)
)
;;;修改标志杆
(defun c:jjss_bz_modibzg()
(En_Reactor)
(setq *error* global_err)
(if (null ?dl_bz_modi_bzg)(#ppls "dljtbz"))(?dl_bz_modi_bzg)
(setq *error* nil)
(Un_Reactor)
)
;;;加入标志
(defun c:jjss_bz_addbz() 
(En_Reactor)
(setq *error* global_err)
(if (null ?dl_bz_join_bzg)(#ppls "dljtmy"))(?dl_bz_join_bzg)
(setq *error* nil)
(Un_Reactor)
)
;;;浏览标志
(defun c:jjss_bz_llbz() 
(En_Reactor)
(setq *error* global_err)
(if (null ?dl_bz_ll_bzg)(#ppls "dljtmy"))(?dl_bz_ll_bzg)
(setq *error* nil)
(Un_Reactor)
)
;;

;;;------------------------------------The End-------------------------------

;;;交点编号和编号修改

(defun c:jd_gjbh ( / bh_t tf)
(En_Reactor)
(setq *error* global_err)
   (HY_Set0)
   (#ppls "RoadCtrlPt")
	 (setq tf t)
	 (while tf
		 (initget "J G")
	   (setq bh_t (getkword "\n>>回车退出 / 交点编号 J / 编号修改 G:"))
	   (if ( = bh_t "J") 
	   (progn 
	   	;;(#ppls "&dljdbh") 
	   	(&dljdbh))
	   	)
	   (if ( = bh_t "G") 
	   (progn 
	   	;;(#ppls "&gdljdh") 
	   	(&gdljdh))
	   	)
		 (if (NULL bh_t) (setq tf nil))
	 )
	 (setq *error* nil)
(Un_Reactor)
)

;;;绘路坐标表
(defun c:hzbb () 
(En_Reactor)
(setq *error* global_err)
;;(#ppls "&dljdhb") 
(#ppls "RoadCtrlPt")
(&dljdhb)
(setq *error* nil)
(Un_Reactor)
)

;;;批量打印
(defun c:batch_print ()
  (En_Reactor)
  (#ppas "HYMunicipalRoadDesignTools")
  (bulkprint)
  (#ppuas "HYMunicipalRoadDesignTools")
  (Un_Reactor)
  (princ)
)

;;;设计道路生成等高线
(defun c:SJDLSCDGX ()
  (En_Reactor)
  (#ppas "Drawroad")
  (DrawRoad_CreateDGX)
  (#ppuas "Drawroad")
  (Un_Reactor)
  (princ)
)

;;;交通流量图
(defun c:TRAFFICFLOWDIRECT ()
  (En_Reactor)
  (#ppas "GalleryManage")
  (trafficratedrawing)
  (#ppuas "GalleryManage")
  (Un_Reactor)
  (princ)
)

;;;转换工具
(defun c:DATATRANSFORM ()
  (En_Reactor)
  (#ppas "HYMunicipalRoadDesignTools")
  (dataTransport)
  (#ppuas "HYMunicipalRoadDesignTools")
  (Un_Reactor)
  (princ)
)
(princ)

;;;导入地形文件
(defun c:DRDXWJ ()
  (En_Reactor)
  (#ppas "Earthwork")
  (ImportTopographyData)
  (#ppuas "Earthwork")
  (Un_Reactor)
  (princ)
)
(princ)

;;;地形初始化
(defun c:dxcsh ()
  (En_Reactor)
  (InitiateTerrainData)
  (Un_Reactor)
  (princ)
)
(princ)

;;;构等高线
(defun c:dx_gdgx ()
  (En_Reactor)
  (createcontour)
  (Un_Reactor)
  (princ)
)
(princ)

;;;三角网
(defun c:dx_sjw ()
  (command "-layer" "on" "自然地形" "") 
  (princ)
)
(princ)

;;;标高查询桩号
(defun c:VQueryStk ()
  (En_Reactor)
  (#ppas "ZdmDsgn")
  (VSD_ElevGetStake)
  (Un_Reactor)
  (princ)
)
(princ)

;;;陡坎定义
(defun c:ZRDBREAKLINEDEF ()
  (En_Reactor)
  (#ppas "Earthwork")
  (DefineBreakLine)
  (#ppuas "Earthwork")
  (Un_Reactor)
  (princ)
)
(princ)

;;;陡坎编辑
(defun c:zrdBreakLineEdit ()
  (En_Reactor)
  (#ppas "Earthwork")
  (EditBreakLine)
  (#ppuas "Earthwork")
  (Un_Reactor)
  (princ)
)

;;;路面标高计算
(defun c:jslmbg	( )
  (En_Reactor)
  (setq *error* global_err)
  (#ppas  "TransectDesign")
  (if (/= (DL_ProjectProDeal) -1)
  	(PAVEMENT_ELEV_CAL)
  )  
  (setq *error* nil)
  (Un_Reactor)
)
(princ)