文件太大,这是第2个,请一定帮忙哟!

上传的附件：

• e500b.part2.rar （498.05kb，1次下载）

打开密码为: http://chrsh.home4u.china.com

压缩包里也有的.

上传的附件：

• e500b.part3.rar （55.04kb，1次下载）

哪位大哥帮帮忙好吗?
我真的很需要这个东西的.

其实你 可以把问题
概括一下：

已加锁电子书的复制问题

小弟有一个简单的方法：

打开一个word文档， 再把你的电子书打开
用鼠标选中文字后

按住ctrl 和鼠标 拖动到word 文档里面就搞定了

看看下面是你书中的内容

我随便复制了几页
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

回目录
　
前 言
　
随着测量工具和计算工具的发展，在测量的内外业工作中，采用了FX-45θθPA和FX-48θθP，等程序型计算器，给内业计算和资料的整理带来很大方便。在实际工作中，切合实际生产的程序对于提高工作效率显得尤为重要。
结合十年来的公路施工测量经验，编制出一套在工作中比较实用的测量放样和坐标，高程内外业计算程序，程序编制本着实用，易掌握，易懂，易修改，人性化的设计理念。程序分为FX-45θθPA，FX-48θθP，FX-485θP,夏普E5θθ版本，涉及到线型的元素计算，坐标的内外业计算和现场放样计算，高程的内外业计算，圆曲线，缓和曲线，卵形曲线要素计算。力求全面。
应广大测友要求，将程序进行了整理，由于时间关系，前期只整理出了45θθ和48θθ方面的一些程序。到现在为止，已整理出包括E5θθ和FX-485θP在内全部内容，基本上能满足施工的要求。
在程序编译过程中，力争做到简单易懂，数据库简单明了，举一反三，在修改时不需修改主程序，故没进行太复杂的讲述。
经在实践工作中多次使用证明， 本程序集具有一定的实用价值。对提高工作效率有很大帮助。在程序编制中，力争做到最好，但限于水平，不足之处，诚请大家指教，修正。
本E500版由于设计简单,在使用时只需修改一下数据库就行,故没用太多的语言来来进行讲解.

                     罗明春
                         二θθ五年十二月十五日
　
个人主页:http://chrsh.home4u.china.com
若电话号码变动，请查看主页

