[热点探讨]如何提高勘察工作数据处理速度及精度，降低技术人员的劳动强度． [复制链接]

在岩土工程勘察报告整理中，会出现土工试验成果的统计和计算，剖面图及平面图的绘制、勘察点一鉴表、标准贯入试验统计，勘察软件中数据库的录入等等，还有液化判定、波速测试资料，如此多的基础资料，在整理过程中容易出错，也费工费时，能不能有好的办法，又好又多的将这些基础资料整理出来？

说几条，作个抛砖引玉的作用吧。 Zf~Em'g"3  
如我们使用的理正数据库的录入问题，用理正自带的录入界面太繁琐了，录入过程中键盘和鼠标联合使用，还不能复制粘帖，操作起来很敏，后来，用Excel软件制作了一个录入界面，将分层数据、勘探点一鉴表数据、标贯数据、地下水位数据等等放在这个表中，然后，按理正的接口形式转入到理正数据库中，虽然多了一个转换过程，但录入过程相当方便，还可以多人同时录入，这样明显的提高了工作效率。

开发相关软件和记录标准化，报告标准化，是提高工作效率的唯一选择，如设计很多绘图和计算软件，勘察这方面就很少，特别是基坑设计和地基处理设计方面的软件更少，并且在标准化没有人倡导，觉得勘察报告就应该是各式各样的，不象设计图纸那样可以标准化，，这说法好像不对？勘察报告也是技术产品，应该象麦当劳和肯德基一样，进行规范操作。首先弄清楚勘察报告使用目的和使用人群德要求，这个做好展开调查收集后，再做下一步工作。推进这样大家在保证质量情况下，才可以提高效率。 #w3cImgp2  
当然建立勘察数据库是很好很有效的事情，但是这个协调组织工作没有好多人可以做，除非政府组织

这个可以叫软件开发商改进的。 :_F$e  
另外，楼主用Excel软件制作了一个录入界面，不知道能否共享出来？

我把自己作的这个与理正数据库接口的Excel交出来，让大家品头论足，目前我使用这个办法已完成了很多大型的勘察工作的数据库录入了，也可以我对它比较，大家下载后要分析一下再用，有问题及时提出来．

可以用excell粘贴至里正录入程序中

re:laiguangrr 5c*kgj:x  
不是粘帖到理正录入程序，而是按我说的办法从理正标准接口处导入到它的数据库中，与界面没有多大的关系．

Re:cdddd朋友：您说的数据库的概念比较大，我们目前还没有那个单位可以拥有一个地区的数据库，而是用勘察软件的数据库，本次讨论只是想如何提高勘察工作的效率而已，是用于一个工程的数据库。

