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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． >IY,be6>P  
#C\4/g?=,  
(DEFUN C:zb() :3?|VE F  
(command "dimzin" "0") El6bD% \G  
(command "layer" "new" "zb_1" "") @\}YAa>>"I  
(setvar "clayer" "zb_1" ) G9RP^  
(command "color" 1) xo WT*f  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") If'2rE7J  
(command "osnap" "int") %MJ;Q?KB  
(command "osnap" "end") "^%Z'ou  
(command "osmode" 1) (vQ+e
 
(SETQ P1 (GETPOINT"Pick the zb point:")) AuCWQ~  
(command "osmode" 0) sKfXg`0  
(SETQ P2 (GETPOINT P1)) |(ocDmd  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) 8Rxc&`_X  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) iP "EA8  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) \+Y!ILOI  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) (~()RkT  
(SETQ XX (RTOS (CAR P1) 2 3)) x~/+RF XF  
(SETQ YY (RTOS (CADR P1) 2 3)) Uix{"  
(SETQ L1 (STRLEN XX)) Dg2uE8k  
(SETQ L2 (STRLEN YY)) {$fsS&aPg  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) >n!ni(  
(COMMAND"LINE" P1 P2"") J_ J+cRwq  
(command "layer" "new" "zb_2" "") >;nS8{2o  
(setvar "clayer" "zb_2" ) I]uhi{\C  
(IF (>= (CAR P2)(CAR P1)) Q%5F ]`VN  
  (PROGN DU{bonR`  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) G;]:$J  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) Ze ? g  
  (COMMAND"LINE" P2 P3"") -&Gfh\_NW  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) qY# d+F,t  
  (COMMAND"TEXT" X2 5 0 YY) d^84jf.U  
  (COMMAND"TEXT" Y2 5 0 XX) Z$;"8XUM  
  (COMMAND"TEXT" X1 5 0 "N") AS;.sjgk  
  (COMMAND"TEXT" Y1 5 0 "E") nG
rVw&  
  ) a$}mWPp+f  
  (PROGN 0*7*RX  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) nq;#_Rkr  
  (setq p4 (list (- (car p3) 5)(cadr p2))) QnK
