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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． U}vtVvx  
K~hlwjrt  
(DEFUN C:zb() 6
Nd_YX  
(command "dimzin" "0") i]^*J1
a  
(command "layer" "new" "zb_1" "") /+JP~K  
(setvar "clayer" "zb_1" ) Dk{nOvZu<  
(command "color" 1) *i]Z=  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") :EldP,s#x%  
(command "osnap" "int") [F>n!`8  
(command "osnap" "end") \8>N<B)  
(command "osmode" 1) N(({2'Rr  
(SETQ P1 (GETPOINT"Pick the zb point:")) /*R' xBr  
(command "osmode" 0) PRf\6   
(SETQ P2 (GETPOINT P1)) kp &XX|  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) [#@p{[?r  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7)))  d7-F&!sQ  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) xzf)_ <  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) *.;}OX^X  
(SETQ XX (RTOS (CAR P1) 2 3)) jQwg)E+o;  
(SETQ YY (RTOS (CADR P1) 2 3)) c,s<q j  
(SETQ L1 (STRLEN XX)) o'}Z!@h  
(SETQ L2 (STRLEN YY)) UNH}*]u4`  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) >5@ 0lYhH  
(COMMAND"LINE" P1 P2"") W!9f'Yn  
(command "layer" "new" "zb_2" "") Yr(f iI  
(setvar "clayer" "zb_2" ) +iDz+3v(  
(IF (>= (CAR P2)(CAR P1)) 0#[Nfe*  
  (PROGN ~[X:twidkL  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) x?k |i
}Q  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) '`A67bdq)  
  (COMMAND"LINE" P2 P3"") nOoh2jUM  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) B(vz$QE,$r  
  (COMMAND"TEXT" X2 5 0 YY) E":":AC#  
  (COMMAND"TEXT" Y2 5 0 XX) I:2jwAl  
  (COMMAND"TEXT" X1 5 0 "N") 0BwQ!B.  
  (COMMAND"TEXT" Y1 5 0 "E") [(^''*7r+T  
  ) ^J=txsx  
  (PROGN 9mtC"M<   
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) kd2'-9  
  (setq p4 (list (- (car p3) 5)(cadr p2))) l[j0(T  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) 9Qm{\  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) KB-#):'  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) =|t1eSzc  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) r3lr`s`  
  (COMMAND"LINE" P2 P3"") 5TW<1'u  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) a{YVz\?d}  
  (COMMAND"TEXT" X22 5 0 YY) -8J@r2\
 
  (COMMAND"TEXT" Y22 5 0 XX) gGz_t,=  
  (COMMAND"TEXT" XX1 5 0 "N") !{=%l+^.  
  (COMMAND"TEXT" YY1 5 0 "E") ,T>2zSk  
  ) ;."{0gq  
) KE1@z]  
)  [ ^ \)  
(DEFUN C:zb3() us *l+Jw,m  
(command "dimzin" "0") FQ&VM6_  
(command "layer" "new" "zb_1" "") )uJ`E8>-  
(setvar "clayer" "zb_1" )
C2%3+  
(command "color" 1) 6B P%&RL  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") hzVr3;3Zn  
(command "osnap" "int") JZ0+VB-3U  
(command "osnap" "end") `)_FO]m}jS  
(command "osmode" 1) d~s-;T  
(SETQ P1 (GETPOINT"Pick the zb point:")) N9hWx()v  
(command "osmode" 0) r,@|Snv)  
(SETQ P2 (GETPOINT P1)) g(/O)G.  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) gM]/Y6*$b  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) fC:\Gh5  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) BiAcjN:Z  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) 9_^V1+   
(SETQ XX (RTOS (CAR P1) 2 3)) ag4^y&  
(SETQ YY (RTOS (CADR P1) 2 3)) b<MMli  
(SETQ L1 (STRLEN XX)) [-}%B0S**  
(SETQ L2 (STRLEN YY)) 5w%9b  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) F#9KMu<<cI  
(COMMAND"LINE" P1 P2"") }{PtQc6RL!  
(command "layer" "new" "zb_2" "") Eu_0n6J  
(setvar "clayer" "zb_2" ) jh!IOtf  
(IF (>= (CAR P2)(CAR P1)) ::t!W7W  
  (PROGN K_Gf\x  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) R5~m"bE  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) _e^V\O>  
  (COMMAND"LINE" P2 P3"") 667t
L(
 
  (COMMAND"TEXT" X2 2.5 0 YY) ?AH<y/i<Y  
  (COMMAND"TEXT" Y2 2.5 0 XX) qt)mUq;>  
  (COMMAND"TEXT" X1 2.5 0 "N=") P=i |{vv(  
  (COMMAND"TEXT" Y1 2.5 0 "E=") JIk
mtZv  
  ) V3nv5/6  
  (PROGN _dY}86{  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) v<4X;4p^  
  (setq p4 (list (- (car p3) 3)(cadr p2))) 7}?z=LHb3  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) W#/Ol59  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) 2^j9m}`  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) U4/$4.'
NQ  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) QpZhxp  
  (COMMAND"LINE" P2 P3"") hj[g2S%X  
  (COMMAND"TEXT" X22 2.5 0 YY) &Vm[5X
W  
  (COMMAND"TEXT" Y22 2.5 0 XX) UY^f|f&  
  (COMMAND"TEXT" XX1 2.5 0 "N=") Kqjeqr@)  
  (COMMAND"TEXT" YY1 2.5 0 "E=") Z ISd0hV  
) =sJHnWL[  
) BF#e=p  
) }gt~{9?c  
(DEFUN C:zb2() L32ki}2  
(command "dimzin" "0") w/@%x
y  
(command "layer" "new" "zb_1" "") cZ,_O~  
(setvar "clayer" "zb_1" ) auv\fR :  
(command "color" 1) J)+eEmrU  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 247>+:7z  
(command "osnap" "int") (\_d'Js(;  
(command "osnap" "end") (/BkwbJyE  
(command "osmode" 1) {hR23eE)#  
(SETQ P1 (GETPOINT"Pick the zb point:")) UJ&,9}L8  
(command "osmode" 0) HyMb-Us  
(SETQ P2 (GETPOINT P1)) Melc-[  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) /otgFQ_  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) U3QnWPt}>  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) F!<x;h(  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) |0 V
P^md  
(SETQ XX (RTOS (CAR P1) 2 3)) :zoX Xo  
(SETQ YY (RTOS (CADR P1) 2 3)) #v<+G=r*O  
(SETQ L1 (STRLEN XX)) f#+ h_1#  
(SETQ L2 (STRLEN YY)) .YlM'E*X  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) .42OSV  
(COMMAND"LINE" P1 P2"") Sy55w={  
(command "layer" "new" "zb_2" "") q fe#kF9  
(setvar "clayer" "zb_2" ) r~t7Z+PXF  
(IF (>= (CAR P2)(CAR P1)) 1x)%9u}  
  (PROGN |^&e\8>.  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) lX7^LB  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) <k1gc
