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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． 7@~QkTH~y  
f9F2U )  
(DEFUN C:zb() X<FOn7qf  
(command "dimzin" "0") DZP*x  
(command "layer" "new" "zb_1" "") 0etwz3NuW  
(setvar "clayer" "zb_1" ) kjX7- ZPY  
(command "color" 1) -lnevrl   
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") %`oHemSy  
(command "osnap" "int") ~#t*pOC5BR  
(command "osnap" "end") *|poxT G  
(command "osmode" 1) \!4|tBKVY  
(SETQ P1 (GETPOINT"Pick the zb point:")) 6KB^w0oA  
(command "osmode" 0) 6Pijvx^0  
(SETQ P2 (GETPOINT P1)) Um'Ro4  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) ?\M)WDO  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) 1t#XQ?8  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) 4y>(RrVG  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) -%=RFgU4  
(SETQ XX (RTOS (CAR P1) 2 3)) `:gYXeR  
(SETQ YY (RTOS (CADR P1) 2 3)) e&ts\0  
(SETQ L1 (STRLEN XX)) 0@v
2*\D#  
(SETQ L2 (STRLEN YY)) Z>h{` X\2  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) ^
k;mn-
0  
(COMMAND"LINE" P1 P2"") 7@@<5&mN  
(command "layer" "new" "zb_2" "")
Z:c*!`F  
(setvar "clayer" "zb_2" ) \*J.\f  
(IF (>= (CAR P2)(CAR P1)) Iy.mVtcsZ  
  (PROGN ,\}k~ U99  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) _G[6+g5|  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) sL8>GtVo  
  (COMMAND"LINE" P2 P3"") L}b'+Wi@  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) + "zYn!0  
  (COMMAND"TEXT" X2 5 0 YY) kz_M;h>  
  (COMMAND"TEXT" Y2 5 0 XX) ?cJA^W  
  (COMMAND"TEXT" X1 5 0 "N") <b'1#Pd>0  
  (COMMAND"TEXT" Y1 5 0 "E") S2bexbp0o  
  ) :fW.-^"VP  
  (PROGN /]g>#J%b  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) Onyh1  
  (setq p4 (list (- (car p3) 5)(cadr p2))) {yU0D*#6  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) 4`6< {  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) v!KJ|c@m  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) [brkx3h  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) +9jivOmK  
  (COMMAND"LINE" P2 P3"") X7b!;%3@  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) UtPwWB_YV  
  (COMMAND"TEXT" X22 5 0 YY) PMY~^S4O  
  (COMMAND"TEXT" Y22 5 0 XX) %2,/jhHL  
  (COMMAND"TEXT" XX1 5 0 "N") pSXEJ 2k  
  (COMMAND"TEXT" YY1 5 0 "E") ~Q0&P!k  
  ) /wlFD,+8  
) :U8k|,~f  
) S,VyUe4P4  
(DEFUN C:zb3() ~9bv Wd1D  
(command "dimzin" "0") xlk5Gob*  
(command "layer" "new" "zb_1" "") "H
@Fe  
(setvar "clayer" "zb_1" ) Z]7tjRvq)  
(command "color" 1) _V&x`ks  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") Gj*SPU  
(command "osnap" "int") ^t7_3%%w  
(command "osnap" "end") 0yKhp:^  
(command "osmode" 1) =CEHRny  
(SETQ P1 (GETPOINT"Pick the zb point:")) 1j+eD:d'  
(command "osmode" 0) 5Vm Eyb  
(SETQ P2 (GETPOINT P1)) 8ZFH}v@V1'  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) 1B(G]o_>!  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) B9AbKK$`  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) z41D^}b  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) \Me"'.F?  
(SETQ XX (RTOS (CAR P1) 2 3)) hj+p`e S  
(SETQ YY (RTOS (CADR P1) 2 3)) k}#@8n|b  
(SETQ L1 (STRLEN XX)) g(1"GKg3K  
(SETQ L2 (STRLEN YY)) $.;iu2iyo  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) !*9FKDB{  
(COMMAND"LINE" P1 P2"") URk$}_39
 
(command "layer" "new" "zb_2" "") JLml#Pu4  
(setvar "clayer" "zb_2" ) #U:0/4P(  
(IF (>= (CAR P2)(CAR P1)) 8z?$t-DO  
  (PROGN !#C)99L"F  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) &hO$4qtN  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) A_aO}oBX  
  (COMMAND"LINE" P2 P3"") kF#{An)P  
  (COMMAND"TEXT" X2 2.5 0 YY) M`(;>Kp7  
  (COMMAND"TEXT" Y2 2.5 0 XX) ,Io0ZE>`V  
  (COMMAND"TEXT" X1 2.5 0 "N=") s* @QT8%  
  (COMMAND"TEXT" Y1 2.5 0 "E=") @PKAz&0  
  ) vu44!c@  
  (PROGN 4bE42c=Ca7  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) I{Rz,D uAL  
  (setq p4 (list (- (car p3) 3)(cadr p2))) 2UQN*_  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) <Nvlk\LQ  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) dWMccn;-m  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) \G]K,TG  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) *Gf&
q  
  (COMMAND"LINE" P2 P3"") 2lF WW(  
  (COMMAND"TEXT" X22 2.5 0 YY) y)0gJP L^  
  (COMMAND"TEXT" Y22 2.5 0 XX) :J<Owh@  
  (COMMAND"TEXT" XX1 2.5 0 "N=") BF>T*Z-Ki  
  (COMMAND"TEXT" YY1 2.5 0 "E=") AwtIWH*e  
) pz.Y=V\t  
) XadG\_?t`  
) 2m|Eoc&M_  
(DEFUN C:zb2()
B$@1QG  
(command "dimzin" "0")  PE^eP}O1  
(command "layer" "new" "zb_1" "") )8 oEs  
(setvar "clayer" "zb_1" ) .V7Y2!4TE  
(command "color" 1) kB
Q5]Q"  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ux%&lff  
(command "osnap" "int") xP XoJN  
(command "osnap" "end")  |h  
(command "osmode" 1) *Rz!i m|  
(SETQ P1 (GETPOINT"Pick the zb point:")) ^tQPJ  
(command "osmode" 0) ^ sS>Mts  
(SETQ P2 (GETPOINT P1)) "4KkKi  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) X>3i
YDe  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) ?0? x+  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) L00Sp#$\  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) 4 `j,&=  
(SETQ XX (RTOS (CAR P1) 2 3)) 6\%r6_.d  
(SETQ YY (RTOS (CADR P1) 2 3)) N'htcC  
(SETQ L1 (STRLEN XX)) M?QQr~a  
(SETQ L2 (STRLEN YY)) }_Tt1iai*  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) z]'|nX  
(COMMAND"LINE" P1 P2"") b0!*mrF]6  
(command "layer" "new" "zb_2" "") ?T tQZ  
(setvar "clayer" "zb_2" ) 5w]DncdQ~  
(IF (>= (CAR P2)(CAR P1)) Z83q-  
  (PROGN ^qE<yn  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) #(m`2Z`H  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 'm  
  (COMMAND"LINE" P2 P3"") (xI)"{   
  (COMMAND"TEXT" X2 1.25 0 YY) VFQq`!*i  
  (COMMAND"TEXT" Y2 1.25 0 XX) x8\E~6`,  
  (COMMAND"TEXT" X1 1.25 0 "N=") iK$Vd+Lgc  
  (COMMAND"TEXT" Y1 1.25 0 "E=") er&uC4Y]a  
  ) ORUWslMt  
  (PROGN >lUBt5gU  
  (setq l (* l 1.1)) n$XMsl.>  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) LsuAOB 8  
  (setq p4 (list (- (car p3) 3)(cadr p2))) !l sy&6  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) yBpW#1=  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) W@R$'r,@O  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) QC$=Fs5+  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) QCZ,K"y  
  (COMMAND"LINE" P2 P3"") Km|9Too  
  (COMMAND"TEXT" X22 1.25 0 YY) 23(B43zy  
  (COMMAND"TEXT" Y22 1.25 0 XX) GN"M:L^k`  
  (COMMAND"TEXT" XX1 1.25 0 "N=") Z!q2F%02FO  
  (COMMAND"TEXT" YY1 1.25 0 "E=") IKNFYe[9e  
) .=
.yZ  
) {hkM*:U  
) T%M1[<"Q  
(DEFUN C:zb5() (mD-FR@#  
(setq cc 1) 4d{"S02h  
(setq cc (getint "输入点编号<1>:")) DDqC}l_  
(repeat 1000 WLg6-@kxXs  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") jhjW*F<u  
(command "dimzin" "0") hP'
~  
(command "layer" "new" "zb_1" "") +G3nn!gl4  
(setvar "clayer" "zb_1" ) 9,Crmbw8  
(command "color" 1) BN<#x@m$]  
(command "osnap" "int") rCnV5Yb0O  
(command "osnap" "end") T! &[  
(command "osmode" 1) &0;{lS[N:L  
(SETQ P1 (GETPOINT"Pick the zb point:")) 
,kGw;8X  
(command "osmode" 0) [[Jv)?jm  
(SETQ P2 (GETPOINT P1)) o$[a4I  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) T U"K#V&u  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) _qO;{%r  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) v*C+U$_3\1  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) y]~+`9  
(SETQ XX (RTOS (CAR P1) 2 3)) DK#65H'  
(SETQ YY (RTOS (CADR P1) 2 3)) ihpz}
g  
(SETQ L1 (STRLEN XX)) `? 9]'  
(SETQ L2 (STRLEN YY)) #z-iL!?  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) u8{@PlS  
(COMMAND"LINE" P1 P2"") YoSo0fQA  
(command "layer" "new" "zb_2" "") }`+^|1  
(setvar "clayer" "zb_2" ) S*2L4Uj`|  
(IF (>= (CAR P2)(CAR P1)) i
OX4Kl  
  (PROGN YW4bm  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) 1pYmtr  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) ,q'gG`M N  
  (command"circle" p4 7"") 34++Rr [G  
  (COMMAND"LINE" P2 P3"") XNkQk0i;g&  
  (setq bb 2.5) Cn6n4, 0  
  (IF (<= cc 9 )(setq bb 5)) ,oBk>  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) u~naVX\3b  
  (COMMAND"TEXT" X2 5 0 YY) %>I?'y^  
  (COMMAND"TEXT" Y2 5 0 XX) clR?< LO  
  (COMMAND"TEXT" X1 5 0 "N") \>aa8LOe  
  (COMMAND"TEXT" Y1 5 0 "E") R%]9y]HQ  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) WIH4Aw  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) 1 o  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) Xn ZX *Y]"  
  (command"text" p5 6 0 cc) 4$q)e<-  
  ) \@ WsF$  
  (PROGN #(26t _a  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) m_r@t*  
  (setq p4 (list (- (car p3) 7)(cadr p2))) r0hta)xa  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) <x>k
3bD  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) "Dmw-  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) 0$F _hZU  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) 2EqsfU* I  
  (COMMAND"LINE" P2 P3"") +s*l#'Q  
  (command"circle" p4 7) %1 VNP(E  
  (setq bb 12) &
"r==A?  
  (IF (<= cc 9 )(setq bb 8)) z6L>!=  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) Dbkuh!R  
  (COMMAND"TEXT" X22 5 0 YY)  n_xa)  
  (COMMAND"TEXT" Y22 5 0 XX) 5u u2 _B_L  
  (COMMAND"TEXT" XX1 5 0 "N") ;I`,ZKY  
  (COMMAND"TEXT" YY1 5 0 "E") C9z~)aL}7  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) 6b+ WlIb  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) e8P!/x-y  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) LBbo.KxAe3  
  (command"text" p5 6 0 cc) ;f ;*Q>!  
  ) wk@(CKQzI,  
) gqJEJ~  
(setq cc (+ cc 1)) @6i8RmOu}  

K+`-[v5\  
) .1[2 CjQ  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. Uc4L|:  
'