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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． ;3|Lw<D5;  
d?M!
acB  
(DEFUN C:zb() =)- Q?1q  
(command "dimzin" "0") 2nU NI U  
(command "layer" "new" "zb_1" "") As~p1%nok  
(setvar "clayer" "zb_1" ) 7~ese+\smG  
(command "color" 1) P%`R7yk  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") p/1}>F|i  
(command "osnap" "int") R96o8#7Uv  
(command "osnap" "end") 0r-lb[n8i  
(command "osmode" 1) y)/$ge_U  
(SETQ P1 (GETPOINT"Pick the zb point:")) /QXs-T}d  
(command "osmode" 0) Z;y}gv/{  
(SETQ P2 (GETPOINT P1)) LAY)">*49H  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) Sq|1f?_gU  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) z3Y)-  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) r\n h.}s  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) <,pLW~2-"  
(SETQ XX (RTOS (CAR P1) 2 3)) 2v9s@k/k)6  
(SETQ YY (RTOS (CADR P1) 2 3)) 6eUi
I@J  
(SETQ L1 (STRLEN XX)) +Bq}>  
(SETQ L2 (STRLEN YY)) Gr#rM/AfCK  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) !+A"Lej  
(COMMAND"LINE" P1 P2"") :uwRuPI  
(command "layer" "new" "zb_2" "") {#*?S>DA  
(setvar "clayer" "zb_2" ) *[xNp[
4EU  
(IF (>= (CAR P2)(CAR P1)) @CaD8%j{  
  (PROGN (>LHj]}K  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) H@2v<e@  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) "dK
|]w8  
  (COMMAND"LINE" P2 P3"") c_G-R+  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) {|5$1v  
  (COMMAND"TEXT" X2 5 0 YY) )YnI!v2T  
  (COMMAND"TEXT" Y2 5 0 XX) L`\`NNQC  
  (COMMAND"TEXT" X1 5 0 "N") 7c
29Ua~[  
  (COMMAND"TEXT" Y1 5 0 "E") QFNz9c  
  ) 1V**QSZ1  
  (PROGN q3x;_y^  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) Q
Bfhyo_  
  (setq p4 (list (- (car p3) 5)(cadr p2))) V"7<[u]K|  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) I^M#[xA  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) 2-6.r_  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) d
7gH3 l  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) y/@;c)1b9  
  (COMMAND"LINE" P2 P3"") Tw}?(\ya  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) lpfwlB'~9  
  (COMMAND"TEXT" X22 5 0 YY) ?79SPp)oo  
  (COMMAND"TEXT" Y22 5 0 XX) 5xMA~I0c  
  (COMMAND"TEXT" XX1 5 0 "N") 8tV=fSHd  
  (COMMAND"TEXT" YY1 5 0 "E") T3G/v)ufd  
  ) Krp <bK6  
) d(X\B{  
) h{W$ fZc<  
(DEFUN C:zb3() . QQ?w  
(command "dimzin" "0") bIb6yVnHi  
(command "layer" "new" "zb_1" "") o5=)~D{/G3  
(setvar "clayer" "zb_1" ) *#Lsjk~_-  
(command "color" 1) ^J#?hHz  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ReI=4Jq11  
(command "osnap" "int") %Ye)8+-  
(command "osnap" "end") _'!N q  
(command "osmode" 1) `'xQ6Sy  
(SETQ P1 (GETPOINT"Pick the zb point:")) vLv|SqD  
(command "osmode" 0) ;}n9yci#  
(SETQ P2 (GETPOINT P1)) tDC0-N&6S~  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) K-2o9No?j`  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) 1N!Oslum  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) _[}G(<  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) u[V4OU}%  
(SETQ XX (RTOS (CAR P1) 2 3)) $f<eq7rRe  
(SETQ YY (RTOS (CADR P1) 2 3)) .N5hV3  
(SETQ L1 (STRLEN XX)) <[Tq7cO0  
(SETQ L2 (STRLEN YY)) ,zAK3d&h
j  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) pBSq%Hy:  
(COMMAND"LINE" P1 P2"") +=ZWau   
(command "layer" "new" "zb_2" "") mP9cBLz  
(setvar "clayer" "zb_2" ) v%
H"_T  
(IF (>= (CAR P2)(CAR P1)) TJHN/Z/  
  (PROGN ZR!cQ oV=  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) J 6(~>g  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) tMxsR>sH  
  (COMMAND"LINE" P2 P3"") BW'L.*2  
  (COMMAND"TEXT" X2 2.5 0 YY) Rro?q   
  (COMMAND"TEXT" Y2 2.5 0 XX)
i{TIm}_\  
  (COMMAND"TEXT" X1 2.5 0 "N=") z$9@j2  
  (COMMAND"TEXT" Y1 2.5 0 "E=") 1YJ_1VJ  
  ) Tg"'pO  
  (PROGN |7svA<<[  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) ^y&q5p jj  
  (setq p4 (list (- (car p3) 3)(cadr p2))) +dqk6RE  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) ^~ Ekg:`  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) Ho|o,XvLv  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) +<S9E'gT3V  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) k0H?9Z4k5  
  (COMMAND"LINE" P2 P3"") W3D
