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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． E7A psi4]  
% D]vKv~<  
(DEFUN C:zb() 2$>"4 N  
(command "dimzin" "0") e:SBX/\j
 
(command "layer" "new" "zb_1" "") R{s&6  
(setvar "clayer" "zb_1" ) ,o$F~KPu  
(command "color" 1) <h(KIY9T  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") H4s^&--  
(command "osnap" "int") AXUSU(hU  
(command "osnap" "end") QXXB>gOY5  
(command "osmode" 1) sFqLxSo_I  
(SETQ P1 (GETPOINT"Pick the zb point:")) r(ej=aR  
(command "osmode" 0) T#;W5<"  
(SETQ P2 (GETPOINT P1)) /az}<r8  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) RlRkw+%m  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) VO
_! +  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) z6~cm6j  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) {H]xA3[]  
(SETQ XX (RTOS (CAR P1) 2 3)) 3;M7^DM  
(SETQ YY (RTOS (CADR P1) 2 3))  U 6((  
(SETQ L1 (STRLEN XX)) {Y>5 [
gp  
(SETQ L2 (STRLEN YY)) pmm?Fq!s=  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) ?F{sym@i  
(COMMAND"LINE" P1 P2"") "N"$B~W*  
(command "layer" "new" "zb_2" "") v-zi ,]W  
(setvar "clayer" "zb_2" ) ?hpT"N,hF9  
(IF (>= (CAR P2)(CAR P1)) r)ni;aP  
  (PROGN J~=bW\^I  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) wul$lJ?tE  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) w! J|KM  
  (COMMAND"LINE" P2 P3"") Tr}z&efY  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) ^SP/&w<c  
  (COMMAND"TEXT" X2 5 0 YY) 2K^D%U  
  (COMMAND"TEXT" Y2 5 0 XX) Y ^s_v_s  
  (COMMAND"TEXT" X1 5 0 "N") ~vqVASUc,  
  (COMMAND"TEXT" Y1 5 0 "E") ^*CvKCS  
  ) W'aZw9  
  (PROGN ws"{Y+L  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) gN2$;hb?  
  (setq p4 (list (- (car p3) 5)(cadr p2))) v"nN[_T  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) uvNLm]*  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) l;*/F`>
c  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) "gm[q."n<  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) $]V,H"  
  (COMMAND"LINE" P2 P3"") (mO{W   
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) K U 2LJ_~Y  
  (COMMAND"TEXT" X22 5 0 YY) sK)
