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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． Gc`PO  
lK=Is v+  
(DEFUN C:zb() IRm}?hHf  
(command "dimzin" "0") nD BWm`kN  
(command "layer" "new" "zb_1" "") T(?w}i  
(setvar "clayer" "zb_1" ) ]i.N'O<p  
(command "color" 1) M=liG+d  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") .Q!d[vL  
(command "osnap" "int") ?K[Y
"*y2  
(command "osnap" "end") 1]Xx{j<  
(command "osmode" 1) z1Ieva]  
(SETQ P1 (GETPOINT"Pick the zb point:")) u>fMO9X}2  
(command "osmode" 0) Ra|P5  
(SETQ P2 (GETPOINT P1)) 'cpm 4mT  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) HXKM
<E{j  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) \ T#|<=  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) gD6S%O  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) B<SE|~\2  
(SETQ XX (RTOS (CAR P1) 2 3)) $WI
VCp  
(SETQ YY (RTOS (CADR P1) 2 3)) ih0a#PB8  
(SETQ L1 (STRLEN XX)) ~ps,U  
(SETQ L2 (STRLEN YY)) y<FC
7  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) R BHDfm'~7  
(COMMAND"LINE" P1 P2"") (Ut8pa+yX  
(command "layer" "new" "zb_2" "") !YAX.e  
(setvar "clayer" "zb_2" ) }9"''Z  
(IF (>= (CAR P2)(CAR P1)) ,6{z  
  (PROGN $vu*# .w  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) yk8b>.Y\A  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) %@vF%   
  (COMMAND"LINE" P2 P3"") n\((#<&
 
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) Qf( A  
  (COMMAND"TEXT" X2 5 0 YY) >g{&Qx`&  
  (COMMAND"TEXT" Y2 5 0 XX) 66pjWS {X  
  (COMMAND"TEXT" X1 5 0 "N") kku<0<(N  
  (COMMAND"TEXT" Y1 5 0 "E") >;MJm  
  ) }"TQ\v$  
  (PROGN vd ls
s|  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) @bA5uY!  
  (setq p4 (list (- (car p3) 5)(cadr p2))) J]TqH`MA  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) \:J=tAC  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) X+]>pA  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) OWewV@VXR  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) Wz'!stcp  
  (COMMAND"LINE" P2 P3"") Kz42AC  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) ;-VZVp}Y  
  (COMMAND"TEXT" X22 5 0 YY) V gMgeja  
  (COMMAND"TEXT" Y22 5 0 XX) P5?VrZy  
  (COMMAND"TEXT" XX1 5 0 "N") .3C::~:  
  (COMMAND"TEXT" YY1 5 0 "E") Qa_V
 
  ) ar<8wq<4G  
) csW\Q][  
) @KL&vm(F$  
(DEFUN C:zb3() CO`)XB6W  
(command "dimzin" "0") Hnt*,C.0  
(command "layer" "new" "zb_1" "") 7G_<+rn  
(setvar "clayer" "zb_1" ) vT EqT  
(command "color" 1) -E?:W`!  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") R)66qRf  
(command "osnap" "int") 7_2D4CI  
(command "osnap" "end") 0]SWyC :  
(command "osmode" 1) vIJ5iLF  
(SETQ P1 (GETPOINT"Pick the zb point:")) f/J/tt  
(command "osmode" 0) >Y08/OAI.2  
(SETQ P2 (GETPOINT P1)) a5#G48'X  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) `*vO8v  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) \B4H0f  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) fc3nQp7  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) }%Mdf6LS64  
(SETQ XX (RTOS (CAR P1) 2 3)) 1]:,Xa+|S  
(SETQ YY (RTOS (CADR P1) 2 3)) UAF$bR  
(SETQ L1 (STRLEN XX)) A6=Z2i0w>X  
(SETQ L2 (STRLEN YY)) 'l^Bb#)"  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) Y|LL]@Lv  
(COMMAND"LINE" P1 P2"") }eVDe(7_  
(command "layer" "new" "zb_2" "") 8s6[
-F5  
(setvar "clayer" "zb_2" ) "j_iq"J  
(IF (>= (CAR P2)(CAR P1)) IRQtA ZV$  
  (PROGN 3`reXms*{  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) ~k
&b  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) U*a#{C7"  
  (COMMAND"LINE" P2 P3"") ltuV2.$  
  (COMMAND"TEXT" X2 2.5 0 YY) f DXK<v)  
  (COMMAND"TEXT" Y2 2.5 0 XX) ysOf=~1  
  (COMMAND"TEXT" X1 2.5 0 "N=") XDCm
 
  (COMMAND"TEXT" Y1 2.5 0 "E=") *Vl#]81~  
  ) Trs~KcsD  
  (PROGN W~mo*EJ'^  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) w0g@ <( 3  
  (setq p4 (list (- (car p3) 3)(cadr p2))) c)#7T<>*'  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) @FIL4sb  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) #tKks:eL  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) _5 SvZ;4  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) &$|~",  
  (COMMAND"LINE" P2 P3"") :Ob4WU  
  (COMMAND"TEXT" X22 2.5 0 YY) *}C%z(  
  (COMMAND"TEXT" Y22 2.5 0 XX) I+ |uyc  
  (COMMAND"TEXT" XX1 2.5 0 "N=") :0y-n.-{  
  (COMMAND"TEXT" YY1 2.5 0 "E=") iqR6z\p&  
) fC'u-m?!Q'  
) 4|_xz;i  
) {oY"CZ2  
(DEFUN C:zb2() TI3xt-/  
(command "dimzin" "0") PJZ;wqTD_  
(command "layer" "new" "zb_1" "") &qWg$_Yh  
(setvar "clayer" "zb_1" ) $Zyuhji^  
(command "color" 1) R7rM$|n=o  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") RCTqV.L  
(command "osnap" "int") 'G65zz  
(command "osnap" "end") kKF=%J?X  
(command "osmode" 1) RTVU3fw  
(SETQ P1 (GETPOINT"Pick the zb point:")) R^`}DlHX  
(command "osmode" 0) g"n>v c7  
(SETQ P2 (GETPOINT P1)) uH$hMg  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) Z]Xa:[  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) ?x",VA  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) |rJN  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) X$==J St  
(SETQ XX (RTOS (CAR P1) 2 3)) yI8O#  
(SETQ YY (RTOS (CADR P1) 2 3)) vVt
kB$]L  
(SETQ L1 (STRLEN XX)) x=rMjz-`_  
(SETQ L2 (STRLEN YY)) `Zuo`GP*1  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) {G=>WAXo  
(COMMAND"LINE" P1 P2"") f ] *w1  
(command "layer" "new" "zb_2" "") 4wKCzPy  
(setvar "clayer" "zb_2" ) W= NX$=il  
(IF (>= (CAR P2)(CAR P1)) ds(X[7XGW  
  (PROGN I*U7YqDC9  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) DA=LR  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) M#2<|VUW,  
  (COMMAND"LINE" P2 P3"") :@&e~QP(  
  (COMMAND"TEXT" X2 1.25 0 YY) x3'ANw6E  
  (COMMAND"TEXT" Y2 1.25 0 XX) "n3n-Y#'  
  (COMMAND"TEXT" X1 1.25 0 "N=") =UO7!vr;[  
  (COMMAND"TEXT" Y1 1.25 0 "E=") ISZEP8w  
  ) 0o7o;eN  
  (PROGN c%G~HOE=B  
  (setq l (* l 1.1)) nZj&Ma7R  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) 3U?gw!M>  
  (setq p4 (list (- (car p3) 3)(cadr p2))) dW/(#KP/+  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) =S54p(>  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) 9ox5,7ZQ  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) Wx/PD=Sf&  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) LCRZ<?O[|  
  (COMMAND"LINE" P2 P3"") Jtxwt[  
  (COMMAND"TEXT" X22 1.25 0 YY) Yvu!Q  
  (COMMAND"TEXT" Y22 1.25 0 XX) P'6eK?  
  (COMMAND"TEXT" XX1 1.25 0 "N=") ZV
j/lOP X  
  (COMMAND"TEXT" YY1 1.25 0 "E=") J!,<NlP0K  
) &i,xod6$  
) Vn-y<*np  
) }Q?,O  
(DEFUN C:zb5() 0a??8?Q1G  
(setq cc 1) |BGQ|7DyG  
(setq cc (getint "输入点编号<1>:")) j ,'$i[F'  
(repeat 1000 Ph'P<h:V  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") c1?_L(  
(command "dimzin" "0")  cf#2Wg)  
(command "layer" "new" "zb_1" "") J?~El&  
(setvar "clayer" "zb_1" ) *1fq:--  
(command "color" 1) l#_(suo64  
(command "osnap" "int") 1>1&NQ#}  
(command "osnap" "end") 6;g"`l51  
(command "osmode" 1) V(|@6ww  
(SETQ P1 (GETPOINT"Pick the zb point:")) YzqUOMAt"V  
(command "osmode" 0) w NlC2is  
(SETQ P2 (GETPOINT P1))  ]CD  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) |#);^z_  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) WKib$(%f6  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) #MbkU])  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) P5Y:c@
u2  
(SETQ XX (RTOS (CAR P1) 2 3)) )DS|mM)  
(SETQ YY (RTOS (CADR P1) 2 3)) [;`B  
(SETQ L1 (STRLEN XX)) 3?F*|E_  
(SETQ L2 (STRLEN YY)) `;yfSoY  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) pPSmSWD?  
(COMMAND"LINE" P1 P2"") A~_*vcz  
(command "layer" "new" "zb_2" "") fD<9k  
(setvar "clayer" "zb_2" ) 59;p|  
(IF (>= (CAR P2)(CAR P1)) )aov]Ns  
  (PROGN roDE?7x1  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) '%.
