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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． 1<ic 5kB  
V`/D!8>  
(DEFUN C:zb() sS5:5i  
(command "dimzin" "0") m5/d=k0l  
(command "layer" "new" "zb_1" "") byW9]('e  
(setvar "clayer" "zb_1" ) bb]r  
(command "color" 1) ?=\&O=_ln  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") WzwH;!  
(command "osnap" "int") #-*#? -  
(command "osnap" "end") 3w-0IP]<  
(command "osmode" 1) l#;DO9  
(SETQ P1 (GETPOINT"Pick the zb point:")) tin5.N)"z  
(command "osmode" 0) l9eCsVQ~V  
(SETQ P2 (GETPOINT P1)) ~dFdO7  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) X>W2aDuEZ  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) {r,MRZaa  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) 6?C|pO  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) X5hamkM*m  
(SETQ XX (RTOS (CAR P1) 2 3)) w#!^wN  
(SETQ YY (RTOS (CADR P1) 2 3)) )*wM DM5q  
(SETQ L1 (STRLEN XX)) Pzl2X@{%  
(SETQ L2 (STRLEN YY)) %gb4(~E+N  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) ,sqxxq  
(COMMAND"LINE" P1 P2"") [$<\*d/  
(command "layer" "new" "zb_2" "") g$N/pg2>cT  
(setvar "clayer" "zb_2" ) 
e2X\ll  
(IF (>= (CAR P2)(CAR P1)) /#C}1emK  
  (PROGN =>kE`"{!  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) 5
@kNvi  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) K#e&yY  
  (COMMAND"LINE" P2 P3"") 'fGB#uBt  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) oN
\IQ7oI  
  (COMMAND"TEXT" X2 5 0 YY) XJ3p<  
  (COMMAND"TEXT" Y2 5 0 XX) FZ0wtS2  
  (COMMAND"TEXT" X1 5 0 "N") &P@dx=6d  
  (COMMAND"TEXT" Y1 5 0 "E") pp2,d`01[L  
  ) 5S EyAhB  
  (PROGN Ddr.kXIpo  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) m 3Y@p$i5  
  (setq p4 (list (- (car p3) 5)(cadr p2))) O_kBAC-|R(  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) !G8=S'~~  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) k"z ~>  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) a At<36{?  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) U_8 Z&  
  (COMMAND"LINE" P2 P3"") 6Bop8B  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) h|T_ k
 
  (COMMAND"TEXT" X22 5 0 YY) ;Eer  
  (COMMAND"TEXT" Y22 5 0 XX) XjRk1~  
  (COMMAND"TEXT" XX1 5 0 "N") 8nj^x?bn  
  (COMMAND"TEXT" YY1 5 0 "E") Oe/&Ryj=mm  
  ) Vx<`6uv
 
) e}u68|\EC  
) U{JD\G8m  
(DEFUN C:zb3() ]27  
(command "dimzin" "0") nhu;e}[>  
(command "layer" "new" "zb_1" "") ,dR<O.{0  
(setvar "clayer" "zb_1" ) s<XAH7?0  
(command "color" 1) ILU7Yhk  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") F+m%PVW:  
(command "osnap" "int") 9Ev<t\B  
(command "osnap" "end") v><c@a=[  
(command "osmode" 1) Q:5^K  
(SETQ P1 (GETPOINT"Pick the zb point:")) UD!-.I]  
(command "osmode" 0) Xv&&U@7  
(SETQ P2 (GETPOINT P1)) !2o1c  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1)))
^7Hwpn7E  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) 6/5Xy69:h  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) 'xP&u<(F  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) lA/.4"nN  
(SETQ XX (RTOS (CAR P1) 2 3)) ^5D%)@~  
(SETQ YY (RTOS (CADR P1) 2 3)) lM|}K-2
 