fEx  
  (COMMAND"TEXT" Y22 5 0 XX) {FYWQ!L  
  (COMMAND"TEXT" XX1 5 0 "N") AYhWeI+  
  (COMMAND"TEXT" YY1 5 0 "E") #[|~m;K(w  
  ) ^$8@B]*  
) p`/"e<TP  
) 8Ld`$_E  
(DEFUN C:zb3() }tq  
(command "dimzin" "0") [}xVz"8V  
(command "layer" "new" "zb_1" "") ,g69?w  
(setvar "clayer" "zb_1" ) UL9
]LEGG  
(command "color" 1) 4LG[i}u.N  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") *QKxrg  
(command "osnap" "int") K|i:tHF]@  
(command "osnap" "end") -^1}J  
(command "osmode" 1) W<f-  
(SETQ P1 (GETPOINT"Pick the zb point:")) zD#$]?@ b  
(command "osmode" 0) %b
u$t,  
(SETQ P2 (GETPOINT P1)) 'eyzH[l,(  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) A -C.Bi;/  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) i D6f/|g  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) U2v;[>=]  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) `IP?w&k)  
(SETQ XX (RTOS (CAR P1) 2 3)) LtIR)EtB]  
(SETQ YY (RTOS (CADR P1) 2 3)) `,lm:x+(0  
(SETQ L1 (STRLEN XX)) RIhu9W  
(SETQ L2 (STRLEN YY)) #7 )&`  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) ;rggO0Y  
(COMMAND"LINE" P1 P2"") s9[?{}gd  
(command "layer" "new" "zb_2" "") !,Ou:E?Bb  
(setvar "clayer" "zb_2" ) #$5"&SM  
(IF (>= (CAR P2)(CAR P1)) oo+i3af&7  
  (PROGN ;jgk53lo  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) s ;3k#-w  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) m:6^yf
S  
  (COMMAND"LINE" P2 P3"") z3n273W>6  
  (COMMAND"TEXT" X2 2.5 0 YY) U46qpb7  
  (COMMAND"TEXT" Y2 2.5 0 XX) pZE}<EX  
  (COMMAND"TEXT" X1 2.5 0 "N=") FUt
{-H!<  
  (COMMAND"TEXT" Y1 2.5 0 "E=") YC!IIE_  
  ) ,9A1p06  
  (PROGN -yP|CZM  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) yL2sce[  
  (setq p4 (list (- (car p3) 3)(cadr p2))) yH=Hrz:<eM  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) 2XX-  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) Kw%to9eh)  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) @AB}r1E2  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) AvmI<U  
  (COMMAND"LINE" P2 P3"") |wxAdPe  
  (COMMAND"TEXT" X22 2.5 0 YY) JXx[e  
  (COMMAND"TEXT" Y22 2.5 0 XX) YkN0,6  
  (COMMAND"TEXT" XX1 2.5 0 "N=") Arr(rM  
  (COMMAND"TEXT" YY1 2.5 0 "E=") 1bz%O2U-(  
) _p^?_  
) WyA`V C  
) Sg&0a$  
(DEFUN C:zb2() 539fB,  
(command "dimzin" "0") ugu|?z*dI  
(command "layer" "new" "zb_1" "") {"dvU"y)\  
(setvar "clayer" "zb_1" ) r,43 gg  
(command "color" 1) +YJp
VxYmZ  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") x/S:)z%X  
(command "osnap" "int") <r>1W~bp.q  
(command "osnap" "end") N9dx^+\  
(command "osmode" 1) +6~y1s/B[  
(SETQ P1 (GETPOINT"Pick the zb point:")) ngt?9i;N  
(command "osmode" 0) #\zC|%2+z  
(SETQ P2 (GETPOINT P1)) ;i'mma_!  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) wsKOafrV  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) 1 $m[#3  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) A"3"f8P8a  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) >;K!yI?0  
(SETQ XX (RTOS (CAR P1) 2 3)) !g.?+~@  
(SETQ YY (RTOS (CADR P1) 2 3)) 7DZZdH$Fm  
(SETQ L1 (STRLEN XX)) yI{4h $c  
(SETQ L2 (STRLEN YY))
.),Fdrg  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) 9#>t% IF~  
(COMMAND"LINE" P1 P2"") ixvF`S9  
(command "layer" "new" "zb_2" "") ,qK'!  
(setvar "clayer" "zb_2" ) <"hq}B  
(IF (>= (CAR P2)(CAR P1)) ip+?k<]z  
  (PROGN e"d-$$'e  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) Hk 0RT%PK  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) CcJ%;.V,T  
  (COMMAND"LINE" P2 P3"") tqFE>ojlI  
  (COMMAND"TEXT" X2 1.25 0 YY) #?h-<KQQ  
  (COMMAND"TEXT" Y2 1.25 0 XX) EXbaijHQG  
  (COMMAND"TEXT" X1 1.25 0 "N=") &*Z"r*  
  (COMMAND"TEXT" Y1 1.25 0 "E=") f-BPT2U+  
  ) \Dx;AKs  
  (PROGN vNDf1B5z  
  (setq l (* l 1.1)) W^,(w
e  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) |e_'%d&  
  (setq p4 (list (- (car p3) 3)(cadr p2))) t"$#KP<  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) ^Q#g-"
b  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) iw{rns  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) HkQ rij6  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) J$^"cCMr  
  (COMMAND"LINE" P2 P3"") [BTOs4f  
  (COMMAND"TEXT" X22 1.25 0 YY) Jm`{MzqL  
  (COMMAND"TEXT" Y22 1.25 0 XX) Ods~tM  
  (COMMAND"TEXT" XX1 1.25 0 "N=") sTu]C +A  
  (COMMAND"TEXT" YY1 1.25 0 "E=") +zg3/C4 S  
) ;S?ei>Q  
) "oT
&KW   
) j,79G^/YG  
(DEFUN C:zb5() ts/Ha*h  
(setq cc 1) O~OM.:al&  
(setq cc (getint "输入点编号<1>:")) Rn$TYCO  
(repeat 1000 M^&^g  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") Ew
)1O9f  
(command "dimzin" "0") 4*&2D-8<K  
(command "layer" "new" "zb_1" "") fyF8RTm{  
(setvar "clayer" "zb_1" ) W|L#Q/ RX  
(command "color" 1) <u}[
_  
(command "osnap" "int") S[
e> 8  
(command "osnap" "end") tiPZ.a~k  
(command "osmode" 1) NydF'N_1  
(SETQ P1 (GETPOINT"Pick the zb point:")) 1wy?<B.f
 
(command "osmode" 0) em9nuXG  
(SETQ P2 (GETPOINT P1)) V`4/oM`  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) Gm[XnUR7V  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) \'6%Ld5km  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) bMB@${i}  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) v=~+o[  
(SETQ XX (RTOS (CAR P1) 2 3)) %$&_!  
(SETQ YY (RTOS (CADR P1) 2 3)) r]deVd G  
(SETQ L1 (STRLEN XX)) w\1K.j=>|N  
(SETQ L2 (STRLEN YY)) @Yw>s9X  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) K*P:FC
z  
(COMMAND"LINE" P1 P2"") 97pfMk1_  
(command "layer" "new" "zb_2" "") wz{&0-md*'  
(setvar "clayer" "zb_2" ) }E^k*S  
(IF (>= (CAR P2)(CAR P1)) T2_b5j3i  
  (PROGN W+i&!'  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) !8*7{7  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) 9*S9~  
  (command"circle" p4 7"") ' 7H"ezt  
  (COMMAND"LINE" P2 P3"") (H;,E-
 
  (setq bb 2.5) (z:qj/|  
  (IF (<= cc 9 )(setq bb 5)) J
|u_45<  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) K2gF;(  
  (COMMAND"TEXT" X2 5 0 YY) y`Zn{mQ@[  
  (COMMAND"TEXT" Y2 5 0 XX) BU O8Z]  
  (COMMAND"TEXT" X1 5 0 "N") {n{-5Y  
  (COMMAND"TEXT" Y1 5 0 "E") Z=beki]  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) "I QM4:  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) =C- b#4Q  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) ! Q8y]9O  
  (command"text" p5 6 0 cc) - WQ)rz  
  ) p^s:s-"f\  
  (PROGN z:;yx  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) XZ:6A]62I  
  (setq p4 (list (- (car p3) 7)(cadr p2))) ;)Sf|  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) A3.*d:A  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) D%=j@  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) ;NF:98  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) K}vYE7n:  
  (COMMAND"LINE" P2 P3"") [$@EQ]tt/  
  (command"circle" p4 7) \;1nEjIA  
  (setq bb 12) <m> m"|G  
  (IF (<= cc 9 )(setq bb 8)) #kgLdd"  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) ?>NX}~2cf  
  (COMMAND"TEXT" X22 5 0 YY) Q>I7.c-M|  
  (COMMAND"TEXT" Y22 5 0 XX) &hJQHlyJM0  
  (COMMAND"TEXT" XX1 5 0 "N") '>GPk5Nq77  
  (COMMAND"TEXT" YY1 5 0 "E") i7mo89S  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) S;tvt/\!Z  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) deOk>v&U  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) E-deXY  
  (command"text" p5 6 0 cc) i)(-Ad_  
  ) -ZoAbp$  
) 6$t+Q~2G!  
(setq cc (+ cc 1)) r`sG!  
MaZVGrcC  
) U2 Cmf  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. p-h(C'PqF  
'