神仙河大桥.lsp

毕业设计

(defun c:mydxf()
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(command "undo" "group")
(command "layer" "N" "1" "N" "2" "N" "3" "N" "4" "N" "5" "N" "6" "C" "1" "1" "C" "2" "2" "C" "3" "3" "C" "4" "4" "C" "5" "5" "C" "6" "6" "C" "7" "0" "S" "0" "")
(command "layer" "N" "10" "C" "7" "10" "")
(command "layer" "N" "11" "C" "7" "11" "")
(command "layer" "N" "12" "C" "7" "12" "")
(command "layer" "N" "13" "C" "7" "13" "")
(command "layer" "N" "14" "C" "7" "14" "")
(command "layer" "N" "15" "C" "7" "15" "")
(command "layer" "N" "16" "C" "7" "16" "")
(command "layer" "N" "17" "C" "7" "17" "")
(command "layer" "N" "18" "C" "7" "18" "")
(command "layer" "N" "19" "C" "7" "19" "")
(command "layer" "N" "20" "C" "7" "20" "")
(command "layer" "N" "21" "C" "7" "21" "")
(command "layer" "N" "22" "C" "7" "22" "")
(command "layer" "N" "23" "C" "7" "23" "")
(command "layer" "N" "24" "C" "7" "24" "")
(command "layer" "N" "25" "C" "7" "25" "")
(command "layer" "N" "26" "C" "7" "26" "")
(command "layer" "N" "27" "C" "7" "27" "")
(command "layer" "N" "28" "C" "7" "28" "")
(command "layer" "N" "29" "C" "7" "29" "")
(command "layer" "N" "30" "C" "7" "30" "")
(command "layer" "N" "31" "C" "7" "31" "")
(command "layer" "N" "32" "C" "7" "32" "")
(command "layer" "N" "33" "C" "7" "33" "")
(command "layer" "N" "34" "C" "7" "34" "")
(command "layer" "N" "35" "C" "7" "35" "")
(command "layer" "N" "36" "C" "7" "36" "")
(command "layer" "N" "37" "C" "7" "37" "")
(command "layer" "N" "38" "C" "7" "38" "")
(command "layer" "N" "39" "C" "7" "39" "")
(command "layer" "N" "40" "C" "7" "40" "")
(ult "CONTINUOUS")
(setvar "CLAYER" "0")
(setvar "PLINEWID" 0.000)
(upl '( "0.0000,0.0000" "0.0000,297.0000" "1348.6667,297.0000" "1348.6667,0.0000" "0.0000,0.0000"))
(command "REGEN")
(command "ZOOM" (getvar "EXTMAX") (getvar "EXTMIN"))
(setvar "LTSCALE" 12)
(command "load" "canlib")
(setvar "CLAYER" "4")
(setvar "PLINEWID" 0.800)
(upl '( "30.0000,10.0000" "30.0000,287.0000" "410.0000,287.0000" "410.0000,10.0000" "30.0000,10.0000"))
(setvar "CLAYER" "0")
(setvar "PLINEWID" 0.100)
(upl '( "120.0000,10.0000" "120.0000,20.0000"))
(upl '( "210.0000,10.0000" "210.0000,20.0000"))
(upl '( "225.0000,10.0000" "225.0000,20.0000"))
(upl '( "250.0000,10.0000" "250.0000,20.0000"))
(upl '( "265.0000,10.0000" "265.0000,20.0000"))
(upl '( "290.0000,10.0000" "290.0000,20.0000"))
(upl '( "305.0000,10.0000" "305.0000,20.0000"))
(upl '( "330.0000,10.0000" "330.0000,20.0000"))
(upl '( "345.0000,10.0000" "345.0000,20.0000"))
(upl '( "370.0000,10.0000" "370.0000,20.0000"))
(upl '( "385.0000,10.0000" "385.0000,20.0000"))
(upl '( "30.0000,20.0000" "410.0000,20.0000"))
(upl '( "20.0000,247.0000" "30.0000,247.0000"))
(upl '( "20.0000,262.0000" "30.0000,262.0000"))
(upl '( "20.0000,287.0000" "30.0000,287.0000"))
(upl '( "20.0000,287.0000" "20.0000,247.0000"))
(command "STYLE" "HH" "TXT,HZTXT" 0.0 0.85 0.0 "" "")
(ute "HH" 1 "某" 5.000 0.750 0.000000 39.375 12.500)
(ute "HH" 1 "某" 5.000 0.750 0.000000 47.292 12.500)
(ute "HH" 1 "省" 5.000 0.750 0.000000 55.208 12.500)
(ute "HH" 1 "公" 5.000 0.750 0.000000 63.125 12.500)
(ute "HH" 1 "路" 5.000 0.750 0.000000 71.042 12.500)
(ute "HH" 1 "勘" 5.000 0.750 0.000000 78.958 12.500)
(ute "HH" 1 "察" 5.000 0.750 0.000000 86.875 12.500)
(ute "HH" 1 "设" 5.000 0.750 0.000000 94.792 12.500)
(ute "HH" 1 "计" 5.000 0.750 0.000000 102.710 12.500)
(ute "HH" 1 "院" 5.000 0.750 0.000000 110.630 12.500)
(ute "HH" 1 "设" 5.000 0.750 0.000000 214.380 12.500)
(ute "HH" 1 "计" 5.000 0.750 0.000000 220.630 12.500)
(ute "HH" 1 "复" 5.000 0.750 0.000000 254.380 12.500)
(ute "HH" 1 "核" 5.000 0.750 0.000000 260.630 12.500)
(ute "HH" 1 "审" 5.000 0.750 0.000000 294.380 12.500)
(ute "HH" 1 "核" 5.000 0.750 0.000000 300.630 12.500)
(ute "HH" 1 "日" 5.000 0.750 0.000000 334.380 12.500)
(ute "HH" 1 "期" 5.000 0.750 0.000000 340.630 12.500)
(ute "HH" 1 "图" 5.000 0.750 0.000000 374.380 12.500)
(ute "HH" 1 "号" 5.000 0.750 0.000000 380.630 12.500)
(ute "HH" 1 "比" 5.000 0.750 1.570796 27.500 251.380)
(ute "HH" 1 "例" 5.000 0.750 1.570796 27.500 257.630)
(ute "HH" 1 "1:300" 5.000 0.750 1.570796 27.500 272.500)
(ult "DASHDOT")
(upl '( "33.0000,123.8333" "93.0000,123.8333" "893.0000,123.8333" "953.0000,123.8333"))
(setvar "CLAYER" "3")
(ult "CONTINUOUS")
(setvar "PLINEWID" 0.300)
(upl '( "93.0000,164.6667" "93.0000,83.0000"))
(upl '( "893.0000,164.6667" "893.0000,83.0000"))
(upl '( "48.0000,164.6667" "93.0000,164.6667" "893.0000,164.6667" "938.0000,164.6667"))
(upl '( "48.0000,83.0000" "93.0000,83.0000" "893.0000,83.0000" "938.0000,83.0000"))
(upl '( "93.0000,163.0000" "893.0000,163.0000"))
(upl '( "93.0000,84.6667" "893.0000,84.6667"))
(upl '( "93.0000,124.6667" "893.0000,124.6667"))
(upl '( "93.0000,123.0000" "893.0000,123.0000"))
(upl '( "93.0000,127.1667" "893.0000,127.1667"))
(upl '( "93.0000,120.5000" "893.0000,120.5000"))
(upl '( "93.0000,120.5000" "893.0000,120.5000"))
(setvar "CLAYER" "0")
(setvar "PLINEWID" 0.100)
(upl '( "33.0000,23.0000" "943.0000,23.0000"))
(upl '( "33.0000,33.0000" "943.0000,33.0000"))
(upl '( "33.0000,43.0000" "943.0000,43.0000"))
(upl '( "33.0000,53.0000" "943.0000,53.0000"))
(upl '( "33.0000,63.0000" "943.0000,63.0000"))
(upl '( "55.0000,23.0000" "55.0000,63.0000"))
(upl '( "943.0000,23.0000" "943.0000,63.0000"))
(upl '( "33.0000,23.0000" "33.0000,63.0000"))
(ute "HH" 0 "设" 4.000 0.750 0.000000 35.500 56.000)
(ute "HH" 0 "计" 4.000 0.750 0.000000 40.167 56.000)
(ute "HH" 0 "高" 4.000 0.750 0.000000 44.833 56.000)
(ute "HH" 0 "程" 4.000 0.750 0.000000 49.500 56.000)
(ute "HH" 0 "地" 4.000 0.750 0.000000 35.500 36.000)
(ute "HH" 0 "面" 4.000 0.750 0.000000 40.167 36.000)
(ute "HH" 0 "高" 4.000 0.750 0.000000 44.833 36.000)
(ute "HH" 0 "程" 4.000 0.750 0.000000 49.500 36.000)
(ute "HH" 0 "桩" 4.000 0.750 0.000000 35.500 26.000)
(ute "HH" 0 "号" 4.000 0.750 0.000000 49.500 26.000)
(ute "HH" 0 "坡" 3.500 0.750 0.000000 35.500 48.950)
(ute "HH" 0 "度" 3.500 0.750 0.000000 41.075 48.950)
(ute "HH" 0 "坡" 3.500 0.750 0.000000 44.300 43.550)
(ute "HH" 0 "长" 3.500 0.750 0.000000 49.875 43.550)
(upl '( "33.0000,43.0000" "55.0000,53.0000"))
(ute "HH" 1 "K114" 2.000 1.000 1.570796 69.200 28.000)
(upl '( "73.0000,23.0000" "73.0000,33.0000"))
(ute "HH" 1 "+114.00" 2.000 0.999 1.570796 72.200 28.000)
(upl '( "73.0000,53.0000" "73.0000,63.0000"))
(ute "HH" 1 "248.614" 2.000 0.999 1.570796 72.200 58.000)
(upl '( "93.0000,23.0000" "93.0000,33.0000"))
(ute "HH" 1 "+120.00" 2.000 0.999 1.570796 92.200 28.000)
(upl '( "93.0000,53.0000" "93.0000,63.0000"))
(ute "HH" 1 "248.567" 2.000 0.999 1.570796 92.200 58.000)
(upl '( "226.3333,23.0000" "226.3333,33.0000"))
(ute "HH" 1 "+160.00" 2.000 0.999 1.570796 225.530 28.000)
(upl '( "226.3333,53.0000" "226.3333,63.0000"))
(ute "HH" 1 "248.456" 2.000 0.999 1.570796 225.530 58.000)
(upl '( "359.6667,23.0000" "359.6667,33.0000"))
(ute "HH" 1 "+200.00" 2.000 0.999 1.570796 358.870 28.000)
(upl '( "359.6667,53.0000" "359.6667,63.0000"))
(ute "HH" 1 "248.7" 2.000 1.000 1.570796 358.870 58.000)
(upl '( "493.0000,23.0000" "493.0000,33.0000"))
(ute "HH" 1 "+240.00" 2.000 0.999 1.570796 492.200 28.000)
(upl '( "493.0000,53.0000" "493.0000,63.0000"))
(ute "HH" 1 "249.14" 2.000 1.000 1.570796 492.200 58.000)
(upl '( "626.3333,23.0000" "626.3333,33.0000"))
(ute "HH" 1 "+280.00" 2.000 0.999 1.570796 625.530 28.000)
(upl '( "626.3333,53.0000" "626.3333,63.0000"))
(ute "HH" 1 "249.58" 2.000 1.000 1.570796 625.530 58.000)
(upl '( "759.6667,23.0000" "759.6667,33.0000"))
(ute "HH" 1 "+320.00" 2.000 0.999 1.570796 758.870 28.000)
(upl '( "759.6667,53.0000" "759.6667,63.0000"))
(ute "HH" 1 "250.02" 2.000 1.000 1.570796 758.870 58.000)
(upl '( "893.0000,23.0000" "893.0000,33.0000"))
(ute "HH" 1 "+360.00" 2.000 0.999 1.570796 892.200 28.000)
(upl '( "893.0000,53.0000" "893.0000,63.0000"))
(ute "HH" 1 "250.46" 2.000 1.000 1.570796 892.200 58.000)
(upl '( "913.0000,23.0000" "913.0000,33.0000"))
(ute "HH" 1 "+366.00" 2.000 0.999 1.570796 912.200 28.000)
(upl '( "913.0000,53.0000" "913.0000,63.0000"))
(ute "HH" 1 "250.526" 2.000 0.999 1.570796 912.200 58.000)
(upl '( "55.0000,51.0000" "126.3333,43.0000"))
(ute "HH" 1 "-2.1(%)" 2.000 1.000 6.171502 90.756 47.795)
(ute "HH" 1 "410(m)" 2.000 1.000 6.171502 90.310 43.820)
(upl '( "126.3333,43.0000" "126.3333,53.0000"))
(ute "HH" 1 "K130" 2.000 1.000 1.570796 122.530 48.000)
(ute "HH" 1 "+130.00" 2.000 0.999 1.570796 125.530 48.000)
(upl '( "127.8333,43.0000" "131.3333,43.0000"))
(upl '( "127.8333,53.0000" "131.3333,53.0000"))
(ute "HH" 1 "247.93" 2.000 1.000 1.570796 129.530 48.000)
(ute "HH" 0 "R=4500m T=72m E=m" 1.800 0.833 0.000000 130.830 47.100)
(upl '( "126.3333,43.0000" "943.0000,51.0000"))
(ute "HH" 1 "1.1(%))" 2.000 1.000 0.009795 534.660 47.800)
(ute "HH" 1 "540(m)" 2.000 1.000 0.009795 534.700 43.800)
(ute "HH" 1 "K140" 2.000 1.000 1.570796 155.870 28.000)
(upl '( "159.6667,23.0000" "159.6667,33.0000"))
(ute "HH" 1 "+140.00" 2.000 0.999 1.570796 158.870 28.000)
(upl '( "159.6667,33.0000" "159.6667,43.0000"))
(upl '( "157.1667,33.0000" "160.6667,33.0000"))
(upl '( "157.1667,43.0000" "160.6667,43.0000"))
(ute "HH" 1 "240.8" 2.000 1.000 1.570796 158.870 38.000)
(upl '( "259.6667,23.0000" "259.6667,33.0000"))
(ute "HH" 1 "+170.00" 2.000 0.999 1.570796 258.870 28.000)
(upl '( "259.6667,33.0000" "259.6667,43.0000"))
(upl '( "257.1667,33.0000" "260.6667,33.0000"))
(upl '( "257.1667,43.0000" "260.6667,43.0000"))
(ute "HH" 1 "240" 2.000 1.000 1.570796 258.870 38.000)
(upl '( "359.6667,23.0000" "359.6667,33.0000"))
(ute "HH" 1 "+200.00" 2.000 0.999 1.570796 358.870 28.000)
(upl '( "359.6667,33.0000" "359.6667,43.0000"))
(upl '( "357.1667,33.0000" "360.6667,33.0000"))
(upl '( "357.1667,43.0000" "360.6667,43.0000"))
(ute "HH" 1 "240" 2.000 1.000 1.570796 358.870 38.000)
(upl '( "426.3333,23.0000" "426.3333,33.0000"))
(ute "HH" 1 "+220.00" 2.000 0.999 1.570796 425.530 28.000)
(upl '( "426.3333,33.0000" "426.3333,43.0000"))
(upl '( "423.8333,33.0000" "427.3333,33.0000"))
(upl '( "423.8333,43.0000" "427.3333,43.0000"))
(ute "HH" 1 "240.1" 2.000 1.000 1.570796 425.530 38.000)
(upl '( "559.6667,23.0000" "559.6667,33.0000"))
(ute "HH" 1 "+260.00" 2.000 0.999 1.570796 558.870 28.000)
(upl '( "559.6667,33.0000" "559.6667,43.0000"))
(upl '( "557.1667,33.0000" "560.6667,33.0000"))
(upl '( "557.1667,43.0000" "560.6667,43.0000"))
(ute "HH" 1 "239.7" 2.000 1.000 1.570796 558.870 38.000)
(upl '( "576.3333,23.0000" "576.3333,33.0000"))
(ute "HH" 1 "+265.00" 2.000 0.999 1.570796 575.530 28.000)
(upl '( "576.3333,33.0000" "576.3333,43.0000"))
(upl '( "573.8333,33.0000" "577.3333,33.0000"))
(upl '( "573.8333,43.0000" "577.3333,43.0000"))
(ute "HH" 1 "239" 2.000 1.000 1.570796 575.530 38.000)
(upl '( "693.0000,23.0000" "693.0000,33.0000"))
(ute "HH" 1 "+300.00" 2.000 0.999 1.570796 692.200 28.000)
(upl '( "693.0000,33.0000" "693.0000,43.0000"))
(upl '( "690.5000,33.0000" "694.0000,33.0000"))
(upl '( "690.5000,43.0000" "694.0000,43.0000"))
(ute "HH" 1 "239" 2.000 1.000 1.570796 692.200 38.000)
(upl '( "759.6667,23.0000" "759.6667,33.0000"))
(ute "HH" 1 "+320.00" 2.000 0.999 1.570796 758.870 28.000)
(upl '( "759.6667,33.0000" "759.6667,43.0000"))
(upl '( "757.1667,33.0000" "760.6667,33.0000"))
(upl '( "757.1667,43.0000" "760.6667,43.0000"))
(ute "HH" 1 "240.2" 2.000 1.000 1.570796 758.870 38.000)
(upl '( "826.3333,23.0000" "826.3333,33.0000"))
(ute "HH" 1 "+340.00" 2.000 0.999 1.570796 825.530 28.000)
(upl '( "826.3333,33.0000" "826.3333,43.0000"))
(upl '( "823.8333,33.0000" "827.3333,33.0000"))
(upl '( "823.8333,43.0000" "827.3333,43.0000"))
(ute "HH" 1 "242" 2.000 1.000 1.570796 825.530 38.000)
(setq el '( "47.2500,325.9337" "159.6667,314.1300" "259.6667,311.4633" "359.6667,311.4633" "426.3333,311.7967" "559.6667,310.4633" "576.3333,308.1300" "693.0000,308.1300"))
(setq el (append el '( "759.6667,312.1300" "826.3333,318.1300" "938.7500,328.1226")))
(upl el)
(setq elist (list '(1002 . "}")))
(setq elist (cons (cons 1000 "center&1120.000&248.567&300.00&D:/Documents and Settings/cq1/桌面/毕业设计/神仙河大桥/神仙河大桥.qlt&4") elist))
(setq elist (cons (cons 1011 '(93.000 340.020 0)) elist))
(setq elist (cons '(1002 . "{") elist))(setq elist (cons "AUTODESK_SH_DMX" elist))(setq elist (list (list -3 elist)))
(uxd "AUTODESK_SH_DMX")
(upl '( "47.2500,340.0129" "47.2500,334.4733" "48.7500,334.4733" "45.7500,331.4733" "47.2500,331.4733" "47.2500,325.9337"))
(upl '( "47.2500,340.0129" "75.5000,339.7781" "105.4299,319.8249" "105.4299,319.8249"))
(upl '( "76.7724,332.0798" "75.5000,339.7781"))
(upl '( "80.2395,325.8320" "75.5000,339.7781"))
(upl '( "79.7896,331.7629" "75.5000,339.7781"))
(upl '( "86.7413,325.1493" "75.5000,339.7781"))
(upl '( "84.6146,331.2563" "75.5000,339.7781"))
(upl '( "75.5000,339.7781" "75.5000,326.3296"))
(ult "HIDDEN")
(setvar "PLINEWID" 0.300)
(upl '( "105.4299,319.8249" "105.4299,317.1582" "103.4299,317.1582" "104.0966,319.8249" "105.4299,319.8249"))
(ult "CONTINUOUS")
(setvar "PLINEWID" 0.100)
(upl '( "938.7500,346.4250" "938.7500,338.7738" "940.2500,338.7738" "937.2500,335.7738" "938.7500,335.7738" "938.7500,328.1226"))
(upl '( "874.9526,322.4517" "910.5000,346.1500" "938.7500,346.4250"))
(upl '( "899.5763,335.9367" "910.5000,346.1500"))
(upl '( "896.9483,328.5146" "910.5000,346.1500"))
(upl '( "905.3066,336.4460" "910.5000,346.1500"))
(upl '( "904.7422,329.2074" "910.5000,346.1500"))
(upl '( "908.9497,336.7699" "910.5000,346.1500"))
(upl '( "910.5000,346.1500" "910.5000,329.7192"))
(ult "HIDDEN")
(setvar "PLINEWID" 0.300)
(upl '( "874.9526,322.4517" "874.9526,319.7850" "876.9526,319.7850" "876.2859,322.4517" "874.9526,322.4517"))
(ult "CONTINUOUS")
(setvar "PLINEWID" 0.100)
(upl '( "73.0000,339.7989" "73.0000,332.7986"))
(upl '( "68.0000,339.8405" "68.0000,333.0444"))
(ute "HH" 1 "1:1.5" 2.000 1.000 1.570796 69.200 328.400)
(upl '( "63.0000,339.8820" "63.0000,333.2902"))
(upl '( "58.0000,339.9236" "58.0000,333.5360"))
(upl '( "53.0000,339.9651" "53.0000,333.7818"))
(upl '( "48.0000,340.0066" "48.0000,334.0276"))
(upl '( "70.5000,339.8197" "70.5000,329.2070"))