很有用的，我正需要，谢谢楼主的贡献．      

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． z)z_]c-X+  
d9'gH#f?  
(DEFUN C:zb() (_2;}eg  
(command "dimzin" "0") sn.Xvk%75  
(command "layer" "new" "zb_1" "") a>1_|QB.  
(setvar "clayer" "zb_1" ) u19d!#g  
(command "color" 1) $9_yD&&  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") rlQ4+~  
(command "osnap" "int") 2(5HPRQ  
(command "osnap" "end") )~((6?k4e  
(command "osmode" 1) 9?4EM^-  
(SETQ P1 (GETPOINT"Pick the zb point:")) . 4$SNzv3V  
(command "osmode" 0) Y!M&8;>  
(SETQ P2 (GETPOINT P1)) q|Oz   
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) #;l~Y}7'  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) u ##.t  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) x RV@_  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) ;QVX'?  
(SETQ XX (RTOS (CAR P1) 2 3)) n\l$R!zr  
(SETQ YY (RTOS (CADR P1) 2 3)) 9eA2v{!S  
(SETQ L1 (STRLEN XX)) 5~AK+6Za  
(SETQ L2 (STRLEN YY)) dd$}FlT  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) RtE2%d$JT  
(COMMAND"LINE" P1 P2"") gO{XD.s  
(command "layer" "new" "zb_2" "") KW17CJ@  
(setvar "clayer" "zb_2" ) D_n(T')  
(IF (>= (CAR P2)(CAR P1)) *^]lFuX\&E  
  (PROGN P, (#' W  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) ]yvHb)
X  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) az5 $.  
  (COMMAND"LINE" P2 P3"") >^<%9{  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) #M9rt~4  
  (COMMAND"TEXT" X2 5 0 YY) ;@I4[4ph}  
  (COMMAND"TEXT" Y2 5 0 XX) ;ALkeUR[  
  (COMMAND"TEXT" X1 5 0 "N") \NIj&euF  
  (COMMAND"TEXT" Y1 5 0 "E") Y
|NL #F  
  ) v5aHe_?lp  
  (PROGN @zz4,,
]  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) ]VarO'  
  (setq p4 (list (- (car p3) 5)(cadr p2))) 3k5C;5  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) x<mHTh:-V  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) n"p|tEK  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) #n9:8BKf  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) DH3.4EUWS  
  (COMMAND"LINE" P2 P3"") "4 Lt:o4x  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) { S]"-x  
  (COMMAND"TEXT" X22 5 0 YY) f{m,?[1C,  
  (COMMAND"TEXT" Y22 5 0 XX) v>e%5[F  
  (COMMAND"TEXT" XX1 5 0 "N") \(S69@f  
  (COMMAND"TEXT" YY1 5 0 "E") FCk4[qOp7  
  ) gj\'1(Ju  
) nUgZ]ag=G  
) k7R8Q~4  
(DEFUN C:zb3() # p?7{"Ep  
(command "dimzin" "0") aGl
*h"&  
(command "layer" "new" "zb_1" "") _ct18nh9  
(setvar "clayer" "zb_1" ) `|{6U"n  
(command "color" 1) 1c$<z
~  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ,3m]jp'  
(command "osnap" "int") %syFHUBw  
(command "osnap" "end") gM0^k6bB8  
(command "osmode" 1) {iz,iv/U  
(SETQ P1 (GETPOINT"Pick the zb point:")) sHt PO[h  
(command "osmode" 0) GT -(r+u  
(SETQ P2 (GETPOINT P1)) R<5GG|(B  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) xK8n~.T('  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) lphELPh  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) mKsTA;  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) $p(,Qz(.8  
(SETQ XX (RTOS (CAR P1) 2 3)) AGH7z  
(SETQ YY (RTOS (CADR P1) 2 3)) %Ydzzr3  
(SETQ L1 (STRLEN XX)) x_C#ALq9  
(SETQ L2 (STRLEN YY)) QG|KZ8uO  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) R(i2TAaaU  
(COMMAND"LINE" P1 P2"") DE0gd ux8  
(command "layer" "new" "zb_2" "") w2 L'j9  
(setvar "clayer" "zb_2" ) >.
tP7=  
(IF (>= (CAR P2)(CAR P1)) "agc*o~!F  
  (PROGN &~%( RO  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) `u./2]n  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) `]+-z+  
  (COMMAND"LINE" P2 P3"") gwf*M3(  
  (COMMAND"TEXT" X2 2.5 0 YY) ZPM,ZGlu:  
  (COMMAND"TEXT" Y2 2.5 0 XX) (Wj2%*NT  
  (COMMAND"TEXT" X1 2.5 0 "N=") |L@9q
wF  
  (COMMAND"TEXT" Y1 2.5 0 "E=") nJdO~0}3
 
  ) ~JU :a@)  
  (PROGN sRM3G]nUr  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) S$=
e %c  
  (setq p4 (list (- (car p3) 3)(cadr p2))) \z/_vzz4  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) "Yk3K^`1T.  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) Cb{n4xKW6  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) EB/.M+~a  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) 'CrBxaA]s  
  (COMMAND"LINE" P2 P3"") rvdhfM!-A  
  (COMMAND"TEXT" X22 2.5 0 YY) x vi&d1  
  (COMMAND"TEXT" Y22 2.5 0 XX) uV\ _j3,2  
  (COMMAND"TEXT" XX1 2.5 0 "N=") l~Em2@c  
  (COMMAND"TEXT" YY1 2.5 0 "E=") LX i?FQnLu  
) r N"P IH  
) ,u^RZ[}  
) l&]Wyaz@n  
(DEFUN C:zb2() @IB+@RmL  
(command "dimzin" "0") a^9-9*  
(command "layer" "new" "zb_1" "") !PaDq+fB  
(setvar "clayer" "zb_1" ) Fu K(SP3  
(command "color" 1)  qep<7 QO  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ~-"<)XPe  
(command "osnap" "int") LPg1G+e  
(command "osnap" "end") 2MNAY%iT  
(command "osmode" 1) )$# Ku2X  
(SETQ P1 (GETPOINT"Pick the zb point:")) ?~mw  
(command "osmode" 0) U 0$?:C+?  
(SETQ P2 (GETPOINT P1)) Ly0U')D:  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) %cWy0:F5VY  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) UE3#(:xA  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) P5:X7[  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) ,W'?F9Y\  
(SETQ XX (RTOS (CAR P1) 2 3)) B{D!5{t  
(SETQ YY (RTOS (CADR P1) 2 3)) &DqeO8?Q  
(SETQ L1 (STRLEN XX)) ~}SOd<n)|  
(SETQ L2 (STRLEN YY)) =Yxu {]G  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) N"i'[!H%  
(COMMAND"LINE" P1 P2"") ~(TS>ck@  
(command "layer" "new" "zb_2" "") Jy,Dcl  
(setvar "clayer" "zb_2" ) y=L9E?  
(IF (>= (CAR P2)(CAR P1)) u}Q@u!~e9  
  (PROGN Cq7EdK;x  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) nDR)UR  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 94=aVM\>>  
  (COMMAND"LINE" P2 P3"") {y{&tzZ  
  (COMMAND"TEXT" X2 1.25 0 YY) 0FDfB;  
  (COMMAND"TEXT" Y2 1.25 0 XX) Q%xvS,oI  
  (COMMAND"TEXT" X1 1.25 0 "N=") Ib)>M`J
 
  (COMMAND"TEXT" Y1 1.25 0 "E=")  TP6iSF  
  ) G3
j&8[  
  (PROGN NFc@Kz<H  
  (setq l (* l 1.1)) GC{)3)_ t  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) =h~\nTN  
  (setq p4 (list (- (car p3) 3)(cadr p2))) 0G(T'Z1  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) \78w1Rkl  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) pGZI697  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) !l7eB@O  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) ]-o0HY2  
  (COMMAND"LINE" P2 P3"") YN\!I  
  (COMMAND"TEXT" X22 1.25 0 YY) \O"EK~x}/  
  (COMMAND"TEXT" Y22 1.25 0 XX) ^&o38=70*  
  (COMMAND"TEXT" XX1 1.25 0 "N=") P1f?'i?J  
  (COMMAND"TEXT" YY1 1.25 0 "E=") X-F|&yE~<  
) U]!
D=+  
) r?e)2l~C8j  
) u S$:J:Drx  
(DEFUN C:zb5() r^uo7?gZ^  
(setq cc 1) `+~@VZ3m  
(setq cc (getint "输入点编号<1>:")) WcyN,5  
(repeat 1000 WJG&`PP  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") rPV\ F  
(command "dimzin" "0") ( }DCy23  
(command "layer" "new" "zb_1" "") */B-%*#I.  
(setvar "clayer" "zb_1" ) C0\A  
(command "color" 1) +L4_]  
(command "osnap" "int") R3]Ra&h6N)  
(command "osnap" "end") zOR  
(command "osmode" 1) `(|jm$Q  
(SETQ P1 (GETPOINT"Pick the zb point:")) [.}-nAN  
(command "osmode" 0) %N!2 _uk5  
(SETQ P2 (GETPOINT P1)) NX?J  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) `I.Uw$,P  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) P)?)H]J"  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) mlgw0   
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) K0xZZ`  
(SETQ XX (RTOS (CAR P1) 2 3)) o=`FGowF
 
(SETQ YY (RTOS (CADR P1) 2 3)) z}'*zB>  
(SETQ L1 (STRLEN XX)) a7#J af  
(SETQ L2 (STRLEN YY)) &e\A v.n@-  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) mZVYgJQ[  
(COMMAND"LINE" P1 P2"") XgUvgJ  
(command "layer" "new" "zb_2" "") sa%2,e'  
(setvar "clayer" "zb_2" ) {`0GAW)q  
(IF (>= (CAR P2)(CAR P1)) @g*=xwve=~  
  (PROGN @0`Q  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2)))

dU]>  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) * %p6+D-C  
  (command"circle" p4 7"") .!kqIx*3  
  (COMMAND"LINE" P2 P3"") i"uAT$xe  
  (setq bb 2.5) 0zg\thL  
  (IF (<= cc 9 )(setq bb 5)) fDmGgD?  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) T,h,)|:I^  
  (COMMAND"TEXT" X2 5 0 YY) c43"o  
  (COMMAND"TEXT" Y2 5 0 XX) J7R+|GTcx  
  (COMMAND"TEXT" X1 5 0 "N") iP1u u  
  (COMMAND"TEXT" Y1 5 0 "E") 9?)r0
`:#  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) <tZPS`c'_  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) ZFy>Z:&S,  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) DiF=<} >x  
  (command"text" p5 6 0 cc) oLcOp.8h[  
  ) Z']D8>d  
  (PROGN sa8Sy&X"  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) ~y{(&7sM  
  (setq p4 (list (- (car p3) 7)(cadr p2))) S5ofe]tS@  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) T!o 4k  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) i]Or'L0c  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) G0Wzx)3]  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) \[&~.B  
  (COMMAND"LINE" P2 P3"") .IYE+XzV  
  (command"circle" p4 7) x
UE9%qO  
  (setq bb 12) yKEE @@}\  
  (IF (<= cc 9 )(setq bb 8)) 9viQ
<}K<  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) $l}MB7
 
  (COMMAND"TEXT" X22 5 0 YY) H"8+[.xBh  
  (COMMAND"TEXT" Y22 5 0 XX) ~SkdP7 )  
  (COMMAND"TEXT" XX1 5 0 "N") =V:rO;qX+@  
  (COMMAND"TEXT" YY1 5 0 "E") GeN8_i[  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) }et^'BkA(  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) RRy3N )HR  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) [#H$@g|CT  
  (command"text" p5 6 0 cc) v4
sc  
  ) ^ MkT">  
) }2M2R}D  
(setq cc (+ cc 1)) +`Bm  
[Dp6q~RM  
) ^I9x@t  
)

大家讨论一下，有没有快速从ＣＡＤ图中提取坐标的方法，可以导入到Excel表格中．

谢谢贡献,我下载了.以后有好的东西互相学习了. T<~NB5&f  
'