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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． )wdTs>W7  
8{)j"rghah  
(DEFUN C:zb() U_.9H _G  
(command "dimzin" "0") Y)*:'&~2e  
(command "layer" "new" "zb_1" "") 0E^6"nt7N  
(setvar "clayer" "zb_1" ) mR3-+dB/  
(command "color" 1) XFmTr@\M  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") H:5-S  
(command "osnap" "int") ve&"x Nz<  
(command "osnap" "end") EZb_8<DH  
(command "osmode" 1) AR?1_]"=  
(SETQ P1 (GETPOINT"Pick the zb point:")) ;'i>^zX`  
(command "osmode" 0) +rN&@}Jt.  
(SETQ P2 (GETPOINT P1)) 0T7c=5z4W  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) ms/!8X$Mz  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) `
2l j{N  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) kPvR ,  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) JZ>E<U9&  
(SETQ XX (RTOS (CAR P1) 2 3)) ,(y6XUV~  
(SETQ YY (RTOS (CADR P1) 2 3)) h*B7UzCg  
(SETQ L1 (STRLEN XX)) ,We'AR3X  
(SETQ L2 (STRLEN YY)) 2uT"LW/(H  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) {\p&?  
(COMMAND"LINE" P1 P2"") [$e\?c  
(command "layer" "new" "zb_2" "") `x:8m?q05  
(setvar "clayer" "zb_2" ) ~9ynlVb7)r  
(IF (>= (CAR P2)(CAR P1)) z;Yo76P  
  (PROGN &OXm^f)
K  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) UB2Ft=  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) <Gw>}/-^  
  (COMMAND"LINE" P2 P3"") c\DMeYrg  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) dBb &sA-A  
  (COMMAND"TEXT" X2 5 0 YY) U-:"Wx%G  
  (COMMAND"TEXT" Y2 5 0 XX) ?, m_q+  
  (COMMAND"TEXT" X1 5 0 "N") #w1E3ahaX  
  (COMMAND"TEXT" Y1 5 0 "E") ,vs#(d6G  
  ) Y{D?
&x%yq  
  (PROGN (U([T-H  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) VxW>XxG0  
  (setq p4 (list (- (car p3) 5)(cadr p2))) TW~%1G_v  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) |YcYWok  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) tb/`*Yl@  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) sa w  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) WbJ  
  (COMMAND"LINE" P2 P3"") AOv>O52F/Q  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) 34:Y_*  
  (COMMAND"TEXT" X22 5 0 YY) {&uN q^Ch  
  (COMMAND"TEXT" Y22 5 0 XX) iT=h}>  
  (COMMAND"TEXT" XX1 5 0 "N") vWVQ8S.  
  (COMMAND"TEXT" YY1 5 0 "E") W4&Itj  
  ) }ki6(_  
) z`:tl7  
) &1FyauH  
(DEFUN C:zb3() <[A;i  
(command "dimzin" "0") AB=Wj*fr  
(command "layer" "new" "zb_1" "") ->rudR
Q  
(setvar "clayer" "zb_1" ) -7u_\XFk  
(command "color" 1) &Pe[kCO]  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") w~ O)DhC  
(command "osnap" "int") 1k!$#1d<  
(command "osnap" "end") OLE@35"v]  
(command "osmode" 1) \2[sUY<W  
(SETQ P1 (GETPOINT"Pick the zb point:")) vRMGNz_P7[  
(command "osmode" 0) oD3Q{e  
(SETQ P2 (GETPOINT P1)) 3(3-#MD0  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) L*zfZ&  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) R47tg&k6[  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) H,Yrk(O-  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) KvmXRf*z  
(SETQ XX (RTOS (CAR P1) 2 3)) ?o`fX wE  
(SETQ YY (RTOS (CADR P1) 2 3)) sNsHl  
(SETQ L1 (STRLEN XX)) H+npe'm_Z  
(SETQ L2 (STRLEN YY)) qdxDR 2]U  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) T)mh  
(COMMAND"LINE" P1 P2"") M9QxF  
(command "layer" "new" "zb_2" "") e$N1m:1*  
(setvar "clayer" "zb_2" ) j$Vtd&  
(IF (>= (CAR P2)(CAR P1)) DAQozhP8  
  (PROGN AH|'{  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) xM13OoU  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) CO{AC~  
  (COMMAND"LINE" P2 P3"") J~lKN <w  
  (COMMAND"TEXT" X2 2.5 0 YY) jBU!xCO  
  (COMMAND"TEXT" Y2 2.5 0 XX) %h}3}p#4  
  (COMMAND"TEXT" X1 2.5 0 "N=") ALt^@|!d  
  (COMMAND"TEXT" Y1 2.5 0 "E=") q(Zu;ecBN  
  ) 4IXa[xAm  
  (PROGN  \z?-  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) dF'oZQz  
  (setq p4 (list (- (car p3) 3)(cadr p2))) ~QU\kZ7Z  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) v<E_n;@9k  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) %:Y'+!bX  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) [cT7Iqip  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) =|qYaXjT$  
  (COMMAND"LINE" P2 P3"") #R#|hw  
  (COMMAND"TEXT" X22 2.5 0 YY) hSXZu?/  
  (COMMAND"TEXT" Y22 2.5 0 XX) Atod&qH  
  (COMMAND"TEXT" XX1 2.5 0 "N=") ]?V2L`/  
  (COMMAND"TEXT" YY1 2.5 0 "E=") ' eH Fa  
) \&4)['4,  
) Z(hRwIOF  
) ?}<Wmy2A  
(DEFUN C:zb2() fX}dQN~z  
(command "dimzin" "0") 8g6G},Y0  
(command "layer" "new" "zb_1" "") c{!XDiT]P  
(setvar "clayer" "zb_1" ) 2qPQ3-'  
(command "color" 1) >qci$  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ;xjw'%n,  
(command "osnap" "int") A#CGD0T  
(command "osnap" "end") aKw7m={  
(command "osmode" 1) ::!{f+Up  
(SETQ P1 (GETPOINT"Pick the zb point:")) e! 0Y`lQ  
(command "osmode" 0) E7j9A`  
(SETQ P2 (GETPOINT P1)) MJG)fFl]O  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) rNeSg=j  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) RaAvPIJa |  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) N>',[4pJ|  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) >?ckBU9  
(SETQ XX (RTOS (CAR P1) 2 3)) ])mYE }g  
(SETQ YY (RTOS (CADR P1) 2 3)) *Zz hN]1  
(SETQ L1 (STRLEN XX)) zzZK S  
(SETQ L2 (STRLEN YY)) o'!WW  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) }+BbwBm&  
(COMMAND"LINE" P1 P2"") HsAKz]Mq  
(command "layer" "new" "zb_2" "") 7=pJ)4;ZA  
(setvar "clayer" "zb_2" ) CO"Nv  
(IF (>= (CAR P2)(CAR P1)) _A=Pr_kN  
  (PROGN at5=Zo[bP  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) K6e_RzP,.w  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) Ui05o7xg~p  
  (COMMAND"LINE" P2 P3"") OM#eJ,MH<)  
  (COMMAND"TEXT" X2 1.25 0 YY) 1n EW'F  
  (COMMAND"TEXT" Y2 1.25 0 XX) W3Dtt-)E  
  (COMMAND"TEXT" X1 1.25 0 "N=") Q5/BEUkC  
  (COMMAND"TEXT" Y1 1.25 0 "E=")
