CAD绘图功能在赤平投影中的应用 [复制链接]

CAD绘图功能在赤平投影中的应用.caj格式

好，收藏了

好东东 顶一下

好，收藏了        

您的土币不足 3 ,无法下载附件!

VB6 源代码，喜欢的朋友一起探讨。全部代码为本人自编，本人借楼主帖发放。 =m-_0xo  
Public BhachNumber As String G::6?+S  
Dim fso As New FileSystemObject, fldr As Folder '8%aq8  
+n)(\k{
 
y)/d-  
Option Explicit i 0L7`TB  
Dim AcadDoc As AcadDocument u4Vc:n  
Dim FilPath As String      '设置系统路迳 !nykq}kPN\  
Dim AcadApp As Object      'AcadApplication \ fwf\&  
Dim AcadColr As Integer    'CAD线色 Gt- -7S  
Dim ReturnPnt As Variant z.[L1AGa|s  
Dim LayerObj As AcadLayer    'CAD图层 9:@
os0^O  
Dim LayerStr As String wX|]8f2Z  
Dim PolObj As AcadLWPolyline Jbs:}]2  
Dim TextObj As AcadText >)5rOU  
Dim VaraTtributes As Variant =XoNk1  
Dim KK As Integer          '定义玫瑰花图分度间隔 B&L{/.v_z\  
Dim KL As Integer          '定义玫瑰花图最大半径条数 Kji}2j'a  
Dim StartPnt(0 To 2) As Double tD>m%1'&  
Dim EndPnt(0 To 2) As Double t,MK#Ko  
Dim II As Integer U7:~@eYy  
Dim K As Integer i
|=}zR  
Dim TextString As String y@hdN=-  
Dim InsertionPoint(0 To 2) As Double )?4m}  
Dim HeightString As Double A7: oq7b  
Dim BlockObj As AcadBlockReference
'}XW  
Dim DrawNum1 As Double F3wRHq  
Dim LTName As String }KZ/>Z;^  
Dim i As Integer BH*vsxe  
Dim X0 As Single, Y0 As Single, X2 As Single, Y2 As Single BRH:5h  
Dim R1 As Single, R2 As Single, Ang1 As Single, Ang2 As Single *TMg.  
Dim Dat(4, 200) vtr:{   
Dim CirclObj As Object PQf FpmG  
Const Pi = 3.1415926 -3KB:K<  
Dim R As Double `D#l(gZ  
Dim dwPath As String 21cIWvy  
Dim dwPath1 As String Jr1^qY`0+  
Dim dwPath2 As String GW}KmTa]&  
Dim dwPath3 As String '^P Ud`  
Dim ArcObj As AcadArc R%}k52`  
Dim ArcStrA As AcadArc w*bVBuXs  
Dim LineObj As AcadLine ?g<*1N?:  
Dim LWPLObj As AcadLWPolyline 0<i~XN0g  
Dim centerPoint(0 To 2) As Double '#q"u y  
Dim radius As Double 0BE%~W  
Dim startAngleInDegree As Double g"zk14'  
Dim endAngleInDegree As Double 2%WZ-l!i  
Dim startAngleInRadian As Double Y*"%;e$tg  
Dim endAngleInRadian As Double eKu&_q  
xD_jfAH'  
Private Sub Command1_Click() iUl{_vb  
StartPnt(0) = DrawNum1 2RM1-j ($  
StartPnt(1) = 0 0A}'.LI  
StartPnt(2) = 0 gqe z-  
R = 100 -'YX2!IU,  
FilPath = App.Path & "\CPTY.dwg" 8V4Qyi|@F  
Set BlockObj = AcadDoc.ModelSpace.InsertBlock(StartPnt, FilPath, 1, 1, 1, 0) crvWAsm  
Call DrawArc 2c+q~8Jv  
dwPath1 = "-赤平投影图" s fti[  
MsgBox "赤平投影结束，可以进行其它工作！" Y!Z@1V`  
DrawNum1 = DrawNum1 + 300 R~c(^.|r  
End Sub kZn!]TseN  
J-X5n 3I&  
Private Sub Command2_Click() }Efp{E  
StartPnt(0) = DrawNum1: StartPnt(1) = 0: StartPnt(2) = 0 L8Z?B\  
FilPath = App.Path & "\Rose.dwg" s]B^Sz=  
Set BlockObj = AcadDoc.ModelSpace.InsertBlock(StartPnt, FilPath, 1, 1, 1, 0) 5B98}N  
BlockObj.Update ',O@0L]L  
Call DrwRose Ha 3XH_  
dwPath2 = "-玫瑰花图" _
&BnET  
MsgBox "玫瑰花图结束，可以进行其它工作！" bfa5X<8  
DrawNum1 = DrawNum1 + 300 gXf_~zxS  
End Sub S - 7JDE>  
gR?3)m  
Private Sub Command3_Click() )bcMKZ   
Call SelectDat JWxPH5L  
End Sub |,yS>kjp  
cHR}`U$  
Private Sub Command4_Click() IkkJ4G  
dwPath = App.Path & "\" & BeginFrm.BhachNumber & "\" _ -Fl3m  
        & BeginFrm.BhachNumber & dwPath1 & dwPath2 & dwPath3 & ".dwg" <[pU rJfTr  
AcadDoc.SaveAs (dwPath) 4+ 4?
0R  
Unload BeginFrm d$Mj5w
N:q  
Unload MaiDatFrm FtF!D
tv  
Unload Me zpa'G1v  
End Sub =z@'vu$Fh  
X\$M _b>O  
Private Sub DrawArc() t_j.@|/FZ  
Dim DI As Integer p
p{%\td  
Adodc1.Refresh BkO"{  
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub I5 2wTl0  
Adodc1.Recordset.MoveFirst j^64:3  
For DI = 1 To Adodc1.Recordset.RecordCount Step 1 /CZOO)n  
    Dat(1, DI) = Adodc1.Recordset("结构面倾角").Value * Pi / 180 uCUBs(iD  
    Dat(2, DI) = Adodc1.Recordset("结构面倾向").Value * Pi / 180 r Ssv^W+  
    _$Fi]l!f  
    R1 = R * (1 - Dat(1, DI) / (Pi / 2)) k$+&  
    X2 = R1 * Sin(Dat(2, DI) - Pi) B,gQeW&  
    Y2 = R1 * Cos(Dat(2, DI) - Pi) auGt>,Zj\Q  
    Ang2 = Pi - 2 * Atn(R / R1) o}Xp-P   
    R2 = R / Sin(Ang2) ;=e A2  
    Ex*g>~e  
    X0 = (R1 - R2) * Sin(Dat(2, DI) - Pi) A4
&e#  
    Y0 = (R1 - R2) * Cos(Dat(2, DI) - Pi) WG^D$L
:  
    z?7s'2w&{  
    )3u[btm  
    ' Define the circle $G=\i>R.  
    centerPoint(0) = StartPnt(0) + X0: centerPoint(1) = StartPnt(1) + Y0: centerPoint(2) = 0 zV2c`he%z  
    radius = R2 _abVX#5<  
    startAngleInDegree = 270 - (Dat(2, DI) + Ang2) * 180 / Pi ,U<Ku*}B  
    If startAngleInDegree >= 360 Then startAngleInDegree = startAngleInDegree - 360 xr6Q5/p1  
    If startAngleInDegree < 0 Then startAngleInDegree = startAngleInDegree + 360 FyY;F;4P  
    ?X:RrZ:/  
    endAngleInDegree = 270 - (Dat(2, DI) - Ang2) * 180 / Pi C
