www.pudn.com > CADtool.rar > AT.LSP, change:2009-12-20,size:8282b


;;;------------------------------------------------------------- 
;;;小小程序集总调用界面 
;;; 启动时在命令行要显示的内容 
(princ "\n小小工具集启动命令为\"AT\" [作者:梁伯全,2009年12月20日]") 
 
(defun C:AT (/ strDCLFileName listInputDefinements listKeysAndValues listKeysAndActions listKeysToGetValue listDCLReturn intButtonClick) 
 (setq strDCLFileName "DCLTest") 
 (setq listInputDefinements '(("dialog" "小小工具集[2009年12月20日版]" "") 
                             ("spacer") 
                              ("row") 
                                ("row" "市政排水平面设计工具") 
                                 ("column") 
                                 ("row") 
                                ("spacer") 
                                 ("column" "绘图相关") 
                                  ("bt" "设置绘图环境" "btInitial" "" "centered" 2.2 "none" "none") 
                                  ("bt" "设置路中线" "btSetZhongXiang"  "" "centered" 2.2 "none" "none") 
                                  ("bt" "绘检查井" "btJBZ" "" "centered" 2.2 "none" "none") 
                                  ("bt" "绘雨水口" "btYSKBZ" "" "centered" 2.2 "none" "none") 
                                  ("bt" "绘沉砂井" "btHCSJ" "" "centered" 2.2 "none" "none") 
                                  ("bt" "设置井类型" "btJLXSZ" "" "centered" 2.2 "none" "none") 
                                  ("bt" "删井(圆)内线" "btYNDEL" "" "centered" 2.2 "none" "none") 
                                  ("bt" "流水方向箭头" "btArray" "" "centered" 2.2 "none" "none") 
                                ("end") 
 
                                 ("spacer") 
                                 ("column" "标注及数量") 
                                  ("bt" "检查井标注" "btBJ" "" "centered" 2.2 "none" "none") 
                                  ("bt" "管道标注" "btBGD" "" "centered" 2.2 "none" "none") 
                                  ("bt" "修改井面高程" "btJMGC" "" "centered" 2.2 "none" "none") 
                                  ("bt" "井底高程标注" "btJDGC" "" "centered" 2.2 "none" "none") 
                                  ("bt" "等差数值计算" "btDCJS" "" "centered" 2.2 "none" "none") 
                                  ("bt" "文本自身计算" "btZSJS" "" "centered" 2.2 "none" "none") 
                                  ("bt" "统计管长" "btTJGC" "" "centered" 2.2 "none" "none") 
                                  ("bt" "统计井数量" "btJTJ" "" "centered" 2.2 "none" "none") 
                                 ("end") 
                                 ("spacer") 
                                ("end") 
                                 ("spacer") 
                                ("end") 
                                ("end") 
 
                                ("spacer") 
                                 ("column" "绘图及标注") 
                                   ("spacer") 
                                  ("bt" "路桥坐标标注" "btXY" "" "centered" 2.2 "none" "none") 
                                  ("bt" "圆弧半径标注" "btDimArcR" "" "centered" 2.2 "none" "none") 
                                  ("bt" "指路方向箭头" "btRoadArray" "" "centered" 2.2 "none" "none") 
                                  ("bt" "平面接图线" "btRoad_PingTuXiang" "" "centered" 2.2 "none" "none") 
                                  ("bt" "单点打断" "btBreakAtPoint" "" "centered" 2.2 "none" "none") 
                                  ("bt" "定向多重复制" "btCopyMuch" "" "centered" 2.2 "none" "none") 
                                   ("spacer") 
                                ("end") 
                                ("spacer") 
                                ("column" "数量计算") 
                                 ("spacer") 
                                 ("bt" "数值求和" "btSZQH" "" "centered" 2.2 "none" "none") 
                                 ("bt" "线长求和" "btTJXC" "" "centered" 2.2 "none" "none") 
                                 ("bt" "测路径长" "btPlineLength" "" "centered" 2.2 "none" "none") 
                                 ("bt" "单区域面积" "btCXMJ" "" "centered" 2.2 "none" "none") 
                                 ("bt" "多图总面积" "btTJZMJ" "" "centered" 2.2 "none" "none") 
                                 ("bt" "统计块" "btCountBlocks" "" "centered" 2.2 "none" "none") 
                                  ("spacer") 
                                ("end") 
                              ("end") 
 
                                ("spacer") 
                                ("row" "其它") 
                                 ("bt" "文字样式管理器" "btCStyles" "" "centered" 2.2 "none" "none") 
                                 ("bt" "重叠文字避让" "btTextsDodge" "" "centered" 2.2 "none" "none") 
                                 ("bt" "喷雾器" "btSprayer" "" "centered" 2.2 "none" "none") 
                                 ("bt" "清除扩展数据" "btClearXData" "" "centered" 2.2 "none" "none") 
                                 ("spacer") 
                                ("end") 
 
                              ("spacer") 
                              ("row") 
                               ("column") 
                               ("text" "作者:梁伯全  写于广东省中山市") 
							   ("text" "联系方式: QQ:32774362 Email:guangdonglbq@qq.com") 
                               ("end") 
                               ("column") ("spacer") ("btCancel") ("end") 
                               ("end")                                
                              ("end") 
                             ) 
 ) 
 (setq listKeysAndValues nil) 
 (setq listKeysAndActions '( 
  ( "btInitial" "(done_dialog 2)") 
 ( "btSetZhongXiang" "(done_dialog 3)") 
 ( "btJBZ" "(done_dialog 4)") 
 ( "btYSKBZ" "(done_dialog 5)") 
 ( "btHCSJ" "(done_dialog 6)") 
 ( "btJLXSZ" "(done_dialog 7)") 
 ( "btYNDEL" "(done_dialog 8)") 
 ( "btArray" "(done_dialog 9)") 
 
 ( "btBJ" "(done_dialog 10)") 
 ( "btBGD" "(done_dialog 11)") 
 ( "btJMGC" "(done_dialog 12)") 
 ( "btJDGC" "(done_dialog 13)") 
 ( "btDCJS" "(done_dialog 14)") 
 ( "btZSJS" "(done_dialog 15)") 
 ( "btTJGC" "(done_dialog 16)") 
 ( "btJTJ" "(done_dialog 17)") 
 
 ( "btXY" "(done_dialog 18)") 
 ("btDimArcR" "(done_dialog 19)") 
 ( "btRoadArray" "(done_dialog 20)") 
 ( "btRoad_PingTuXiang" "(done_dialog 21)") 
 ("btBreakAtPoint" "(done_dialog 22)") 
 ("btCopyMuch" "(done_dialog 23)") 
 
 ( "btSZQH" "(done_dialog 24)") 
 ( "btTJXC" "(done_dialog 25)") 
 ("btPlineLength" "(done_dialog 26)") 
 ( "btCXMJ" "(done_dialog 27)") 
 ( "btTJZMJ" "(done_dialog 28)") 
 ("btCountBlocks" "(done_dialog 29)") 
 
 ( "btCStyles" "(done_dialog 30)") 
 ( "btTextsDodge" "(done_dialog 31)") 
 ( "btSprayer" "(done_dialog 32)") 
 ( "btClearXData" "(done_dialog 33)") 
 )) 
 
 (setq listKeysToGetValue nil) 
 
 (setq listDCLReturn (listGenerateDCL strDCLFileName listInputDefinements listKeysAndValues listKeysAndActions listKeysToGetValue) ) 
 (setq intButtonClick (car listDCLReturn )  ) 
 (cond 
  ((= intButtonClick 2) (C:PS_init) ) 
  ((= intButtonClick 3) (GetZhongXiang "是")) 
  ((= intButtonClick 4) (C:PS_jbz)  ) 
  ((= intButtonClick 5) (C:PS_yskbz)) 
  ((= intButtonClick 6) (c:PS_hcsj) ) 
  ((= intButtonClick 7) (C:PS_jlxsz) ) 
  ((= intButtonClick 8) (C:PS_yndel)) 
  ((= intButtonClick 9) (c:PS_arraw) ) 
 
  ((= intButtonClick 10) (C:PS_BJ)   ) 
  ((= intButtonClick 11) (C:PS_bgd)  ) 
  ((= intButtonClick 12) (C:PS_jmgc) ) 
  ((= intButtonClick 13)(c:PS_jdgc) ) 
  ((= intButtonClick 14) (c:PS_dcjs)) 
  ((= intButtonClick 15) (c:PS_zsjs)) 
  ((= intButtonClick 16)(C:PS_tjgc) ) 
  ((= intButtonClick 17)(C:PS_jtj) ) 
 
  ((= intButtonClick 18) (C:xy) ) 
  ((= intButtonClick 19)(DimArcR) ) 
  ((= intButtonClick 20) (c:PS_road_arraw) ) 
  ((= intButtonClick 21) (c:Road_PingTuXiang) ) 
  ((= intButtonClick 22)(BreakAtPoint) ) 
  ((= intButtonClick 23)(CopyMuch) ) 
 
  ((= intButtonClick 24) (c:PS_szqh) ) 
  ((= intButtonClick 25) (c:PS_tjxc) ) 
  ((= intButtonClick 26)(PlineLength) ) 
  ((= intButtonClick 27) (c:PS_cxmj) ) 
  ((= intButtonClick 28) (c:PS_tjzmj) ) 
  ((= intButtonClick 29)(c:CountBlocks) ) 
 
  ((= intButtonClick 30) (c:cstyles) ) 
  ((= intButtonClick 31) (c:TextSDodge) ) 
  ((= intButtonClick 32) (c:sprayer) ) 
  ((= intButtonClick 33) (c:ClearXData) ) 
  (T nil) 
  ) 
 (princ) 
)