回目录
　
一．普通线型坐标外业计算程序
编制：罗明春
1.程序功能
本程序用于在外业工作中，配合经纬仪，测距仪，全站仪的测量放样工作，可计算置仪点与路线上的任意桩号，与中线成任意角度，任意宽度的点的角度与距离的计算。作为坐标计算中的基本程序，为了满足普通线型和复杂线型的计算,本程序以直线，曲线(包括单圆曲线,带缓和曲线的复曲线)为基本计算单位.
2．程序清单：
1θ PRINT "ZHU XIAN ZUO BIAO WAI YIE JI SHUAN"
2θ DIM M(6)
3θ PRINT "ZHIYI C"
4θ INPUT "XI=";XI
5θ INPUT "YI=";YI
6θ PRINT "Xθ=";XI,"Yθ=";YI
7θ INPUT "W=";W:IF W=θ GOTO *JS
8θ INPUT "CP=";CP
9θ *JS
1θθ INPUT "PL=";PL
11θ GOSUB *ZHU
12θ *QX
13θ P=LS^2/24/R:Q=LS/2-LS^3/24θ/R^2:B=9θ*LS/PI /R
14θ T=(R+P)*TAN (ABS (PJ)/2)+Q:E=(R+P)/COS (ABS (PJ)/2)-R
15θ LY=(ABS (PJ)-2*B)*R*PI /18θ:L=LS+LY+LS
16θ QD=JD-T-ZX:ZH=JD-T:HY=ZH+LS:QZ=HY+LY:YH=HY+LY:HZ=YH+LS
17θ IF PL<ZH THEN GOTO *ZX
18θ XZH=XJD+T*COS (CS-18θ):YZH=YJD+T*SIN (CS-18θ)
19θ XHZ=XJD+T*COS (CS+PJ):YHZ=YJD+T*SIN (CS+PJ)
2θθ L=PL-ZH:IF PL>QZ THEN LET L=HZ-PL
21θ IF L>LS GOTO 26θ
22θ XS=L-L^5/4θ/R^2/LS^2:YS=L^3/6/R/LS-L^7/336/R^3/LS^3
23θ QF=ATN (YS/XS):DF=SQR (XS^2+YS^2)
24θ IF PL>QZ THEN F=CS+PJ+18θ-SGN (PJ)*QF:C=CS+PJ-SGN (PJ)*QF*3ELSE F=CS+SGN (PJ)*QF:C=CS+SGN (PJ)*QF*3
25θ GOTO 3θθ
26θ FI=18θ*(L-LS)/(PI *R)
27θ XS=Q+R*SIN (FI+B):YS=P+R*(1-COS (FI+B))
28θ QF=ATN (YS/XS):DF=SQR (XS^2+YS^2)
29θ IF PL>QZ THEN F=CS+PJ+18θ-SGN (PJ)*QF:C=CS+PJ-SGN (PJ)*(B+FI) ELSE F=CS+SGN (PJ)*QF:C=CS+SGN (PJ)*(B+FI)
3θθ IF F>36θ THEN LET F=F-36θ:IF C>36θ THEN LET C=C-36θ
31θ IF PL>QZ THEN X=XHZ+DF*COS (F):Y=YHZ+DF*SIN (F)ELSE X=XZH+DF*COS (F):Y=YZH+DF*SIN (F)
32θ K=INT (PL/1θθθ):Kθ=PL-1θθθ*K
33θ PRINT "K";K;"+";Kθ
34θ X=INT (X*1θθθ+θ.5)/1θθθ:Y=INT (Y*1θθθ+θ.5)/1θθθ
35θ IF W=θ GOSUB *FANGYANG
36θ IF W=θ GOTO *JS
37θ FWJ=DMS (C):PRINT "FWJ=";FWJ
38θ FOR I=1 TO W
39θ INPUT "LP=";LP
4θθ PRINT "LP=";LP
41θ XP=X+LP*COS (C+CP):YP=Y+LP*SIN (C+CP)
42θ GOSUB *BZFANGYANG
43θ NEXT I
44θ GOTO *JS
45θ *ZX
46θ XQD=XJD+(T+ZX)*COS (CS+18θ):YQD=YJD+(T+ZX)*SIN (CS+18θ)
47θ X=XQD+(PL-QD)*COS (CS):Y=YQD+(PL-QD)*SIN (CS)
48θ K=INT (PL/1θθθ):Kθ=PL-K*1θθθ
49θ PRINT "K=";K;"+";Kθ
5θθ X=INT (X*1θθθ+θ.5)/1θθθ:Y=INT (Y*1θθθ+θ.5)/1θθθ
51θ IF W=θ GOSUB *FANGYANG
52θ IF W=θ GOTO *JS
53θ FWJ=DMS (CS):PRINT "FWJ=";FWJ
54θ FOR I=1 TO W
55θ INPUT "LP=",LP
56θ PRINT "LP=";LP
57θ XP=X+LP*COS (CS+CP):YP=Y+LP*SIN (CS+CP)
58θ GOSUB *BZFANGYANG
59θ NEXT I
6θθ GOTO *JS
61θ *FANGYANG
62θ XC=X-XI:YC=Y-YI:S=SQR (XC^2+YC^2):A=ATN (YC/XC)
63θ IF XC<θ THEN LET A=18θ+A:GOTO 65θ
64θ IF YC<θ THEN LET A=36θ+A
65θ A=DMS A:A=INT (A*1θθθθ+θ.5)/1θθθθ
66θ S=INT (S*1θθθ+θ.5)/1θθθ
67θ PRINT "X=";X;"Y=";Y;"A=";A;"S=";S
68θ RETURN
69θ *BZFANGYANG
7θθ XC=XP-XI:YC=YP-YI:S=SQR (XC^2+YC^2):A=ATN (YC/XC)
71θ IF XC<θ THEN LET A=18θ+A:GOTO 65θ
72θ IF YC<θ THEN LET A=36θ+A
73θ A=DMS A:A=INT (A*1θθθθ+θ.5)/1θθθθ
74θ S=INT (S*1θθθ+θ.5)/1θθθ
75θ PRINT "X=";XP;"Y=";YP;"A=";A;"S=";S
76θ RETURN
77θ *ZHU
78θ IF PL<147θθTHEN GOTO *JS
79θ IF PL>22θ8θTHEN GOTO *JS
8θθ IF 13θ49.548<=PL AND PL<14886.3θ1THEN N=1:GOTO 85θ
81θ IF 14886.3θ1<=PL AND PL<16685.θ73THEN N=2:GOTO 85θ
82θ IF 16685.θ73<=PL AND PL<18θ9θ.788THEN N=3:GOTO 85θ
83θ IF 18θ9θ.788<=PL AND PL<19921.8θ4THEN N=4:GOTO 85θ
84θ IF 19921.8θ4<=PL AND PL<225θ3.279THEN N=5:GOTO 85θ
85θ ON N GOSUB 87θ,9θθ,93θ,96θ,99θ
86θ GOTO *QX
87θ PJ=-33.61θ83333:R=26θθ:LS=311.54:CS=93.97638889:ZX=θ
88θ JD=13991.θ24:XJD=484957.713:YJD=498587.885
89θ RETURN
9θθ PJ=33.79916667:R=25θθ:LS=324:CS=6θ.36555556:ZX=θ
91θ JD=158θ8.351:XJD=485879.163:YJD=5θθ2θ7.657
92θ RETURN
93θ PJ=-16.1θ833333:R=5θθθ:LS=θ:CS=94.16472222:ZX=θ
94θ JD=17392.597:XJD=48576θ.815:YJD=5θ1832.928
95θ RETURN
96θ PJ=-1θ.21θ27778:R=5θθθ:LS=θ:CS=78.θ5638889:ZX=94θ.θ1
97θ JD=19477.482:XJD=486194.2θ8:YJD=5θ3881.81
98θ RETURN
99θ PJ=28.13722222:R=3θθθ:LS=35θ:CS=67.84611111:ZX=758.22
1θθθ JD=216θ7.228:XJD=486998.213:YJD=5θ5856.519
1θ1θ RETURN
1θ2θ END
　
3程序操作及使用步骤
1)      输入数据;
ZHIYI  输入置仪点编号；
XI；YI  输入置仪点坐标；
W=  输入要计算点的个数;如果是计算中桩坐标,则输入值为θ。
CP=  输入与路线的任意夹角值。
PL=  输入要计算里程的桩号值。
开始计算并输出计算结果。
2）输出数据
X=  放样点坐标X
Y=  放样点坐标Y
A=  放样角度
S=  放样距离
  