e|V^  
  (COMMAND"TEXT" X22 2.5 0 YY) b->eg 8|  
  (COMMAND"TEXT" Y22 2.5 0 XX)  7]p>XAb  
  (COMMAND"TEXT" XX1 2.5 0 "N=") #,@bxsB  
  (COMMAND"TEXT" YY1 2.5 0 "E=") dv"as4~%  
) Oq*n9V  
) {I4%  
) S-isL4D.Z  
(DEFUN C:zb2() nYOY"'z  
(command "dimzin" "0") 1)$%
Jr  
(command "layer" "new" "zb_1" "") LMAmpVo  
(setvar "clayer" "zb_1" ) TG1P=g5h  
(command "color" 1) 9 0X?1  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") bRWIDPh  
(command "osnap" "int") {bT9VZ>  
(command "osnap" "end") GHv{   
(command "osmode" 1) $[[?;g  
(SETQ P1 (GETPOINT"Pick the zb point:")) @'*eC}\E  
(command "osmode" 0) 2$M,*Dnr  
(SETQ P2 (GETPOINT P1)) :%N*{uy  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) d'ZS;l   
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) 8s<^]sFP  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) (VR"Mi4  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) \,2gTi,=  
(SETQ XX (RTOS (CAR P1) 2 3)) 5QAdcEcN@O  
(SETQ YY (RTOS (CADR P1) 2 3)) E_~x==cb  
(SETQ L1 (STRLEN XX)) NeHx2m+  
(SETQ L2 (STRLEN YY)) #;`Oj  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) M~als3  
(COMMAND"LINE" P1 P2"") @cZ\*,T  
(command "layer" "new" "zb_2" "") 3S5^`Ag#  
(setvar "clayer" "zb_2" ) 7skljw(  
(IF (>= (CAR P2)(CAR P1)) 4:D:|r  
  (PROGN cg,Ua!c  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) ZP-dW|<[x  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) }g>kpa0c  
  (COMMAND"LINE" P2 P3"") lK*jhW?3:  
  (COMMAND"TEXT" X2 1.25 0 YY) S`=n&'  
  (COMMAND"TEXT" Y2 1.25 0 XX) \^
9pW 2v  
  (COMMAND"TEXT" X1 1.25 0 "N=") 7Re-5vz R  
  (COMMAND"TEXT" Y1 1.25 0 "E=") E4r.ky`#~  
  ) JT04vm4  
  (PROGN #,&8&  
  (setq l (* l 1.1)) \QGa4_#  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) UgC)7
K1  
  (setq p4 (list (- (car p3) 3)(cadr p2))) bG(x:Py&  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) ZZ("-#?  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) )\>r-g$  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) }%$OU =T  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) TiyUr [  
  (COMMAND"LINE" P2 P3"") F}D3,&9N  
  (COMMAND"TEXT" X22 1.25 0 YY) <4c%Q)  
  (COMMAND"TEXT" Y22 1.25 0 XX) 9*\g`fWc}{  
  (COMMAND"TEXT" XX1 1.25 0 "N=") -(9O6)Rs$  
  (COMMAND"TEXT" YY1 1.25 0 "E=") 7(Cx!Yb  
) d`Oe_<  
) #-{N Ws\  
) ($62o&I  
(DEFUN C:zb5() ?ok)>P  
(setq cc 1) =WK04\H  
(setq cc (getint "输入点编号<1>:")) s]Gd-
j  
(repeat 1000 90fs:.  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") t`YWwI.  
(command "dimzin" "0") rP'AJDuq  
(command "layer" "new" "zb_1" "")
Uyk,.*8"  
(setvar "clayer" "zb_1" ) 1`JB)9P  
(command "color" 1) \GL*0NJ  
(command "osnap" "int") ]
g,lRG  
(command "osnap" "end") zTY;8r+  
(command "osmode" 1) L^FcS\r;  
(SETQ P1 (GETPOINT"Pick the zb point:")) z)}!e,7  
(command "osmode" 0) E(4w5=8TI  
(SETQ P2 (GETPOINT P1)) CZ(`|;BC*  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) _Yq@FOu  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) O~PChUU*Y  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) I9&lO/c0  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) ?3q@f\fZ  
(SETQ XX (RTOS (CAR P1) 2 3)) n@ [  
(SETQ YY (RTOS (CADR P1) 2 3)) o=_c2m   
(SETQ L1 (STRLEN XX)) %dW%o{  
(SETQ L2 (STRLEN YY)) G\=_e8(  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) TH4\HY9qa?  
(COMMAND"LINE" P1 P2"") Ur!~<4GO  
(command "layer" "new" "zb_2" "") "^Rv#  
(setvar "clayer" "zb_2" ) f~ZEdq8  
(IF (>= (CAR P2)(CAR P1)) CU$#0f>  
  (PROGN #jA)>z\Q^  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) m`}{V5;  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) o
pp!0:jS*  
  (command"circle" p4 7"") ashar&'  
  (COMMAND"LINE" P2 P3"") XAuI7e  
  (setq bb 2.5) ?S ts
H  
  (IF (<= cc 9 )(setq bb 5)) Lm6**v  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) ->gZ)?Fqy  
  (COMMAND"TEXT" X2 5 0 YY) <)U4Xz?  
  (COMMAND"TEXT" Y2 5 0 XX) 3t"4TjAy  
  (COMMAND"TEXT" X1 5 0 "N") _<*Hv*Zm  
  (COMMAND"TEXT" Y1 5 0 "E") 6F|j(LB  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n"))
`A)"%~
  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) *Y6xvib9*  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) 41Ve}%  
  (command"text" p5 6 0 cc) , ZFE(  
  ) i9A~<
 
  (PROGN Y; ).+si  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) +L%IG  
  (setq p4 (list (- (car p3) 7)(cadr p2))) Y)|N"f;  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) z|N3G E(.@  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) fex,z%}p  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) yI3kvh  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) X.FGBR7=q  
  (COMMAND"LINE" P2 P3"") 1^G{tlA-  
  (command"circle" p4 7) c#cx>wq9  
  (setq bb 12)  P_Hv%g  
  (IF (<= cc 9 )(setq bb 8)) t ^SzqB  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) o:p *_>&  
  (COMMAND"TEXT" X22 5 0 YY) "r'ozf2\  
  (COMMAND"TEXT" Y22 5 0 XX) cg{AMeW  
  (COMMAND"TEXT" XX1 5 0 "N") ",Cr,;]  
  (COMMAND"TEXT" YY1 5 0 "E") bC6oqF'#  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) Jxl6a:  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) J'T=q/  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) V 9;[M;  
  (command"text" p5 6 0 cc) `{Tk@A_yd  
  ) pv,45z0
 
) l.+yn91%>  
(setq cc (+ cc 1)) L{fFC%|l2L  
B.dT)@Lx0  
) j\&pej  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. ne}+E  
'