(SETQ L1 (STRLEN XX)) _ g8CvH)?!  
(SETQ L2 (STRLEN YY)) 9zL(PkC%\  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) Ov-Y.+L:  
(COMMAND"LINE" P1 P2"") {O=PVW2S  
(command "layer" "new" "zb_2" "") f'oO/0lx  
(setvar "clayer" "zb_2" ) iCtDV5  
(IF (>= (CAR P2)(CAR P1)) ]wZlJK`K  
  (PROGN 0z =?}xr  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) */6lyODf  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) \GD\N=?~  
  (COMMAND"LINE" P2 P3"") @"G+kLv0  
  (COMMAND"TEXT" X2 2.5 0 YY) ]i:_^z)R  
  (COMMAND"TEXT" Y2 2.5 0 XX) )Ggv_mc h  
  (COMMAND"TEXT" X1 2.5 0 "N=") PU2^4h/[`  
  (COMMAND"TEXT" Y1 2.5 0 "E=") _yRD*2 !;  
  ) Tfz_h~D  
  (PROGN L+X:M/)  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) `6:B0-r  
  (setq p4 (list (- (car p3) 3)(cadr p2))) t+ vz=`  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) ! }>CEE  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) Ab In\,x  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) ,gdud[&|;  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) i,B<k 0W9  
  (COMMAND"LINE" P2 P3"") t}YT+S  
  (COMMAND"TEXT" X22 2.5 0 YY) N`HiNb [  
  (COMMAND"TEXT" Y22 2.5 0 XX) -hY@r 7y  
  (COMMAND"TEXT" XX1 2.5 0 "N=") X5tx(}j  
  (COMMAND"TEXT" YY1 2.5 0 "E=") |[Rlg`TQ;*  
) VTwDa*]AhB  
) h5Ee*De  
) NXCvS0/h  
(DEFUN C:zb2() 3oOr*N3R  
(command "dimzin" "0") M5kw3Jy5  
(command "layer" "new" "zb_1" "") 7|PB6h3  
(setvar "clayer" "zb_1" ) i*((@:  
(command "color" 1) }n(
 ?|  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ,rS?^"h9  
(command "osnap" "int") = inp>L  
(command "osnap" "end") 82M`sk3.  
(command "osmode" 1) )*XD"-9  
(SETQ P1 (GETPOINT"Pick the zb point:")) ka_(8  
(command "osmode" 0) 4nrn Npf`b  
(SETQ P2 (GETPOINT P1)) FyQr$;r  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) rS!M0Hq>t  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) Yi j^hs@eV  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) ;pw9+zo^M  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) L|L;<  
(SETQ XX (RTOS (CAR P1) 2 3)) E)`:sSd9
 
(SETQ YY (RTOS (CADR P1) 2 3)) G}Ko*:fWS  
(SETQ L1 (STRLEN XX)) brX[-  
(SETQ L2 (STRLEN YY)) ~1&WR`U  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) 9:P\)'y?  
(COMMAND"LINE" P1 P2"") TwsI8X  
(command "layer" "new" "zb_2" "") fC".K Yjp  
(setvar "clayer" "zb_2" ) nb.|^O?  
(IF (>= (CAR P2)(CAR P1)) wF9L<<&B  
  (PROGN $^_6,uBM[  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) %Gl1Qi+Po_  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) =4$ErwI_dm  
  (COMMAND"LINE" P2 P3"") fx-8mf3  
  (COMMAND"TEXT" X2 1.25 0 YY) nV`U{}x  
  (COMMAND"TEXT" Y2 1.25 0 XX) l,*5*1lM  
  (COMMAND"TEXT" X1 1.25 0 "N=") @^Rl{p  
  (COMMAND"TEXT" Y1 1.25 0 "E=") #aQQd8  
  ) I^nDO\m <  
  (PROGN :(\JY?+w  
  (setq l (* l 1.1)) O0FUJGuTS  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) UwxszEHC  
  (setq p4 (list (- (car p3) 3)(cadr p2))) { V)`6  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) $A`m8?bY  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) ve+bR   
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) t#xfso`4o  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) l/,la]!T  
  (COMMAND"LINE" P2 P3"") jfi
