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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． Ej|A ; &E  
KnFQ)sX^  
(DEFUN C:zb() AP ;
*iyQ[  
(command "dimzin" "0") )KE_t^$  
(command "layer" "new" "zb_1" "") 6J;i,/ky  
(setvar "clayer" "zb_1" ) <_f`$z  
(command "color" 1) (j=DD6fC  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") lWlUWhLnP  
(command "osnap" "int") 5Jw"{V?Ak  
(command "osnap" "end") wWFW,3b  
(command "osmode" 1) "GLYyC  
(SETQ P1 (GETPOINT"Pick the zb point:")) 2H>aC wfX  
(command "osmode" 0) =~$U^IsWA  
(SETQ P2 (GETPOINT P1)) 8GW ut=D  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) 54wM8'+  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) P#F_>GB  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) \6LcVik  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) S[.5n]  
(SETQ XX (RTOS (CAR P1) 2 3)) 7%YYr^d  
(SETQ YY (RTOS (CADR P1) 2 3)) qSR?,G  
(SETQ L1 (STRLEN XX)) E- KK  
(SETQ L2 (STRLEN YY)) xiJz`KD&  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) voH4  
(COMMAND"LINE" P1 P2"") h=Oh9zsz8  
(command "layer" "new" "zb_2" "") tgfM:kzw  
(setvar "clayer" "zb_2" ) 'XEK&Yi1  
(IF (>= (CAR P2)(CAR P1)) `~|DoSi^d  
  (PROGN x57'Cg \  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) -g<cinNSp  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) ?.~]mvOR  
  (COMMAND"LINE" P2 P3"") rBS2>?  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) 9g4QVo|  
  (COMMAND"TEXT" X2 5 0 YY) BM.-X7)  
  (COMMAND"TEXT" Y2 5 0 XX) Kj=;>u  
  (COMMAND"TEXT" X1 5 0 "N") sD
.6"w7}  
  (COMMAND"TEXT" Y1 5 0 "E") ^xmZ|f-  
  ) B'!PJj  
  (PROGN
Xv8fPP(  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) a2[8wv1  
  (setq p4 (list (- (car p3) 5)(cadr p2))) v=j>^FZ  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) q?1yE@th  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) 4 ;^g MI9  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1)))
n~9 i^  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) _>;&-e  
  (COMMAND"LINE" P2 P3"") FBcm;cjH  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) df!+T0  
  (COMMAND"TEXT" X22 5 0 YY) }]tFz}E\  
  (COMMAND"TEXT" Y22 5 0 XX) H kSL5@  
  (COMMAND"TEXT" XX1 5 0 "N") G^ K*+  
  (COMMAND"TEXT" YY1 5 0 "E") >QA/Mi~R  
  ) HqB|SWyK  
) z( *]'Y  
) t2Ip\>;9f  
(DEFUN C:zb3() |x*{fXdMhr  
(command "dimzin" "0") {WIY8B'c  
(command "layer" "new" "zb_1" "") NYGmLbq  
(setvar "clayer" "zb_1" ) l&vm[3  
(command "color" 1) Q +R3H
,  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") `D4oAx d9  
(command "osnap" "int") (21']x  
(command "osnap" "end") ,9F*96  
(command "osmode" 1) keqr%:E8  
(SETQ P1 (GETPOINT"Pick the zb point:")) 5XI;<^n2  
(command "osmode" 0)  4c  
(SETQ P2 (GETPOINT P1)) C{DlcZ<  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) te4F"SEf  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) /rn"  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) U.HoFf+HN  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) @<
wYT$  
(SETQ XX (RTOS (CAR P1) 2 3)) mJSK; @w<O  
(SETQ YY (RTOS (CADR P1) 2 3)) n9N#&Q"7m  
(SETQ L1 (STRLEN XX)) Cc@=?  
(SETQ L2 (STRLEN YY)) UwZu:[T6H  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) E"G:K`Q  
(COMMAND"LINE" P1 P2"") B>{|'z?%>  
(command "layer" "new" "zb_2" "") _{[k[]  
(setvar "clayer" "zb_2" ) w/?nUp  
(IF (>= (CAR P2)(CAR P1)) =X)Q7u".7  
  (PROGN )!'Fa_$ e  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) dMey/A/VYt  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 0m]~J_  
  (COMMAND"LINE" P2 P3"") m(8jSGV  
  (COMMAND"TEXT" X2 2.5 0 YY) )GB3=@  
  (COMMAND"TEXT" Y2 2.5 0 XX) ^fFtI?.6jI  
  (COMMAND"TEXT" X1 2.5 0 "N=") cWgbd^J  
  (COMMAND"TEXT" Y1 2.5 0 "E=") _!CK   
  ) $&ex\_W  
  (PROGN \Oi5=,  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) DZ%g^D
RZX  
  (setq p4 (list (- (car p3) 3)(cadr p2))) !w @1!Xpn1  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) b24NL'jm  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) ,Wz[tYL*  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) FE0qw1{qQ  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) |h#D
L$  
  (COMMAND"LINE" P2 P3"") Y1$#KC  
  (COMMAND"TEXT" X22 2.5 0 YY) w{_e"N  
  (COMMAND"TEXT" Y22 2.5 0 XX) V}vl2o
  
  (COMMAND"TEXT" XX1 2.5 0 "N=") %E4$ZPSW  
  (COMMAND"TEXT" YY1 2.5 0 "E=") ?l)}
