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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． c^=R8y-N  
TZ_rsj/t  
(DEFUN C:zb() 5vTv$2@  
(command "dimzin" "0") QCOLC2I  
(command "layer" "new" "zb_1" "")
c>ad0xce6  
(setvar "clayer" "zb_1" ) 7DtIVMiK  
(command "color" 1) hq<5lE^  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") MO[kr2T  
(command "osnap" "int") u#`+[AC`  
(command "osnap" "end") W+gpr|R2  
(command "osmode" 1) FY]pv6@  
(SETQ P1 (GETPOINT"Pick the zb point:")) BeK2;[5C  
(command "osmode" 0) fVe@YqNa  
(SETQ P2 (GETPOINT P1)) b5j*xZv  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) Lt1U+o[ot  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) 4\M8BRuE  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) ~TDzq -U)  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) (I4y[jnD  
(SETQ XX (RTOS (CAR P1) 2 3)) 1SW4Y  
(SETQ YY (RTOS (CADR P1) 2 3)) ?g2zmI!U  
(SETQ L1 (STRLEN XX)) 7*i}km  
(SETQ L2 (STRLEN YY)) *z0K%@M  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) 0G5'Y;8  
(COMMAND"LINE" P1 P2"") ->\N_|_  
(command "layer" "new" "zb_2" "") .o}%~g<d  
(setvar "clayer" "zb_2" ) &Yp+k}XU  
(IF (>= (CAR P2)(CAR P1)) 9e~WK720=  
  (PROGN 3gpo %  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) 0q{[\51*  
  (setq p4 (list (+ (car p3) 5)(cadr p2)))  ="\*h(  
  (COMMAND"LINE" P2 P3"") Fn!SGX~kx$  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) ic-IN~J-  
  (COMMAND"TEXT" X2 5 0 YY) gN?0m4[$i  
  (COMMAND"TEXT" Y2 5 0 XX) <Nex8fiJ9  
  (COMMAND"TEXT" X1 5 0 "N") jYWw.g<  
  (COMMAND"TEXT" Y1 5 0 "E") 3jF|Ic  
  ) HA!t$[_Ve  
  (PROGN 9? 2  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) 66Gx.tE  
  (setq p4 (list (- (car p3) 5)(cadr p2))) UfR~%p>K  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) Cxm6TO`-;  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) |5,<jyp  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) [ ?iqqG.  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) WfG(JJ  
  (COMMAND"LINE" P2 P3"") XJSa]P^B1  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) @9 )}cg  
  (COMMAND"TEXT" X22 5 0 YY) e1unzpWN  
  (COMMAND"TEXT" Y22 5 0 XX) ,=|4:F9
  
  (COMMAND"TEXT" XX1 5 0 "N") F$Q04Qw  
  (COMMAND"TEXT" YY1 5 0 "E") Jx$iwu  
  ) < Dd%  
) +8AvTSgX%  
) tz4 ]hF  
(DEFUN C:zb3() 2n|CD|V$ux  
(command "dimzin" "0") =&7@<vBpy  
(command "layer" "new" "zb_1" "") 6tn+m54_  
(setvar "clayer" "zb_1" ) O*G1 QX  
(command "color" 1) @2 =z}S3O  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") Oz{%k#X-  
(command "osnap" "int") #Fs|f3-@  
(command "osnap" "end") #Qh>z%Mn^3  
(command "osmode" 1) :l,OalO  
(SETQ P1 (GETPOINT"Pick the zb point:")) yNa;\UF  
(command "osmode" 0) `T"rG}c  
(SETQ P2 (GETPOINT P1)) J}TfRrf  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) YEv L
hh  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) S~)w\(r  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) 5mgHlsDzu  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) Ei5wel6!  
(SETQ XX (RTOS (CAR P1) 2 3)) mS%4gx~~_n  
(SETQ YY (RTOS (CADR P1) 2 3)) ~W03{9(Vp8  
(SETQ L1 (STRLEN XX)) rk|@B{CA;  
(SETQ L2 (STRLEN YY)) _1|$P|$P.  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) aV6#t*\J  
(COMMAND"LINE" P1 P2"") T8XY fcc*h  
(command "layer" "new" "zb_2" "") #@qN8J}R  
(setvar "clayer" "zb_2" ) pSfYu=#f  
(IF (>= (CAR P2)(CAR P1)) *(QH{!-$s  
  (PROGN uzBz}<M=  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) ZFvyL8o  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) j~`\XX{>  
  (COMMAND"LINE" P2 P3"") v`DI<Lt  
  (COMMAND"TEXT" X2 2.5 0 YY) 3f
r^ T  
  (COMMAND"TEXT" Y2 2.5 0 XX) >w|*ei:@S  
  (COMMAND"TEXT" X1 2.5 0 "N=") M#,Q ^rH#  
  (COMMAND"TEXT" Y1 2.5 0 "E=") ".U^ifF  
  ) x83a!9  
  (PROGN A\QJLWBv^$  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) (\,BxvhG=  
  (setq p4 (list (- (car p3) 3)(cadr p2))) PJLR<9  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) $_D6_|HK  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) 1;lmu]I>)  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) kV&9`c+  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) #sB,1"  
  (COMMAND"LINE" P2 P3"") #=,imsW)  
  (COMMAND"TEXT" X22 2.5 0 YY) OqUr9?+  
  (COMMAND"TEXT" Y22 2.5 0 XX) g(hOg~S\E  
  (COMMAND"TEXT" XX1 2.5 0 "N=") _P7tnXww  
  (COMMAND"TEXT" YY1 2.5 0 "E=") @
-:]P8  
) h7yqk4'Lq  
) sZhMa>  
) iL]'y\?lv  
(DEFUN C:zb2() D'_Bz8H!p  
(command "dimzin" "0") @jy41eIo  
(command "layer" "new" "zb_1" "")
lr@#^  
(setvar "clayer" "zb_1" ) zsXpA0~3s  
(command "color" 1) _\8qwDg"#e  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") _.V?A*  
(command "osnap" "int") c EnkU]  
(command "osnap" "end") 9X}I>  
(command "osmode" 1) jO~:<y3 =  
(SETQ P1 (GETPOINT"Pick the zb point:")) 1X1 NtS@  
(command "osmode" 0) qu|i;WZE  
(SETQ P2 (GETPOINT P1)) S:bC[}  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) T7*wS#z)h  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) Vw
{*P2v)  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) ,'fxIO  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) "3CJUr:Q  
(SETQ XX (RTOS (CAR P1) 2 3)) ';B#Gx  
(SETQ YY (RTOS (CADR P1) 2 3)) mpw
~hW0-  
(SETQ L1 (STRLEN XX)) 0s#Kp49-  
(SETQ L2 (STRLEN YY)) B4Y(?JTx  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) ^
K(^I*q  
(COMMAND"LINE" P1 P2"") 'lz"2@4{  
(command "layer" "new" "zb_2" "") G}d-(X
 
(setvar "clayer" "zb_2" ) )c2_b  
(IF (>= (CAR P2)(CAR P1)) Z|lU8`'5  
  (PROGN q2aYEuu,  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) w'Tq3-%V  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 9xI GV!  
  (COMMAND"LINE" P2 P3"") IM@tN L  
  (COMMAND"TEXT" X2 1.25 0 YY) b7`D|7D  
  (COMMAND"TEXT" Y2 1.25 0 XX) )cJ#-M2  
  (COMMAND"TEXT" X1 1.25 0 "N=") <O<LYN+(  
  (COMMAND"TEXT" Y1 1.25 0 "E=") =+:{P?*}  
  ) fxcc<h4  
  (PROGN 4,Ic}CvM  
  (setq l (* l 1.1)) "SxLN 8.:  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) [Nm4sI11  
  (setq p4 (list (- (car p3) 3)(cadr p2))) kRJ4-n^@><  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) l|2D/K5  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) :M3oUE{  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) D/ybFk  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) rqPo)AL  
  (COMMAND"LINE" P2 P3"") sic"pn],U  
  (COMMAND"TEXT" X22 1.25 0 YY) x
M>W2  
  (COMMAND"TEXT" Y22 1.25 0 XX) o G*5f  
  (COMMAND"TEXT" XX1 1.25 0 "N=") :ue:QSt(u  
  (COMMAND"TEXT" YY1 1.25 0 "E=") {$D,?V@%_  
) /*FH:T<V  
) Bq\F?zk<  
) n: ui  
(DEFUN C:zb5() C$h<Wt=<  
(setq cc 1) *D}0[|O  
(setq cc (getint "输入点编号<1>:")) Fxs;Fp  
(repeat 1000 tc;'oMUP  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") `3H4Ajzcc  
(command "dimzin" "0") olB)p$aH#  
(command "layer" "new" "zb_1" "") kl!wVLE  
(setvar "clayer" "zb_1" ) {6
;9b-a]  
(command "color" 1) Ks^6.)  
(command "osnap" "int") tsOrt3   
(command "osnap" "end") z}QwP~Z  
(command "osmode" 1) -&x2&WE'  
(SETQ P1 (GETPOINT"Pick the zb point:")) 94uNI8  
(command "osmode" 0) k %e^kej  
(SETQ P2 (GETPOINT P1)) \J..*,'  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) -Xu.1S  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) ( 9!k#  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) {
N2g8W:  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) -C-?`R  
(SETQ XX (RTOS (CAR P1) 2 3)) xJ^>pg8  
(SETQ YY (RTOS (CADR P1) 2 3)) `pf4X/Py  
(SETQ L1 (STRLEN XX)) z?/1Kj}xG  
(SETQ L2 (STRLEN YY)) fqX"Lus `=  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) 3`d
}~v{  
(COMMAND"LINE" P1 P2"") 'FlJpA}  
(command "layer" "new" "zb_2" "") E1dD7r\  
(setvar "clayer" "zb_2" ) 8KB>6[H!wE  
(IF (>= (CAR P2)(CAR P1)) Hgeg@RP Q  
  (PROGN w{[=l6L m  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) ~vmdXR`'T  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) w\54j)rb  
  (command"circle" p4 7"") ;{i'#rn{  
  (COMMAND"LINE" P2 P3"") d2oh/j6`TA  
  (setq bb 2.5) O ,rwP  
  (IF (<= cc 9 )(setq bb 5)) >EL)X #e  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) 8`4<R6]LKB  
  (COMMAND"TEXT" X2 5 0 YY) Tus}\0/i>  
  (COMMAND"TEXT" Y2 5 0 XX) IEKU-k7}Z  
  (COMMAND"TEXT" X1 5 0 "N") >_rha~   
  (COMMAND"TEXT" Y1 5 0 "E") i|w8.}0  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) /MY9 >  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) IdYzgDH  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) d(vsE%/!  
  (command"text" p5 6 0 cc) Zfk*HV#\  
  ) .)}@J5P)  
  (PROGN swA+f  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) (8v7|Pe8  
  (setq p4 (list (- (car p3) 7)(cadr p2))) 8^Hn"v  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) ju}fL<<e  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) b'VV'+|  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) 4S~o-`&W  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) o,U9}_|A  
  (COMMAND"LINE" P2 P3"") FMkOo2{  
  (command"circle" p4 7) 4}_O`Uxh  
  (setq bb 12) V.os  
  (IF (<= cc 9 )(setq bb 8)) :4~g;2oag  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) REZJ}%}/  
  (COMMAND"TEXT" X22 5 0 YY) 0|R#Tb;Y  
  (COMMAND"TEXT" Y22 5 0 XX) 3qY K_M^[  
  (COMMAND"TEXT" XX1 5 0 "N") %6AW7q t  
  (COMMAND"TEXT" YY1 5 0 "E") C6O8RHg  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) qB)"qFa  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) /R>nr"  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) c/B'jPt  
  (command"text" p5 6 0 cc) jp $Z]  
  ) \Mg`(,kwe  
) qwIa?!8o  
(setq cc (+ cc 1)) J=pztASt  
!61Pl/uQ  
) Pnd`=%w%]  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. 3Vp#a:  
'