,*  
  (COMMAND"LINE" P2 P3"") `XP Tf#9j  
  (COMMAND"TEXT" X2 1.25 0 YY) )c/BDC7g  
  (COMMAND"TEXT" Y2 1.25 0 XX) V _,*  
  (COMMAND"TEXT" X1 1.25 0 "N=") K}@:>;*9  
  (COMMAND"TEXT" Y1 1.25 0 "E=") [8n4lE[)"  
  ) HmKE>C/  
  (PROGN 3@JwL{C  
  (setq l (* l 1.1)) 8'$n|<1X  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) a{=~#u8  
  (setq p4 (list (- (car p3) 3)(cadr p2))) #wfR$Cd  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) (@9-"W  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) Z$@Nzza-  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) $Re %+2c  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) #e[5O|V~  
  (COMMAND"LINE" P2 P3"") V7<} ;Lzm  
  (COMMAND"TEXT" X22 1.25 0 YY) :gn!3P}p?  
  (COMMAND"TEXT" Y22 1.25 0 XX) r+2dBp3  
  (COMMAND"TEXT" XX1 1.25 0 "N=") <T>f@Dn,  
  (COMMAND"TEXT" YY1 1.25 0 "E=") e$Ej7_.#;  
) Rz<fz"/2<  
) 1^mO"nX  
) 2vLn#  
(DEFUN C:zb5() |BR&p)7)  
(setq cc 1) o/#e y  
(setq cc (getint "输入点编号<1>:")) 3ly|y{M",  
(repeat 1000 BN0))p  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") j.sf FS  
(command "dimzin" "0") bVym  
(command "layer" "new" "zb_1" "") <ZLs+|1  
(setvar "clayer" "zb_1" ) coBxZyM 1}  
(command "color" 1) t<-Iiq+tL  
(command "osnap" "int") 0FBifK  
(command "osnap" "end") ZZUCwczI  
(command "osmode" 1) tQ"PCm  
(SETQ P1 (GETPOINT"Pick the zb point:")) }j x{Cw  
(command "osmode" 0) <v?-$3YT  
(SETQ P2 (GETPOINT P1)) d?JVB  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) 4I$#R  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) Ru/3>n  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) ` $}[np|  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) !#QD;,SE+  
(SETQ XX (RTOS (CAR P1) 2 3)) BTB,a$P/  
(SETQ YY (RTOS (CADR P1) 2 3)) G7u7x?E:B`  
(SETQ L1 (STRLEN XX)) G|V ^C_:  
(SETQ L2 (STRLEN YY)) 2B|3`trY4x  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) '`n\YO.N  
(COMMAND"LINE" P1 P2"") pdM|dGq^  
(command "layer" "new" "zb_2" "") '(?@R5a  
(setvar "clayer" "zb_2" ) 1-`8v[S  
(IF (>= (CAR P2)(CAR P1)) q?wBh^  
  (PROGN 0z.&  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) a,X3=+_K  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) 1mf_1
spB  
  (command"circle" p4 7"") 0W@C!mD~  
  (COMMAND"LINE" P2 P3"") IaW8  
  (setq bb 2.5) vjWS35i  
  (IF (<= cc 9 )(setq bb 5)) i^yQ; 2-  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) Xo P]PR`cQ  
  (COMMAND"TEXT" X2 5 0 YY) =6>mlI>i  
  (COMMAND"TEXT" Y2 5 0 XX) l`d=sOB^  
  (COMMAND"TEXT" X1 5 0 "N") 8I*fPf  
  (COMMAND"TEXT" Y1 5 0 "E") |m~|  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) R]dc(D  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) GerZA#  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) /IgTmXxxj  
  (command"text" p5 6 0 cc) sD M!Uv2n  
  ) ~*&_zPTN  
  (PROGN "p<f#s}  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) 3N?uY2  
  (setq p4 (list (- (car p3) 7)(cadr p2))) $OmtN
"  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) ^#;2 Pd>  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) 0&<{o!>k  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) $uboOfS83G  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) U]_1yX  
  (COMMAND"LINE" P2 P3"") 4o'0lz]  
  (command"circle" p4 7) G'!Hc6OZ  
  (setq bb 12) k(et b#  
  (IF (<= cc 9 )(setq bb 8)) ]^dXB0  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) R5Ti|k.~Y"  
  (COMMAND"TEXT" X22 5 0 YY) #;+GNF}0mG  
  (COMMAND"TEXT" Y22 5 0 XX) }ZV$_  
  (COMMAND"TEXT" XX1 5 0 "N") ?;\YiOTda  
  (COMMAND"TEXT" YY1 5 0 "E") <[(xGrEZV  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) ]ko>vQ4]3  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) k9a-\UIMet  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) M}H
GFN  
  (command"text" p5 6 0 cc) /6g*WX2P1  
  ) %h^; "|Z  
) I6\l6o  
(setq cc (+ cc 1)) :[!rj  
uV{cvq$jy  
) IU&n!5d$)|  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. ]9F$/M#  
'