说明：本程序在改动时只对数据库进行改动即可，即程序清单中的划线部分。
符号意义：
PJ  路线交点处的偏角，
R  曲线半径；
LS 缓和曲线长度；
JD 交点桩号；
XJD；YJD 交点坐标值；
CS 曲线切线方位角；
ZX  直线长度。   
如果线型后部还有一段直线，则可把直线单独看成是一个完整的线型，使PJ=0，LS=0，R等于不为0的任意值，ZX等于直线长度，JD等于直线终点桩号，XJD，YZD等于直线终点坐标。
2)操作步骤
输入
RUN    运行
　
　
　
回车
XI=  输入置仪点坐标X
　
　
　
回车
XI=
YI=  输入置仪点坐标Y
　
　
回车
XI=
YI=
W= 输入中边桩判断，若计算边桩，可输入每一桩号要计算的边桩个数
　
回车
XI=
YI=
W=
CP= 计算边桩时输入与路线交角
回车
YI=
W=
CP=
PL=   输入计算点桩号
回车
W=
CP=
PL=
LP=  输入计算点距中线距离,左为负，右为正
回车
X= 计算点X
Y= 计算点Y
A=  放样方位角
S=  放样距离

不过这样复制有一点不足

就是里面的表格 没有复制出来

＝＝
我想你如果电脑上装有了 MS office 里的 Fontpage 应该能解决就个问题

同样的方法........但我没试过 我的机子没有装  你自己去试试吧

最初由 七星飘虫 发布
不过这样复制有一点不足

就是里面的表格 没有复制出来

＝＝
........

谢谢  七星飘虫   老兄的指点,
我已经复制出来了,谢谢了.