C#   
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) rt b*n~  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) b3U6;]|x  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) -<W2PY<  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) T[.[ g/`  
  (COMMAND"LINE" P2 P3"") xb$yu.c  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) 97!5Q~I  
  (COMMAND"TEXT" X22 5 0 YY) JSW&rn  
  (COMMAND"TEXT" Y22 5 0 XX) 77Q}=80GU;  
  (COMMAND"TEXT" XX1 5 0 "N") e.;M.8N#SQ  
  (COMMAND"TEXT" YY1 5 0 "E") Vxh.<b6&'  
  ) h~miP7,c<u  
) K.DXJ UR  
) \&q=@rJp(z  
(DEFUN C:zb3() /f3m)pT  
(command "dimzin" "0") LprM;Q_  
(command "layer" "new" "zb_1" "") 0BTLcEqgZ  
(setvar "clayer" "zb_1" ) S,vu]?-8  
(command "color" 1) BaL]mIx  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") Z> 74.r  
(command "osnap" "int") nl@E[yA9[  
(command "osnap" "end") V5MO}  
(command "osmode" 1) 3Gd0E;3sk~  
(SETQ P1 (GETPOINT"Pick the zb point:")) e4.&aIC[  
(command "osmode" 0) Y60"M4j  
(SETQ P2 (GETPOINT P1)) aWaw&u  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) >q(6,Mmb  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) Tbh'_F6  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) r!K|E95oj9  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) K$-;;pUl  
(SETQ XX (RTOS (CAR P1) 2 3)) KQ)T(mIqp  
(SETQ YY (RTOS (CADR P1) 2 3)) ty- r&  
(SETQ L1 (STRLEN XX)) s4t0f_vj`  
(SETQ L2 (STRLEN YY)) o'Y#H r)/  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) 
g6euXI  
(COMMAND"LINE" P1 P2"") Y@}FL;3  
(command "layer" "new" "zb_2" "") JR1
*|u  
(setvar "clayer" "zb_2" ) ~A >oO-0K  
(IF (>= (CAR P2)(CAR P1)) 9S1#Lr`r  
  (PROGN gq4 . d  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) 7rIlTrG  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 6k9LxC:M  
  (COMMAND"LINE" P2 P3"") <lo`q<q  
  (COMMAND"TEXT" X2 2.5 0 YY) S< x:t(  
  (COMMAND"TEXT" Y2 2.5 0 XX) POGw`:)A  
  (COMMAND"TEXT" X1 2.5 0 "N=") A3s57.Z]|  
  (COMMAND"TEXT" Y1 2.5 0 "E=") \A(5;ZnuD  
  ) 7/>a:02  
  (PROGN knSuzq%
*  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) %h+uD^^$  
  (setq p4 (list (- (car p3) 3)(cadr p2))) CW0UMPE5  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) ;[Tyt[  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) #&siHHs \  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) y
Nva1I  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) (hf zM+2  
  (COMMAND"LINE" P2 P3"") &jm[4'$ *z  
  (COMMAND"TEXT" X22 2.5 0 YY) `P.CNYR<J  
  (COMMAND"TEXT" Y22 2.5 0 XX) v*r9j8
 
  (COMMAND"TEXT" XX1 2.5 0 "N=") !Zs,-=^D  
  (COMMAND"TEXT" YY1 2.5 0 "E=") ct0v$ct>f  
) cU+>|'f&  
) oh\1>3,Ns  
) 3qo e^e  
(DEFUN C:zb2() (6k>FSpg  
(command "dimzin" "0") 'F5)ACA%  
(command "layer" "new" "zb_1" "") hTw}X.<4  
(setvar "clayer" "zb_1" ) >&hX&,hG  
(command "color" 1) Yu3_=: <C  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") @HEPc95  
(command "osnap" "int") xIgql}.  
(command "osnap" "end") 8^X]z|2  
(command "osmode" 1) d@>\E/zA  
(SETQ P1 (GETPOINT"Pick the zb point:")) T %/  
(command "osmode" 0) ;3UvkN  
(SETQ P2 (GETPOINT P1)) oT->^4WY  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) hW%p#g;  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) 'v`_Ii|-  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) kCp)!hV
Q  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) AgsR-"uh  
(SETQ XX (RTOS (CAR P1) 2 3)) (C`@a/q  
(SETQ YY (RTOS (CADR P1) 2 3)) P<L&c_u  
(SETQ L1 (STRLEN XX)) XS|mKuMcC  
(SETQ L2 (STRLEN YY)) 3bts7<K=  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) |<Bpv{]P  
(COMMAND"LINE" P1 P2"") 4oJ$dN  
(command "layer" "new" "zb_2" "") 4$Pr|gx  
(setvar "clayer" "zb_2" ) Z| L2oce  
(IF (>= (CAR P2)(CAR P1)) qLRE}$P  
  (PROGN };p~A-E=  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) `a'`$'j  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) !!+Da>  
  (COMMAND"LINE" P2 P3"") {^wdJZ~QLK  
  (COMMAND"TEXT" X2 1.25 0 YY) ;+%Z@b%  
  (COMMAND"TEXT" Y2 1.25 0 XX) x
jrlc9  
  (COMMAND"TEXT" X1 1.25 0 "N=") ]fC7%"nB  
  (COMMAND"TEXT" Y1 1.25 0 "E=") q^6N+^}QN  
  ) PP-kz;|  
  (PROGN d*%Mv[X:<  
  (setq l (* l 1.1)) xBWx+My
 
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) CB]l[hM$  
  (setq p4 (list (- (car p3) 3)(cadr p2))) sVoR?peQ  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) ;eh/_hPM  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) H),RA]S  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) x@Vt[}e  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) ohplj`X[21  
  (COMMAND"LINE" P2 P3"") V{$Sfmey  
  (COMMAND"TEXT" X22 1.25 0 YY) M.[wKGX(  
  (COMMAND"TEXT" Y22 1.25 0 XX) +2y&B,L_Wh  
  (COMMAND"TEXT" XX1 1.25 0 "N=") dXO=ZU/N  
  (COMMAND"TEXT" YY1 1.25 0 "E=") CWvlr nv  
) kaO{#i2-  
) ,Hh*3rR^  
) WRM$DA  
(DEFUN C:zb5() !x_t`78T  
(setq cc 1) 8m7;x/0ld  
(setq cc (getint "输入点编号<1>:")) Y^3)!>  
(repeat 1000 ' =}pxyg  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 0etwz3NuW  
(command "dimzin" "0") >{F!ntEj  
(command "layer" "new" "zb_1" "") eP?~-#  
(setvar "clayer" "zb_1" ) 2L[l'}  
(command "color" 1) 9A<0zt  
(command "osnap" "int") 1M/$< kQ-N  
(command "osnap" "end") d<v~=  
(command "osmode" 1) 9m~t j_
  
(SETQ P1 (GETPOINT"Pick the zb point:")) ]b)!YPo  
(command "osmode" 0) m9Il\PoTq  
(SETQ P2 (GETPOINT P1)) ,`"K  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) ',#  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) U/5$%0)  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) yU!GS-
  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) dq2@6xd  
(SETQ XX (RTOS (CAR P1) 2 3)) 8~qlLa>jc  
(SETQ YY (RTOS (CADR P1) 2 3)) L]*`4L  
(SETQ L1 (STRLEN XX)) f| =# q  
(SETQ L2 (STRLEN YY))  z \^  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) wo]ks}
9  
(COMMAND"LINE" P1 P2"") `x*/UCy\  
(command "layer" "new" "zb_2" "") HT-PWk>2  
(setvar "clayer" "zb_2" ) 22'vm~2E  
(IF (>= (CAR P2)(CAR P1)) ETg{yBsp  
  (PROGN d.I%k1`(  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) -U:2H7  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) }{t3SGsJ  
  (command"circle" p4 7"") ]7l{g9?ZtV  
  (COMMAND"LINE" P2 P3"") S2bexbp0o  
  (setq bb 2.5) a_AJ)4  
  (IF (<= cc 9 )(setq bb 5)) *F..ZS'$[  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) S[^nSF  
  (COMMAND"TEXT" X2 5 0 YY) g+3Hwtl  
  (COMMAND"TEXT" Y2 5 0 XX) zg)|rm  
  (COMMAND"TEXT" X1 5 0 "N") g<a<{|  
  (COMMAND"TEXT" Y1 5 0 "E") JeL~]F  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) k|5k8CRX  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) \eT/%$  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) wO89&XZ<  
  (command"text" p5 6 0 cc) ;tXY =  
  ) :-U53}Iy  
  (PROGN ~Q0&P!k  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) w#rVSSXQ3  
  (setq p4 (list (- (car p3) 7)(cadr p2))) [lZ=s[n.  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) &rcdr+'  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) |lY`9-M`I  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) RB *P
0  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) :S#i9# aB  
  (COMMAND"LINE" P2 P3"") eZA6D\  
  (command"circle" p4 7) 9LHa&""  
  (setq bb 12) ~\3l!zIq  
  (IF (<= cc 9 )(setq bb 8)) wZ O@J|  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) sX Z4U0#  
  (COMMAND"TEXT" X22 5 0 YY) ys/vI/e\  
  (COMMAND"TEXT" Y22 5 0 XX) xmO
M<0T  
  (COMMAND"TEXT" XX1 5 0 "N") sN=KRqe  
  (COMMAND"TEXT" YY1 5 0 "E") nqrDT1b**  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) >ks3WMm  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) i:{:xKiCa  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) SbCJ|z#?  
  (command"text" p5 6 0 cc) lqauk)(A0  
  ) :Fc8S9  
) N7a[B>+`  
(setq cc (+ cc 1)) aI7Xq3  
yZ?$8r  
) JLml#Pu4  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. x-tm[x@;o  
'