eC*-/$D  
  ) .?;"iv+  
  (PROGN wQ~F%rQ$  
  (setq l (* l 1.1)) dnstm@0k  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) 4'U #<8  
  (setq p4 (list (- (car p3) 3)(cadr p2))) .eG_>2'1  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) `Y.Q{5Y  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) TW~9<c  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) ^RE("'+  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) FAF+}  
  (COMMAND"LINE" P2 P3"") pXq5|,aC  
  (COMMAND"TEXT" X22 1.25 0 YY) nZ~J&QK-  
  (COMMAND"TEXT" Y22 1.25 0 XX) {igVuZ(>en  
  (COMMAND"TEXT" XX1 1.25 0 "N=") 9xIz[`)i.  
  (COMMAND"TEXT" YY1 1.25 0 "E=") l]KxUkA+  
) 1g bqHxWI  
) 6@cT;=W;xj  
) O`Ge|4  
(DEFUN C:zb5() tU, >EbwO  
(setq cc 1) dEWI8Q]  
(setq cc (getint "输入点编号<1>:")) 7~7_T#dTh  
(repeat 1000 yfCdK-9+B  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") x
/xd  
(command "dimzin" "0") Qr$Ay3#k  
(command "layer" "new" "zb_1" "") "`aLSw75x  
(setvar "clayer" "zb_1" ) 2JS&
zF  
(command "color" 1) :/941?%M  
(command "osnap" "int") \1cJ?/$_Of  
(command "osnap" "end") ieG%D HN  
(command "osmode" 1) 'n0u6hCSb  
(SETQ P1 (GETPOINT"Pick the zb point:")) T{Y;-m  
(command "osmode" 0) [SX>b"L  
(SETQ P2 (GETPOINT P1)) >r
~!'Pd!  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) )H`1CcT  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) D_)n\(3  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) nK;c@!~pS  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) NY9\a[[^[8  
(SETQ XX (RTOS (CAR P1) 2 3)) ?Z[`sm  
(SETQ YY (RTOS (CADR P1) 2 3)) k^v P|*eu  
(SETQ L1 (STRLEN XX)) v35=4>Y  
(SETQ L2 (STRLEN YY)) IW-lC{hK  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) 1Wy0#?L  
(COMMAND"LINE" P1 P2"") y7WO:X&  
(command "layer" "new" "zb_2" "") =TG[isC/F9  
(setvar "clayer" "zb_2" ) l
=?G"1  
(IF (>= (CAR P2)(CAR P1)) XlHt(d0h
 
  (PROGN f hS4Gb_  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) m C&*K  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) N#"(  
  (command"circle" p4 7"") 5$.e5y<&(  
  (COMMAND"LINE" P2 P3"") 7.N~e}p8  
  (setq bb 2.5) '#p2v'A  
  (IF (<= cc 9 )(setq bb 5)) wtpz ef=  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) E ) iEWc  
  (COMMAND"TEXT" X2 5 0 YY) S eTn]  
  (COMMAND"TEXT" Y2 5 0 XX) 9j
~|m  
  (COMMAND"TEXT" X1 5 0 "N") 8C(@a[V  
  (COMMAND"TEXT" Y1 5 0 "E") ygn]f*;?kw  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) 01/yog
 
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) N|53|H  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) _Nmc1azS  
  (command"text" p5 6 0 cc) heN?lmC  
  ) 6o4Bf|E]  
  (PROGN wz{]CQ7"  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) _bm8m
4Lk  
  (setq p4 (list (- (car p3) 7)(cadr p2))) J;AwC>N  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) ym~  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) c^ifHCt|  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) 1P[[PvkD6  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) "g=g' W#  
  (COMMAND"LINE" P2 P3"") o,yP9~8\  
  (command"circle" p4 7) ZN `D!e6  
  (setq bb 12) U3UDA  
  (IF (<= cc 9 )(setq bb 8)) ndCHWhi  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) >/5'0n_R  
  (COMMAND"TEXT" X22 5 0 YY) YLVZ]fN=>  
  (COMMAND"TEXT" Y22 5 0 XX) N& 683z  
  (COMMAND"TEXT" XX1 5 0 "N") 'l7ey3B%  
  (COMMAND"TEXT" YY1 5 0 "E") )J<VDO:_YA  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) ljw(
cUM  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) -mur`tC  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) / 80Q  
  (command"text" p5 6 0 cc) 7I0[Ii  
  ) n 9X:s?B/  
) R@[gkj  
(setq cc (+ cc 1)) f0d*%  
Q 
eZg l!  
) 9J $"Qt5;6  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. H b}(.`  
'