Uf1Mj  
  (COMMAND"TEXT" X22 1.25 0 YY) *4e?y  
  (COMMAND"TEXT" Y22 1.25 0 XX) 5DDSo0E  
  (COMMAND"TEXT" XX1 1.25 0 "N=") *7E#=xb  
  (COMMAND"TEXT" YY1 1.25 0 "E=") T(qTipq0  
) `8S3Y  
) e=nvm'[h  
) $}AbR:z  
(DEFUN C:zb5() Se_]=>WI  
(setq cc 1) b50mMWtG  
(setq cc (getint "输入点编号<1>:")) :w-:B^VB  
(repeat 1000 v$D U q+  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") OLqV#i[K#9  
(command "dimzin" "0") peF)U !`D  
(command "layer" "new" "zb_1" "") |lcp (u*u  
(setvar "clayer" "zb_1" ) \ @fKKb|  
(command "color" 1) ZSs@9ej  
(command "osnap" "int") @TQ/Z$y  
(command "osnap" "end") qY$ [2]  
(command "osmode" 1) WrSc@j&Ycv  
(SETQ P1 (GETPOINT"Pick the zb point:")) l

^d'8n
 
(command "osmode" 0) yQ$]`hr;  
(SETQ P2 (GETPOINT P1)) .9J}Z^FD  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) YVwpqOE.=  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) araXE~Ac  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) zPc"r$'0U  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) x\U[5d   
(SETQ XX (RTOS (CAR P1) 2 3)) eZ+6U`^t  
(SETQ YY (RTOS (CADR P1) 2 3))
pr,,E[  
(SETQ L1 (STRLEN XX)) e MHz/;I  
(SETQ L2 (STRLEN YY)) E*u*LMm  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5)))
v7SYWO#  
(COMMAND"LINE" P1 P2"") uDP:kM  
(command "layer" "new" "zb_2" "") u5Vgi0}A  
(setvar "clayer" "zb_2" ) F3EAjO)ch  
(IF (>= (CAR P2)(CAR P1)) *!ng)3#  
  (PROGN B,cFvS  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) yKoZj   
  (setq p4 (list (+ (car p3) 7)(cadr p2))) [#C6K '  
  (command"circle" p4 7"") s*[ I"iE  
  (COMMAND"LINE" P2 P3"") L
/[VpD  
  (setq bb 2.5) /wLGf]0  
  (IF (<= cc 9 )(setq bb 5)) >7PQOQMW'
 
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) M2|!,2  
  (COMMAND"TEXT" X2 5 0 YY) CNefk$/cR  
  (COMMAND"TEXT" Y2 5 0 XX) aTTkj\4  
  (COMMAND"TEXT" X1 5 0 "N") 9zb1t1[W  
  (COMMAND"TEXT" Y1 5 0 "E") w8w0:@0(  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) 5, ,~k=  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) S)rr  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) Bd <0}  
  (command"text" p5 6 0 cc) 6{buel(|e  
  ) 953qz]Q8  
  (PROGN YD'gyP4  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) <@"rI>=  
  (setq p4 (list (- (car p3) 7)(cadr p2))) Rey+3*zUb  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) } Xo#/9  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) )b #5rQ  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) -n&&d8G^s  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) ~c35Y9-5  
  (COMMAND"LINE" P2 P3"") v*?8:>:}  
  (command"circle" p4 7) le\-h'D  
  (setq bb 12) 'EiCTl  
  (IF (<= cc 9 )(setq bb 8)) ANFes*8j  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) AQUAQZc  
  (COMMAND"TEXT" X22 5 0 YY) <rj'xv  
  (COMMAND"TEXT" Y22 5 0 XX) }bv+^#  
  (COMMAND"TEXT" XX1 5 0 "N") SjB"#E)  
  (COMMAND"TEXT" YY1 5 0 "E") oI{.{]  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) c$!?4z_.  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) Q38+`EhLA  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) P|<V0 Vs.  
  (command"text" p5 6 0 cc) Ze~P6  
  ) UHZ&7jfl  
) Q;$k?G=l  
(setq cc (+ cc 1)) A7Ql%$v7^  
`/PBZnj  
) ZLT?G  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. O`@Nl  
'