g&1  
    If endAngleInDegree >= 360 Then endAngleInDegree = endAngleInDegree - 360 WxXVL"  
    If endAngleInDegree < 0 Then endAngleInDegree = endAngleInDegree + 360 wOa_"  
    VD=$:

F]  
    ' Convert the angles in degrees to angles in radians ,*C^ixNE  
    startAngleInRadian = startAngleInDegree * Pi / 180 *w%;$\^  
    endAngleInRadian = endAngleInDegree * Pi / 180 6 a$%  
    &1Az`[zKGW  
    ' Create the arc object in model space QZwRg&d<o  
    Set ArcObj = AcadDoc.ModelSpace.AddArc(centerPoint, radius, startAngleInRadian, endAngleInRadian) uAJ_`o[  
    If DI = 1 Then }D=h"\_=  
        LTName = "10411" C-2n2OM.  
        Set ArcStrA = ArcObj }!.7QpA$  
        ArcStrA.Linetype = LTName ~" $9auQtC  
        ArcStrA.Update -(1e!5_-@  
    End If !C/`"JeYL  
    ArcObj.Update ltD:w{PO]  
    Adodc1.Recordset.MoveNext b<[eBXe  
Next DI )p!dqlK  
134wK]d^  
End Sub esLY1c%"/  
uM4,_)L  
Private Sub DrwRose() m\~[^H~g  
K = 0 ow`\7
qr  
Adodc2.Refresh \SMH",u  
Adodc2.Recordset.MoveFirst :F<
a~_k  
For i = 1 To Adodc2.Recordset.RecordCount h@Hmo^!9J  
    Dat(1, i) = Adodc2.Recordset("统计方向").Value =,?@p{g}  
    If Dat(1, i) >= 90 And Dat(1, i) < 180 Then Dat(1, i) = Dat(1, i) + 180 o/&:w z  
    If Dat(1, i) >= 180 And Dat(1, i) < 270 Then Dat(1, i) = Dat(1, i) - 180 ZW\h,8%  
    Dat(2, i) = Adodc2.Recordset("统计条数").Value r[\4
7cG  
    Adodc2.Recordset.MoveNext Ezml LFp.  
Next i 6=H-H\iw  
For i = 270 To 450 Step KK Ni0lj:  
    K = 0: EndPnt(0) = DrawNum1: EndPnt(1) = 0  '调整玫瑰花图位置 c=| a\\  
    For II = 1 To Adodc2.Recordset.RecordCount JP@UvDE|  
        If i < 360 Then *Pq`~W_M7  
            If ((Dat(1, II) >= i) And (Dat(1, II) < (i + KK))) Then K = K + Dat(2, II) !$d:k|b  
        Else >#8`Zy:/Y  
            If ((Dat(1, II) >= (i - 360)) And (Dat(1, II) < (i + KK - 360))) Then K = K + Dat(2, II) r@n%  
        End If Fx.uPY.a  
    Next II @-MrmF)<U  
    EndPnt(0) = (K * Sin(((i)) * Pi / 180)) * 100 / KL + DrawNum1 gjs-j{*  
    EndPnt(1) = (K * Cos(((i)) * Pi / 180)) * 100 / KL {O"dj;RU  
    Set LineObj = AcadDoc.ModelSpace.AddLine(StartPnt, EndPnt) n*;mFV0s  
    LineObj.Update 7,O^c+  
       
16aaIK  
    StartPnt(0) = EndPnt(0): StartPnt(1) = EndPnt(1) oVsl,V  
Next i L9AfLw5&X  
    '制作标尺 $[]=6.s  
    HeightString = 5 Dd{{d?;B  
    TextString = Str(KL) zR5D)`Ph
 
    InsertionPoint(0) = DrawNum1 - 105: InsertionPoint(1) = 7 2.:b  
    Set TextObj = AcadDoc.ModelSpace.AddText(TextString, InsertionPoint, HeightString) X5<L  
    InsertionPoint(0) = DrawNum1 + 90: InsertionPoint(1) = 7 Wh4lz~D\@  
    Set TextObj = AcadDoc.ModelSpace.AddText(TextString, InsertionPoint, HeightString) bqLv81V  
    TextString = Str(Int(KL / 2 + 0.5)) "Dy&`  
    InsertionPoint(0) = DrawNum1 + 45: InsertionPoint(1) = 7 Ads^y`b  
    Set TextObj = AcadDoc.ModelSpace.AddText(TextString, InsertionPoint, HeightString) "#JoB X@yE  
    InsertionPoint(0) = DrawNum1 - 55: InsertionPoint(1) = 7 ^Cak/5^K  
    Set TextObj = AcadDoc.ModelSpace.AddText(TextString, InsertionPoint, HeightString) wr#+q1v  
End Sub A"P1B]  
Private Sub cmdAdd1_Click() vJcvyz#%1  
  On Error GoTo AddErr q?t>!1c  
  Adodc1.Recordset.MoveLast 61C&vm  
  DataGrid1.SetFocus 1w5p*U0 ;  
  SendKeys "{down}" p]aIMF_  
&GbCJ  
  Exit Sub {@3=vBl%O+  
AddErr: =]Ek12.  
  MsgBox Err.Description k}<mmKB  
End Sub q$HBPR4h  
U O[p  
Private Sub cmdDelete1_Click() RP(FV<ot  
  On Error GoTo DeleteErr m<076O4|`  
  With Adodc1.Recordset 89 lPeF
Q`  
    .Delete `[ne<F?e  
    .MoveNext lX7#3ti:  
    If .EOF Then .MoveLast DSnsi@Mi  
  End With RGxO
b  
  Exit Sub s&tr84u|  
DeleteErr: +B&FZ4'  
  MsgBox Err.Description ?pxx,o6l  
End Sub PB9<jj;  
V5A7
w V3~  
Private Sub cmdUpdate1_Click() =+"XV8Fi,  
  On Error GoTo UpdateErr yBr{nFOgdY  
](0A/,#q6  
  Adodc1.Recordset.UpdateBatch adAffectAll %? iE3j!q  
  Adodc1.Refresh S@*@*>s^  
  Exit Sub ___+5r21\  
UpdateErr: 979L]H#  
  MsgBox Err.Description Dk7"#q@kx  
End Sub dk3\~m%Pv  
Private Sub cmdAdd2_Click() >! c^  
  On Error GoTo AddErr dkVVvK  
  Adodc2.Recordset.MoveLast o-(jSaH :;  
  DataGrid2.SetFocus )lW<:?k  
  SendKeys "{down}" xr?r3Y~^e  
8)H"w
$jq  
  Exit Sub +nqOP3  
AddErr: %R_8`4IQ  
  MsgBox Err.Description
2 na8G  
End Sub p4el9O&-tV  
H?B.Hp|  
Private Sub cmdDelete2_Click() 2<J82(4j  
  On Error GoTo DeleteErr :)MZgW  
  With Adodc2.Recordset fmSA.z  
    .Delete A&t}s #3  
    .MoveNext \tQi7yj4  
    If .EOF Then .MoveLast t>b^S,  
  End With ,$G89jSM  
  Exit Sub {`}RYfZ
 
DeleteErr: "iKK&%W  
  MsgBox Err.Description ^7_<rs  
End Sub CP?\'a"Kt  
'i@Y #F%D  
Private Sub cmdUpdate2_Click() 3yZ@i<rfH  
  On Error GoTo UpdateErr Lv5AtZl}  
1`)R#$h  
  Adodc2.Recordset.UpdateBatch adAffectAll ^^%*2^  
  Adodc2.Refresh * dNMnZ@Y  
  Exit Sub 7"S|GEs:  
UpdateErr: wDSU~\  
  MsgBox Err.Description 6: M  
End Sub \[8I5w-  
;aFQP:l/  
Private Sub cmdAdd3_Click() %8$wod6  
  On Error GoTo AddErr f{b"=hQ  
  Adodc3.Recordset.MoveLast lc/2!:g  
  DataGrid3.SetFocus "+AeqrYYm5  
  SendKeys "{down}" p~e6ah?1  
[Q%3=pm_  
  Exit Sub y[$e]N  
AddErr: aH>.o 1;  
  MsgBox Err.Description qI'a|p4fn?  
End Sub 55[K[K  
'<@PgO~  
Private Sub cmdDelete3_Click() !}vz_6)  
  On Error GoTo DeleteErr w!xSYh')  
  With Adodc3.Recordset 'uPqe.#?  
    .Delete 0Ifd!  
    .MoveNext _mO\Nw0  
    If .EOF Then .MoveLast lOE
bh  
  End With +q2l,{|?  
  Exit Sub EM([N*8o  
DeleteErr: KT|$vw2b
 
  MsgBox Err.Description 2Nj0 Hqjq  
End Sub M1oCa,8M+  
|epe;/  
Private Sub cmdUpdate3_Click() ao,LP,_  
  On Error GoTo UpdateErr 8p!PR^OM@  
W:tE ?Hu  
  Adodc3.Recordset.UpdateBatch adAffectAll :`uo]B"  
  Adodc3.Refresh g"#+U7O  
  Exit Sub r
icDP 9#a  
UpdateErr: h.8J6;36  
  MsgBox Err.Description >uUbWKn3  
End Sub a-kU?&* y  
Private Sub Command5_Click() W*_ifZ0s.  
Dim circleObj As AcadCircle M$?~C~b!*  
Dim radius As Double f^]2qoN  
2h/`RefHJ  
FilPath = App.Path & "\JdCir.dwg" bGSgph  
InsertionPoint(0) = DrawNum1 MW&;{m?2(  
InsertionPoint(1) = 0 _x>u"w  
InsertionPoint(2) = 0 ~o8$/%Oeb/  
Call InstBlock Fs=nAn#  
[PU.lRq  
Adodc3.Refresh *F9uv)[kz  
Adodc3.Recordset.MoveFirst 7%F9.h  
For i = 1 To Adodc3.Recordset.RecordCount 1Ju{IEV  
    InsertionPoint(0) = DrawNum1 + 90 * Sin(Adodc3.Recordset("裂隙倾角").Value * Pi / 180) * Sin(Adodc3.Recordset("裂隙倾向").Value * Pi / 180) QX8N p{g-  
    InsertionPoint(1) = 90 * Sin(Adodc3.Recordset("裂隙倾角").Value * Pi / 180) * Cos(Adodc3.Recordset("裂隙倾向").Value * Pi / 180)  k/t4  
    .rMGI"  
    ' Define the circle ]V9\4#I4  
    radius = 0.1 
'Y-c
*q  
    eH6#'M4+\  
    ' Create the Circle object in model space )qxL@w.  
    Set circleObj = AcadDoc.ModelSpace.AddCircle(InsertionPoint, radius) TRQva8d?  
    ZoomAll EGa}ml/G  
    +-{HT+W  
    Adodc3.Recordset.MoveNext SWmdU]  
Next i K3@UoR  
    !G8SEWP  
dwPath3 = "-裂隙极点散点图" t[DXG2&  
MsgBox "裂隙极点散点图结束，可以进行其它工作！" 0_j!t  
DrawNum1 = DrawNum1 + 300
uS&bfx2  
End Sub `9F'mT#o/  
/Db~-$K  
Private Sub DataGrid1_DblClick() 9EH%[wfv  
  On Error Resume Next c5]1aFKz  
  Adodc1.Refresh V1Fdt+#  
  KK = Adodc1.Recordset.RecordCount 8d>OtDLa  
  For K = 1 To KK TQ>1u  
  With Adodc1.Recordset $QY(7Z"  
    .Delete
=izB :  
    .MoveNext g,q&A$Wi  
  End With &KD m5p  
  Next K a(<nk5  
DataGrid1.Refresh LS \4y&J40  
z?K+LTf8  
End Sub _Fer-nQ2R  
RLIugz{IH  
Private Sub DataGrid2_DblClick() au#IA  
  On Error Resume Next |
fa3;8!96  
  Adodc2.Refresh M9iu#6P  
  KK = Adodc2.Recordset.RecordCount $60+}B`m  
  For K = 1 To KK N8!B2uPQ  
  With Adodc2.Recordset :o
Z30}  
    .Delete >=B8PK+<  
    .MoveNext L>PpXTWwy  
  End With R!-RSkB  
  Next K gfp#G,/B  
DataGrid2.Refresh <4VUzgX2  
End Sub L1J"_.=P  
:|d3BuY  
Private Sub DataGrid3_DblClick() LUCpZ3F1  
  On Error Resume Next b_6j77  
  Adodc3.Refresh /]vg_&)=  
  KK = Adodc3.Recordset.RecordCount h?idRaN_  
  For K = 1 To KK S3n$  
  With Adodc3.Recordset b0 5h,  
    .Delete &yP9vp="  
    .MoveNext ;,F}!R  
  End With N2~Nc"L  
  Next K 3c ^_IuW-  
DataGrid3.Refresh 0{jRXa-(  
)v'DQAL  
End Sub !e%#Zb MIo  
#kxg|G[Ol  
Private Sub Form_Load() fdPg{3x*k  
    FilPath = App.Path u'iOa  
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ iveWau292  
                            & FilPath & "\岩土工程数据.mdb; Persist Security Info=False" [g%oo3`A  
    Adodc1.RecordSource = "select  * from 赤平投影" z |t0mS$  
    Adodc1.Refresh w1.KRe{M  
    Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ T}zOM%]]  
                            & FilPath & "\岩土工程数据.mdb; Persist Security Info=False" ` bg{\ .q  
    Adodc2.RecordSource = "select * from 玫瑰花图" W;o\}irep  
    Adodc2.Refresh 9BF#R<}h  
    Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ 'g$|:bw/  
                            & FilPath & "\岩土工程数据.mdb; Persist Security Info=False" z:acrQwJ?1  
    Adodc3.RecordSource = "select * from 极点裂隙" O
k,hm.|  
    Adodc3.Refresh jF'S"_/?  
    KL = Val(Text2.Text)  '最大条数 e0aeiG$/0  
    KK = Val(Text1.Text)  '间隔度数 7o;}"Y1  
    R = 100 '|6j1i0x  
    DrawNum1 = 0 uODpIxN  
    On Error Resume Next T}g;kppC  
    Set AcadApp = GetObject(, "AutoCAD.Application") {Ynr(J.  
    If Err.Number Then _jr%s  
        Err.Clear p;C`n)7P7  
        Set AcadApp = CreateObject("AutoCAD.Application") 0t<TZa]V  
        If Err Then 0z%]HlPg  
            MsgBox Err.Description x2tx{Z  
            Exit Sub _w'4f )7  
        End If bhFzu[B  
    End If Ye,E7A*L  
        Set AcadDoc = AcadApp.ActiveDocument f^',J@9@  
        autocad.Visible = True ~s !+9\Fi  
        VpD9!;S  
    Dim linetypeColl As AcadLineTypes qf'uXH  
    Dim entr As AcadLineType NL~}  
    Dim msg As String J%%nv5y  
    O1-Ne.$  
    ' Return the linetype collection object of the active document 6W$k^<S  
    Set linetypeColl = AcadDoc.Linetypes ]ErAa"?  
    ' List all available linetypes 2avSsN{^  
    For Each entr In linetypeColl :vm*miOF  
        If entr.Name = "10411" Then msg = "ok" ;BpuNB  
    Next *O+N4tq  