:97  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) );o2eV  
  (command"circle" p4 7"") 5\MCk"R!  
  (COMMAND"LINE" P2 P3"") B8){  
  (setq bb 2.5) x{_:B DY  
  (IF (<= cc 9 )(setq bb 5)) 50#iC@1  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) ?6;9r[ p  
  (COMMAND"TEXT" X2 5 0 YY) 04`2M
NfxG  
  (COMMAND"TEXT" Y2 5 0 XX) N8!V%i?  
  (COMMAND"TEXT" X1 5 0 "N") q#RUL!WF7U  
  (COMMAND"TEXT" Y1 5 0 "E") N?Byp&rqI<  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) Id6H~;  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) I8R#EM%C#  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) jlvh'y`  
  (command"text" p5 6 0 cc) CatbEXO  
  ) (gY3?&Ok*  
  (PROGN >yr:L{{D}G  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) !6Sr*a*5  
  (setq p4 (list (- (car p3) 7)(cadr p2))) PE $sF]/  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) d??;r:  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) #NU@7Q[4  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) *$K_Tii  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) wKxw|Fpn  
  (COMMAND"LINE" P2 P3"") 2a=3->D&  
  (command"circle" p4 7) . V5Pr}"y  
  (setq bb 12) g=)B+SY'  
  (IF (<= cc 9 )(setq bb 8)) rC`pTN  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) ?A4zIJ\  
  (COMMAND"TEXT" X22 5 0 YY) ,%)O/{p_  
  (COMMAND"TEXT" Y22 5 0 XX) sIUhk7Cd8  
  (COMMAND"TEXT" XX1 5 0 "N") BlwAD  
  (COMMAND"TEXT" YY1 5 0 "E") uX82q.u_y  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) H(L.k;B  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) dY=]ES}`  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) ~quof>  
  (command"text" p5 6 0 cc) 6pJFrWe{  
  ) ;Gc,-BDFw  
) cs+;ijp  
(setq cc (+ cc 1)) @477|LO
  
s2Z'_rT  
) P
2-^j)  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. \b
;z$P\+*  
'