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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． (Ymj  
aNxq_pRb  
(DEFUN C:zb() } 0^wJs  
(command "dimzin" "0") 4qe!+!#$  
(command "layer" "new" "zb_1" "") $EUlh^  
(setvar "clayer" "zb_1" ) n |Is&fy  
(command "color" 1) JrhDqyk*  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ^Ox|q_E w}  
(command "osnap" "int") R[Y{pT,AY  
(command "osnap" "end") [t.x cO  
(command "osmode" 1) Th%2pwvER  
(SETQ P1 (GETPOINT"Pick the zb point:")) 2C@s-`b   
(command "osmode" 0) /QT"5fxKJ  
(SETQ P2 (GETPOINT P1)) cZd{K[fuK  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) h|OsT  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) +,$ SZO]  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) G;k#06  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) /_g-w93   
(SETQ XX (RTOS (CAR P1) 2 3)) %V2A}78  
(SETQ YY (RTOS (CADR P1) 2 3)) C_q@ixF{  
(SETQ L1 (STRLEN XX)) ImZ!8#  
(SETQ L2 (STRLEN YY)) !GL kAV  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) U5!T-o;3}  
(COMMAND"LINE" P1 P2"") $<QOMfY>  
(command "layer" "new" "zb_2" "") a ]~Yi.H  
(setvar "clayer" "zb_2" ) Wd78 bu|  
(IF (>= (CAR P2)(CAR P1)) Kp.d#W_TX
 
  (PROGN CUG3C  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) 1GA$nFBVC  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) }k7t#O  
  (COMMAND"LINE" P2 P3"") O>)Fl42IeD  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) F\U^-/0,  
  (COMMAND"TEXT" X2 5 0 YY) hNWZ1r~_  
  (COMMAND"TEXT" Y2 5 0 XX) $V?h68[c  
  (COMMAND"TEXT" X1 5 0 "N") Okt0b|=`1*  
  (COMMAND"TEXT" Y1 5 0 "E") uhJnDo  
  ) f:_mrzz  
  (PROGN x.ZW%P1  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) z&x3":@u<  
  (setq p4 (list (- (car p3) 5)(cadr p2))) U 4Sxr  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) 6^vseVx  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) Yj-JB  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) -YD+xPD  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) ugT;NB  
  (COMMAND"LINE" P2 P3"") $ &III  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) h:qt?$]J  
  (COMMAND"TEXT" X22 5 0 YY) e <]^7pz  
  (COMMAND"TEXT" Y22 5 0 XX) 2$OI(7b=  
  (COMMAND"TEXT" XX1 5 0 "N") sH_5.+,`  
  (COMMAND"TEXT" YY1 5 0 "E") F\lnG  
  ) Yfotq9.=+  
) :l/?cV
;  
) +T|M U  
(DEFUN C:zb3() $22_>OsA  
(command "dimzin" "0") :\sz`p?EC  
(command "layer" "new" "zb_1" "") A\IQM^i  
(setvar "clayer" "zb_1" ) y53f73Cg  
(command "color" 1) zJ9[),;7B  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") [>^xMF]$2  
(command "osnap" "int") GiH<6<=  
(command "osnap" "end") F )|0U~  
(command "osmode" 1) oMNgyAp^  
(SETQ P1 (GETPOINT"Pick the zb point:")) g4"0:^/  
(command "osmode" 0) BXx0Z %e.3  
(SETQ P2 (GETPOINT P1)) t!S ja  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) xQ{n|)i>  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) m.|__L  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) zVL"$ )  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) w4UaWT1J  
(SETQ XX (RTOS (CAR P1) 2 3)) G{C27k>wa  
(SETQ YY (RTOS (CADR P1) 2 3)) S, g/2k*  
(SETQ L1 (STRLEN XX)) &Ub0o2+y  
(SETQ L2 (STRLEN YY)) 8;vpa*  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) #;*0 Pwe`  
(COMMAND"LINE" P1 P2"") W:z?w2{VI(  
(command "layer" "new" "zb_2" "") Vy6A]U
\%  
(setvar "clayer" "zb_2" ) 1>wQ&{  
(IF (>= (CAR P2)(CAR P1)) yi
-S^  
  (PROGN [->uDbtzL  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) _pM~v>~*+  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 1+0DTqWz  
  (COMMAND"LINE" P2 P3"") A3jT;D9Y%  
  (COMMAND"TEXT" X2 2.5 0 YY) ESQgN+llj  
  (COMMAND"TEXT" Y2 2.5 0 XX) W{6%Hhp  
  (COMMAND"TEXT" X1 2.5 0 "N=") bm Hl\?  
  (COMMAND"TEXT" Y1 2.5 0 "E=") 4PsJs<u  
  ) KTzkJx  
  (PROGN LEJ8 .z6$  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) tOQura
 
  (setq p4 (list (- (car p3) 3)(cadr p2))) Ait3KIJ9  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) pl.D h  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) .&Rj2d  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) /`)>W :  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) ]EhU8bZ  
  (COMMAND"LINE" P2 P3"") :kMEL*  
  (COMMAND"TEXT" X22 2.5 0 YY) d 6$,N|  
  (COMMAND"TEXT" Y22 2.5 0 XX) $: %U`46%s  
  (COMMAND"TEXT" XX1 2.5 0 "N=") 0 jszZ_  
  (COMMAND"TEXT" YY1 2.5 0 "E=") 265sNaX  
) =5PNH2  
) f-M9OI  
) &-s/F`  
(DEFUN C:zb2() beN(7jo  
(command "dimzin" "0") Ry+Ax4#+(y  
(command "layer" "new" "zb_1" "") vxmz3ht,Q  
(setvar "clayer" "zb_1" ) fQ@k$W\  
(command "color" 1) 5qx,b&^w  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") bOKgR{i  
(command "osnap" "int") x9&{@ ?o  
(command "osnap" "end") m:{ws~
  
(command "osmode" 1) 2G4OK7x  
(SETQ P1 (GETPOINT"Pick the zb point:")) $cUTe  
(command "osmode" 0) %%=PpKYtSD  
(SETQ P2 (GETPOINT P1)) \@ jYY~
 
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) 5m e|dvk  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) !VF.=\iH/  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) mV58&SZT  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) pO~lVM  
(SETQ XX (RTOS (CAR P1) 2 3)) `QIYnokL  
(SETQ YY (RTOS (CADR P1) 2 3)) MK*WStY  
(SETQ L1 (STRLEN XX)) 8D[,z 7n  
(SETQ L2 (STRLEN YY)) |KM<\v(A{  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) iTgv8  
(COMMAND"LINE" P1 P2"") mF|7:zSo  
(command "layer" "new" "zb_2" "") .^Z^L F  
(setvar "clayer" "zb_2" ) qxR7;/@j)  
(IF (>= (CAR P2)(CAR P1)) fCq  
  (PROGN { 4(E @  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) ,2I8,MOg  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) _Coh11  
  (COMMAND"LINE" P2 P3"")
< mb.F-8  
  (COMMAND"TEXT" X2 1.25 0 YY) ?[|T"bE5[  
  (COMMAND"TEXT" Y2 1.25 0 XX) e{8j(` (;#  
  (COMMAND"TEXT" X1 1.25 0 "N=") qg(rG5kD@  
  (COMMAND"TEXT" Y1 1.25 0 "E=") lM<SoC;[  
  ) I`O)I&KH  
  (PROGN xq.HR_\  
  (setq l (* l 1.1)) 5,pKv  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) @n-[bN  
  (setq p4 (list (- (car p3) 3)(cadr p2))) KG5h$eM'  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) ~BSE8M+r  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) BV9%|  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) FK8GBkQ!  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) %S2^i3  
  (COMMAND"LINE" P2 P3"") H,F/u&O  
  (COMMAND"TEXT" X22 1.25 0 YY)
;T6x$e  
  (COMMAND"TEXT" Y22 1.25 0 XX) wGXnS"L!  
  (COMMAND"TEXT" XX1 1.25 0 "N=") yLo{^4a.  
  (COMMAND"TEXT" YY1 1.25 0 "E=") !E0zj9 [ R  
) 7xmyjy%c  
) JpFfO<uO  
) <}^W9>u<  
(DEFUN C:zb5() GO=&  
(setq cc 1) |]<eJ|\=  
(setq cc (getint "输入点编号<1>:")) H|uvcvf
 
(repeat 1000 cvf@B_iN9  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") Zv`j+b  
(command "dimzin" "0") +:s]>R eDa  
(command "layer" "new" "zb_1" "") %/86}DCfE?  
(setvar "clayer" "zb_1" ) ~m]sJpW<"  
(command "color" 1) /p=9"?  
(command "osnap" "int") b`4R`mo  
(command "osnap" "end") RawK9K_1  
(command "osmode" 1) YEEgDw]BQ  
(SETQ P1 (GETPOINT"Pick the zb point:")) qrFC4\q}  
(command "osmode" 0) D~;hIt*  
(SETQ P2 (GETPOINT P1)) }WN0L?h.E  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) Mbt}G|;8H7  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) #b~wIOR)Z  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) .Q,IOCHk  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) y5XHJUTu  
(SETQ XX (RTOS (CAR P1) 2 3)) S<
hj6A  
(SETQ YY (RTOS (CADR P1) 2 3)) T@n-^B!Xq  
(SETQ L1 (STRLEN XX)) ;FO1b*  
(SETQ L2 (STRLEN YY)) q;))3aQe  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) n.[0#Ur&}  
(COMMAND"LINE" P1 P2"") =Z
sM[wd  
(command "layer" "new" "zb_2" "") +&W%]KEh  
(setvar "clayer" "zb_2" ) yAu-BObD  
(IF (>= (CAR P2)(CAR P1)) _d8k[HAJ|  
  (PROGN h48JpZ"  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) FN#6pM']|  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) GP%8
3T  
  (command"circle" p4 7"") uc%
&g  
  (COMMAND"LINE" P2 P3"") o8:K6y  
  (setq bb 2.5) 0L34)W  
  (IF (<= cc 9 )(setq bb 5)) Cmq.V@  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) AnbY<&OC1  
  (COMMAND"TEXT" X2 5 0 YY) Su<Ggv"  
  (COMMAND"TEXT" Y2 5 0 XX) ?G5JAG`  
  (COMMAND"TEXT" X1 5 0 "N") Y* #'Gh,  
  (COMMAND"TEXT" Y1 5 0 "E") `ym@U(;N  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) TK)Kq  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) FkdG@7Xf  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) sckyG  
  (command"text" p5 6 0 cc) ~ caKzq  
  ) q;T3bxp+  
  (PROGN &S}i)Nu6J  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) Q0K4_iN)&  
  (setq p4 (list (- (car p3) 7)(cadr p2))) BReNhk)S  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) _YXk,ME!Q  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) c2}?[\U]  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) ;&2J9  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) 5Rv6+d  
  (COMMAND"LINE" P2 P3"") :*bmc/c  
  (command"circle" p4 7) rh*Pl]'3z  
  (setq bb 12) +$MNG  
  (IF (<= cc 9 )(setq bb 8)) })V9d  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) m6aq_u{W  
  (COMMAND"TEXT" X22 5 0 YY) [sC]<2
r  
  (COMMAND"TEXT" Y22 5 0 XX) FhgO5@BO  
  (COMMAND"TEXT" XX1 5 0 "N") rpsq.n  
  (COMMAND"TEXT" YY1 5 0 "E") |b
QX9|L  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) \*}JdEHB  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) u,:GJU  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) G<kslTPyq  
  (command"text" p5 6 0 cc) |Ire#0Nwx  
  ) f>)k<-<yj  
) 6V=69}  
(setq cc (+ cc 1)) })OgsBk  
'`q&UPg]  
) #zC_;u$  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. oD]tHuDa  
'