;Cv x48  
    LTName = "10411" dhV=;'   
    FilPath = App.Path & "\" & "acad.lin" G<>`O;i  
    If msg <> "ok" Then AcadDoc.Linetypes.Load LTName, FilPath _I75[W!  
End Sub #LcF;1o%o2  
o^lKM?t  
rH & ^SNc  
Private Sub InstBlock() \N!k)6\  
I*'QD)  
    Set BlockObj = AcadDoc.ModelSpace.InsertBlock(InsertionPoint, FilPath, 1, 1, 1, 0) whD%Oz*f  
    VaraTtributes = BlockObj.GetAttributes !$fBo3!B_8  
fD V:ueO  
End Sub ?z?IEj}  
SB]|y-su  
p6>3 p  
Private Sub SelectDat() 0;]tC\D1  
Adodc2.Refresh (LGx;9S?  
Adodc2.Recordset.AddNew aP2  
For i = 0 To 360 Step KK !d^5mati)T  
|>d56  
    Adodc3.RecordSource = "select * from 极点裂隙 where 裂隙倾向 >= " & i _ &a7KdGP8V  
                          & " and 裂隙倾向 < " & (i + KK) ^[5yff 4  
    0Y[mh@(  
    Adodc3.Refresh $Y>LUZ)b&8  
    K = Adodc3.Recordset.RecordCount O'_D*?  
    If K <> 0 Then 3"cAwU9
 
        If i < 90 Then 8Kv=Zp,?`  
            Adodc2.Recordset("统计方向") = i + 90 3F<My+J  
        Else #IgY'L  
            Adodc2.Recordset("统计方向") = i - 90 rrmr#a  
        End If )5p0fw  
        Adodc2.Recordset("统计条数") = K )=2iGEVW  
        Adodc2.Recordset.UpdateBatch (adAffectCurrent) qy.Mi{=~:  
        Adodc2.Recordset.AddNew cnQ( G$kh  
    End If RW%e%  
    K = 0 "S*lI^8Z!  
Next i tEZ@v(D  
    Adodc3.RecordSource = "select * from 极点裂隙" @y)fR.!)1$  
    Adodc3.Refresh S_1R]n1/  
^cX);koO  
End Sub

好东西  我 要了 

  thank you

我 要下载，钱不够了

好东东！感谢分享！

好东东 顶一下

好资料，学习学习，谢谢！！！