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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． pGGx.&5#82  
._z[T@!9  
(DEFUN C:zb() :7Q, `W9  
(command "dimzin" "0") "t"&6\  
(command "layer" "new" "zb_1" "") A'X, zw^}  
(setvar "clayer" "zb_1" ) uP[:P?,t  
(command "color" 1) H=k*;'  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") =Z(#j5TGvH  
(command "osnap" "int") /q8?xP.   
(command "osnap" "end") wY j~(P"  
(command "osmode" 1) C\dlQQ  
(SETQ P1 (GETPOINT"Pick the zb point:")) Aw *:5I[  
(command "osmode" 0) wh;E\^',n  
(SETQ P2 (GETPOINT P1)) F I\V6\B/  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) MhpR^VM'.  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) ;i><03  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) !Rw\k'<GKX  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) 1"CbuV 6  
(SETQ XX (RTOS (CAR P1) 2 3)) +(<}`!9M*  
(SETQ YY (RTOS (CADR P1) 2 3)) sIJ37;ZA  
(SETQ L1 (STRLEN XX)) RycO8z*p  
(SETQ L2 (STRLEN YY)) XP-4=0zd  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) kY6))9 O  
(COMMAND"LINE" P1 P2"") H;n(qBSB  
(command "layer" "new" "zb_2" "") QYL ';  
(setvar "clayer" "zb_2" ) ~:srm#IX  
(IF (>= (CAR P2)(CAR P1)) OAQ'/{~7  
  (PROGN Ma3H
n  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) =JnUTc_u  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) gZs8BKO  
  (COMMAND"LINE" P2 P3"") V-w[\u  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) Aq{m42EAj  
  (COMMAND"TEXT" X2 5 0 YY) b#C"rTw  
  (COMMAND"TEXT" Y2 5 0 XX) uv[e0,
@  
  (COMMAND"TEXT" X1 5 0 "N") hD/bO  
  (COMMAND"TEXT" Y1 5 0 "E") Yg#)@L  
  ) lA<IcW  
  (PROGN ? I}T[j  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) oB$D&  
  (setq p4 (list (- (car p3) 5)(cadr p2))) "zO+!h'o  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) 3:Sv8csT  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) 9D_4]'KG  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) STmCj  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) JPk3T.qp  
  (COMMAND"LINE" P2 P3"") 6X:-Z3  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) P + nT%  
  (COMMAND"TEXT" X22 5 0 YY) 7c6-S@L  
  (COMMAND"TEXT" Y22 5 0 XX) U9xFQ=$2  
  (COMMAND"TEXT" XX1 5 0 "N") BI=Ie?  
  (COMMAND"TEXT" YY1 5 0 "E") ";
e0-t6:  
  ) pDlh^?cux  
) 2Xgw7` !L  
) vwzTrWA=  
(DEFUN C:zb3() xTM&SVNbL_  
(command "dimzin" "0") "FaG5X(  
(command "layer" "new" "zb_1" "") [M2,bc8SJV  
(setvar "clayer" "zb_1" ) ? F fw'O  
(command "color" 1) <96ih$5D1  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") [:!#F7O-  
(command "osnap" "int") ^dYLB.'=  
(command "osnap" "end") ^ :Q |,oy  
(command "osmode" 1) -zz9k=q  
(SETQ P1 (GETPOINT"Pick the zb point:")) v4|kiy  
(command "osmode" 0) N[Arw
V2O  
(SETQ P2 (GETPOINT P1)) %2oLND}?z  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) cuquA ~  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) |_~BV&g,N  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) s:cS 9A8  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) -ij1%#tz  
(SETQ XX (RTOS (CAR P1) 2 3)) v(4C?vxhG  
(SETQ YY (RTOS (CADR P1) 2 3)) BoIe<{X(9  
(SETQ L1 (STRLEN XX)) $YaL3n  
(SETQ L2 (STRLEN YY)) 6M$.gX G.  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) lLtC9:
 
(COMMAND"LINE" P1 P2"") N &p=4  
(command "layer" "new" "zb_2" "") [;5HI'px  
(setvar "clayer" "zb_2" ) >e-XZ2>Sj  
(IF (>= (CAR P2)(CAR P1)) XW]|Mv[M  
  (PROGN :N)7S
YQT  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) /IV:JVT  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) ZLKS4  
  (COMMAND"LINE" P2 P3"") JEBo!9  
  (COMMAND"TEXT" X2 2.5 0 YY) K{>O.5  
  (COMMAND"TEXT" Y2 2.5 0 XX) T:.J9  
  (COMMAND"TEXT" X1 2.5 0 "N=") 4b3p,$BWS  
  (COMMAND"TEXT" Y1 2.5 0 "E=") uNhAfZ  
  ) ieS
5*@^k  
  (PROGN 0#*\o1r\p  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) oRWsi/Zf  
  (setq p4 (list (- (car p3) 3)(cadr p2))) Gh|1%g"gm  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) 6nGDoW#  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) N'
m:V  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) ~P6K)V|@<  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) 'A8T.BU  
  (COMMAND"LINE" P2 P3"") s[s6E`Q  
  (COMMAND"TEXT" X22 2.5 0 YY) [
EGE|  
  (COMMAND"TEXT" Y22 2.5 0 XX) !FpMO`m  
  (COMMAND"TEXT" XX1 2.5 0 "N=") ]P<&CEk  
  (COMMAND"TEXT" YY1 2.5 0 "E=") o~>p=5t  
) EUna_ 4=  
) vW)GUAF[  
) V(!b!i@  
(DEFUN C:zb2() 29Q5s$YD@  
(command "dimzin" "0") ~Nc]`95  
(command "layer" "new" "zb_1" "") `(o1&  
(setvar "clayer" "zb_1" ) B4|%E$1+  
(command "color" 1) $V~%$  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ax>c&%vo  
(command "osnap" "int") #{ Uk4  
(command "osnap" "end") 6gR=e+  
(command "osmode" 1) eIqj7UY_  
(SETQ P1 (GETPOINT"Pick the zb point:")) p Y>yJ)  
(command "osmode" 0) {8B\-LUR  
(SETQ P2 (GETPOINT P1)) Ha+FH8rZ  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) O&w$  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) ~C!vfPC  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) /{kyjf[o&*  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) %] #; ~I%  
(SETQ XX (RTOS (CAR P1) 2 3)) [#R%jLEJ2  
(SETQ YY (RTOS (CADR P1) 2 3)) ([9h.M6v  
(SETQ L1 (STRLEN XX)) nM0nQ{6  
(SETQ L2 (STRLEN YY)) nW drVT$  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) +.lO8  
(COMMAND"LINE" P1 P2"") x(=kh%\;  
(command "layer" "new" "zb_2" "") XIp9=jhSR  
(setvar "clayer" "zb_2" ) iPFYG  
(IF (>= (CAR P2)(CAR P1)) @$nI\n?*  
  (PROGN ReK@~#hLY  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) U<6k!Y9ny  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) '}rDmt~  
  (COMMAND"LINE" P2 P3"") BklB3*n  
  (COMMAND"TEXT" X2 1.25 0 YY) ka>RAr J  
  (COMMAND"TEXT" Y2 1.25 0 XX) Dh9-~}sW'  
  (COMMAND"TEXT" X1 1.25 0 "N=") M"9 zK[cz  
  (COMMAND"TEXT" Y1 1.25 0 "E=") *UyV@  
  ) o"]eAQ  
  (PROGN .i=%gg  
  (setq l (* l 1.1)) \W(p)M  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) &J~S $  
  (setq p4 (list (- (car p3) 3)(cadr p2))) 93!a  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) a<Ns C1  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) ynDx'Q*N'  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) I Mv^ 9T:  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) l.34h  
  (COMMAND"LINE" P2 P3"") cLYc""=  
  (COMMAND"TEXT" X22 1.25 0 YY) `riv`+J{s  
  (COMMAND"TEXT" Y22 1.25 0 XX) !gk\h  
  (COMMAND"TEXT" XX1 1.25 0 "N=") ,j

t098W  
  (COMMAND"TEXT" YY1 1.25 0 "E=") fFd9D=EW.  
) ~<Lf@yu-{  
) C3b'Q  
) T*{zL  
(DEFUN C:zb5() / P:Hfq  
(setq cc 1) MV/~Rmd.  
(setq cc (getint "输入点编号<1>:")) 9nG] .@H  
(repeat 1000 -pD&@Wlwak  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") @B'Mu:|f  
(command "dimzin" "0") 6Ss{+MF|v  
(command "layer" "new" "zb_1" "") G/8xS=  
(setvar "clayer" "zb_1" ) ^6LFho4  
(command "color" 1) %zelpBu+  
(command "osnap" "int") nEp'l.T  
(command "osnap" "end") oOL3O@)w>  
(command "osmode" 1) N{`l?t0I  
(SETQ P1 (GETPOINT"Pick the zb point:")) G4{qWa/  
(command "osmode" 0) v|/3Mi9mz  
(SETQ P2 (GETPOINT P1)) xXx`a\i  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) y(]|jRo  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) eB\r/B]  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) 6>L.)V  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) ( Lu.^  
(SETQ XX (RTOS (CAR P1) 2 3)) \G=E%aK  
(SETQ YY (RTOS (CADR P1) 2 3)) y="SzPl  
(SETQ L1 (STRLEN XX)) 4bxkp3~h;  
(SETQ L2 (STRLEN YY)) 1
IlR  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) ~c="<xBE  
(COMMAND"LINE" P1 P2"") p;7 4+q  
(command "layer" "new" "zb_2" "") k41la?  
(setvar "clayer" "zb_2" ) (wlsn6h  
(IF (>= (CAR P2)(CAR P1)) g_>ZE  
  (PROGN R|CY4G j  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) h/fCCfO,  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) ?V{k\1A  
  (command"circle" p4 7"") OhW=F2OIV  
  (COMMAND"LINE" P2 P3"") 9kF#*  
  (setq bb 2.5) R_qo]WvR;  
  (IF (<= cc 9 )(setq bb 5)) ommKf[h%i  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) #LN I&5  
  (COMMAND"TEXT" X2 5 0 YY) PD}R7[".>  
  (COMMAND"TEXT" Y2 5 0 XX) NI1HUUZz  
  (COMMAND"TEXT" X1 5 0 "N") 1SFKP$^  
  (COMMAND"TEXT" Y1 5 0 "E") I1myuZ  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) )a^Yor)o"  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) r$#G%FMv  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) )T64(_TE  
  (command"text" p5 6 0 cc) lz)"zV  
  ) 8Wj=|Ow-q  
  (PROGN .?
p}
:  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) =_'cG:=)  
  (setq p4 (list (- (car p3) 7)(cadr p2))) 0v@/I<
 
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) `oMeR]~  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) )RYnRC#O  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) }R1`ThTM  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) }91mQ`3  
  (COMMAND"LINE" P2 P3"") ?&"^\p  
  (command"circle" p4 7) ?fmt@@]T?  
  (setq bb 12) p0rwiBC=q  
  (IF (<= cc 9 )(setq bb 8)) '!-?  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) KCk?)Qv  
  (COMMAND"TEXT" X22 5 0 YY) <c ovApx  
  (COMMAND"TEXT" Y22 5 0 XX) 8`G{1
lr4o  
  (COMMAND"TEXT" XX1 5 0 "N") Y(y9l{'  
  (COMMAND"TEXT" YY1 5 0 "E") k,7+=.6  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) :6u3Mj{  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) Is@a,k  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) mbBRuPEa=u  
  (command"text" p5 6 0 cc) ,z1!~gIal  
  ) Nr"N\yOA/  
) z/KZ[qH\  
(setq cc (+ cc 1)) B"PHJj  
,0Zn hS)kq  
) BZ?W>'B%$  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. KO|pJ3  
'