E  
) yq/[/*7^  
) LFk5rv'sM0  
) w/lXZg  
(DEFUN C:zb2() P@gu~!  
(command "dimzin" "0") K*([9VZ  
(command "layer" "new" "zb_1" "") wJapGc!   
(setvar "clayer" "zb_1" ) ^2&O3s
  
(command "color" 1) Y|hzF:ll  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") {B'Gm]4  
(command "osnap" "int") ki[;ZmQqY  
(command "osnap" "end") yRgDhA  
(command "osmode" 1) NYSj^k;^(z  
(SETQ P1 (GETPOINT"Pick the zb point:")) L#t-KLJ  
(command "osmode" 0) sDzD 8as  
(SETQ P2 (GETPOINT P1)) !~Hafn-1  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) xHM&csL  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) ?c|`R1D  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) '0'"k2"vC  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) "@c';".|  
(SETQ XX (RTOS (CAR P1) 2 3)) v`z=OHc  
(SETQ YY (RTOS (CADR P1) 2 3)) b9
W<1eqF  
(SETQ L1 (STRLEN XX)) @&~OB/7B:  
(SETQ L2 (STRLEN YY)) 5~`|)~FA  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) +XU$GSw3(  
(COMMAND"LINE" P1 P2"") 902!M65[rG  
(command "layer" "new" "zb_2" "") eZ8Y"i\!y  
(setvar "clayer" "zb_2" ) EWuiaw.  
(IF (>= (CAR P2)(CAR P1)) Z4wrXss~  
  (PROGN ZaukMEq  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) .d#G]8suF  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) vOvxQS}dBp  
  (COMMAND"LINE" P2 P3"") ^Ff~j&L@{  
  (COMMAND"TEXT" X2 1.25 0 YY) bWX[<rh'  
  (COMMAND"TEXT" Y2 1.25 0 XX) ="#:=i]  
  (COMMAND"TEXT" X1 1.25 0 "N=") Lyf? V(S  
  (COMMAND"TEXT" Y1 1.25 0 "E=") g9FVb7In_  
  ) 9a"Y,1  
  (PROGN \dp9@y[^  
  (setq l (* l 1.1)) aIn)']  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) 4'}_qAT  
  (setq p4 (list (- (car p3) 3)(cadr p2))) S5*~r@8h  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) Ab^>z  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) p5twL  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) Qq;m"M/  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) 6*(h9!_T1  
  (COMMAND"LINE" P2 P3"") ^B&ahk  
  (COMMAND"TEXT" X22 1.25 0 YY) {E3<GeHw4  
  (COMMAND"TEXT" Y22 1.25 0 XX) c]g<XVI  
  (COMMAND"TEXT" XX1 1.25 0 "N=") yVmtsQ-}a  
  (COMMAND"TEXT" YY1 1.25 0 "E=") W[1f]w3  
) |`q)/ 08b  
) JEm?26n X  
) .^)C:XiW  
(DEFUN C:zb5() .qb_/#Bas  
(setq cc 1) ^?K?\  
(setq cc (getint "输入点编号<1>:")) |ZST Y}RXA  
(repeat 1000 Gw\G+T?M-  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") SSL%$:l@  
(command "dimzin" "0") RIVL 0Ig  
(command "layer" "new" "zb_1" "") #T$'.M  
(setvar "clayer" "zb_1" ) Il&"=LooZ  
(command "color" 1) :~0^ib<v;  
(command "osnap" "int") "j.oR}s9?#  
(command "osnap" "end") ;)=zvr17  
(command "osmode" 1) (4{@oM#H6  
(SETQ P1 (GETPOINT"Pick the zb point:")) }VGI Y>v  
(command "osmode" 0) '^-4{Y^2E  
(SETQ P2 (GETPOINT P1)) +EiUAs~H  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) bWC~Hv  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) FkxhEat8  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1)))  'QekQ];  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) u\1Wkxj  
(SETQ XX (RTOS (CAR P1) 2 3)) \\R*V'e!  
(SETQ YY (RTOS (CADR P1) 2 3)) f@;>M9)<  
(SETQ L1 (STRLEN XX)) #*>7X>,J  
(SETQ L2 (STRLEN YY)) P^_d$  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) z)<pqN  
(COMMAND"LINE" P1 P2"") !s[j1=y  
(command "layer" "new" "zb_2" "") YCB 3  
(setvar "clayer" "zb_2" ) jB/q1vFO  
(IF (>= (CAR P2)(CAR P1)) GdfKxSO  
  (PROGN kq1M<lk  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) m)[wZP*e  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) R/Dy05nloe  
  (command"circle" p4 7"") s=y9!rr  
  (COMMAND"LINE" P2 P3"") 7AtXG^lK  
  (setq bb 2.5) Z_OqXo=  
  (IF (<= cc 9 )(setq bb 5)) |H+k?C-w  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) 4G;`KqR@  
  (COMMAND"TEXT" X2 5 0 YY) vu.S>2Wv  
  (COMMAND"TEXT" Y2 5 0 XX) rD(ep~^M  
  (COMMAND"TEXT" X1 5 0 "N") .J6j"  
  (COMMAND"TEXT" Y1 5 0 "E") d
$?n6|4  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) Alk* "p  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) I|3v&E1  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) _7j/[  
  (command"text" p5 6 0 cc) Uhx2 _  
  ) JmJ,~_  
  (PROGN C@?e`=9(  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) BE2\?q-  
  (setq p4 (list (- (car p3) 7)(cadr p2))) FO'. a  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) LWb}) #E  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) ]kplb0`  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) |C2.Zay  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) n%ArA])_&  
  (COMMAND"LINE" P2 P3"") U5ud?z()OA  
  (command"circle" p4 7) vVN[bD<  
  (setq bb 12) eUw;!Du  
  (IF (<= cc 9 )(setq bb 8)) ]MA)='~  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) ,cO)Sxj  
  (COMMAND"TEXT" X22 5 0 YY) 'm!11Phe  
  (COMMAND"TEXT" Y22 5 0 XX) |xgCV@  
  (COMMAND"TEXT" XX1 5 0 "N") k;:u| s8NS  
  (COMMAND"TEXT" YY1 5 0 "E") MdoWqpC  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) x#gmliF  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) D>x'3WYR  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) "
$"mWF-  
  (command"text" p5 6 0 cc) K~ /V  
  ) c%3 @J+z  
) \-iUuHP  
(setq cc (+ cc 1)) S| -{wC%  
rnBeL _8C  
) !/(}meZj  
)

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

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