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

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

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

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

这个可以叫软件开发商改进的。 [iB`- dE,  
另外，楼主用Excel软件制作了一个录入界面，不知道能否共享出来？

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． ,I# X[^/  
Byq4PX%B  
(DEFUN C:zb() 3%c{eZxG=  
(command "dimzin" "0") Ck
<g0o6  
(command "layer" "new" "zb_1" "") MHZ!noAr  
(setvar "clayer" "zb_1" ) bj)dYjf  
(command "color" 1) wbg_%h:  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ^@V$'Bk  
(command "osnap" "int") ^}nz^+R  
(command "osnap" "end")
k\,01
Y^  
(command "osmode" 1) A'(v]w  
(SETQ P1 (GETPOINT"Pick the zb point:")) ^]Mlkd:  
(command "osmode" 0) 7I.7%m,g  
(SETQ P2 (GETPOINT P1)) 5<1,`Bq@  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) 1%W|>M`  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) oB$7m4xO\  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) k8]=5C?k  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) |4RuT .-o  
(SETQ XX (RTOS (CAR P1) 2 3)) &Z Ja}5k!r  
(SETQ YY (RTOS (CADR P1) 2 3)) erG@8CG  
(SETQ L1 (STRLEN XX)) 6uW
zv~!*D  
(SETQ L2 (STRLEN YY)) pMJK?- )  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) 9AJMm1_  
(COMMAND"LINE" P1 P2"") }M%U}k]+@  
(command "layer" "new" "zb_2" "") \g|u|Y.2[  
(setvar "clayer" "zb_2" ) 8'c_&\kdv  
(IF (>= (CAR P2)(CAR P1)) z>_jC+  
  (PROGN $'M:H
_T  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) c o}o$}  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) VeT\I.K[  
  (COMMAND"LINE" P2 P3"") C/nzlp~
 
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) bvM\Qzc!<3  
  (COMMAND"TEXT" X2 5 0 YY) 8!e1T,:b  
  (COMMAND"TEXT" Y2 5 0 XX) q r12"H  
  (COMMAND"TEXT" X1 5 0 "N") Y>eypfK"  
  (COMMAND"TEXT" Y1 5 0 "E") F,B,D^WD  
  ) B5%N@g$`j  
  (PROGN DFvLCGkDk  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) q!l[^t|;  
  (setq p4 (list (- (car p3) 5)(cadr p2))) mRIW9V  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) G(piq4D  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) C`|'+  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) 4BSSJ@z  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) N?j,'gy4  
  (COMMAND"LINE" P2 P3"") w`~j(
G4N  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) nr/^HjMV  
  (COMMAND"TEXT" X22 5 0 YY) 71GLqn?  
  (COMMAND"TEXT" Y22 5 0 XX) g2 dvs  
  (COMMAND"TEXT" XX1 5 0 "N") 'IrwlS  
  (COMMAND"TEXT" YY1 5 0 "E") v6{qKpU#  
  ) lqC a%V  
) "WKE%f  
) m<ZwbD  
(DEFUN C:zb3() 0q_Ol]<V  
(command "dimzin" "0") <fY<.X  
(command "layer" "new" "zb_1" "") E%L]ifA9!  
(setvar "clayer" "zb_1" ) 8YI.f  
(command "color" 1) V+A1O k)  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") VN=S&iBa/  
(command "osnap" "int") >j]*=&,7  
(command "osnap" "end") ,
"/<N*vh  
(command "osmode" 1) 0-dhGh?.  
(SETQ P1 (GETPOINT"Pick the zb point:")) 'c#ZW|A  
(command "osmode" 0) TI-#\v9  
(SETQ P2 (GETPOINT P1)) n*\AB=|X  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) yQQ[_1$pq  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) Zxw>|eKI>D  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) h#bpog  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) H >@yC  
(SETQ XX (RTOS (CAR P1) 2 3)) -Kt36:|  
(SETQ YY (RTOS (CADR P1) 2 3)) MI[=,0`D  
(SETQ L1 (STRLEN XX)) Xg#g`m%(M  
(SETQ L2 (STRLEN YY)) yc,Qz.+g  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) u(KeS`  
(COMMAND"LINE" P1 P2"") B1@c`BJ;9T  
(command "layer" "new" "zb_2" "") D]+tr%  
(setvar "clayer" "zb_2" ) 7`3he8@ze  
(IF (>= (CAR P2)(CAR P1)) ;FYiXK%  
  (PROGN QsYc 9]:  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) O
2{_:B>K[  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) `
nMHuv  
  (COMMAND"LINE" P2 P3"") r]1|I6:&)  
  (COMMAND"TEXT" X2 2.5 0 YY) o?P(Fuf  
  (COMMAND"TEXT" Y2 2.5 0 XX) $UlA_l29  
  (COMMAND"TEXT" X1 2.5 0 "N=") tq9t(0EL  
  (COMMAND"TEXT" Y1 2.5 0 "E=") 8<u_ wt@  
  ) whP>'9t.w  
  (PROGN {pUOu8`Z  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) wxPg*R+t  
  (setq p4 (list (- (car p3) 3)(cadr p2))) .a:Oj3=0  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) yS/ovd  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) D@H'8C\  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) rS9*_-NH  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) Uc e#v)  
  (COMMAND"LINE" P2 P3"") 0-Xpq,0  
  (COMMAND"TEXT" X22 2.5 0 YY) &..![,)w^!  
  (COMMAND"TEXT" Y22 2.5 0 XX) hD\C[C,  
  (COMMAND"TEXT" XX1 2.5 0 "N=") /B!"\0G/,  
  (COMMAND"TEXT" YY1 2.5 0 "E=") r2QC$V:0  
) S5RS?ya  
) 2q# t/oN3T  
) F!{N4X>%T  
(DEFUN C:zb2() (JFa  
(command "dimzin" "0") cd}TDd(H%  
(command "layer" "new" "zb_1" "") pCf-W/v  
(setvar "clayer" "zb_1" ) `A80""y:M  
(command "color" 1) rjU $*+  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 'rf='Y  
(command "osnap" "int") O3*Vilx  
(command "osnap" "end") 13A11XTp  
(command "osmode" 1) fE)+9!  
(SETQ P1 (GETPOINT"Pick the zb point:")) Yl1@gw7  
(command "osmode" 0) 7 pg8kq@  
(SETQ P2 (GETPOINT P1)) Uk ?V7?&  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) 5n.4>yOY  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) )+w0NhJw  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) >C_! }~  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) wSIt"g,%  
(SETQ XX (RTOS (CAR P1) 2 3)) O\OG~`HBN  
(SETQ YY (RTOS (CADR P1) 2 3)) Ltcr]T(Ic  
(SETQ L1 (STRLEN XX)) @t
jC{?5Y  
(SETQ L2 (STRLEN YY)) \@OKB<ra  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) ycw'>W3.*  
(COMMAND"LINE" P1 P2"") Q8Usyc'3  
(command "layer" "new" "zb_2" "") 21cB_"  
(setvar "clayer" "zb_2" ) ?vf{v  
(IF (>= (CAR P2)(CAR P1)) r~nrP=-%  
  (PROGN "_
'9KBd!  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) xKsn);].`  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) :'GTCo$3  
  (COMMAND"LINE" P2 P3"") |c8p{)  
  (COMMAND"TEXT" X2 1.25 0 YY) >!? f6 {\|  
  (COMMAND"TEXT" Y2 1.25 0 XX) 8qBRO[  
  (COMMAND"TEXT" X1 1.25 0 "N=") #_7}O0?c3  
  (COMMAND"TEXT" Y1 1.25 0 "E=") vR1%&(f{  
  ) RWTv,pLK  
  (PROGN oF V9t{~j  
  (setq l (* l 1.1)) {br4B7b  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) .(9IAAwKn  
  (setq p4 (list (- (car p3) 3)(cadr p2))) [Z Ea3/  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) :Np&G4IM>  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) ~n"V0!:'4  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) Kt}dTpVFr  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) >)N,V;j  
  (COMMAND"LINE" P2 P3"") `34[w=Zm  
  (COMMAND"TEXT" X22 1.25 0 YY) LZ&CGV"Z-  
  (COMMAND"TEXT" Y22 1.25 0 XX) m/Yi;>I(  
  (COMMAND"TEXT" XX1 1.25 0 "N=") 8Yq6I>@!  
  (COMMAND"TEXT" YY1 1.25 0 "E=") &B3\;|\  
) WHAEB1c#Q  
) ^@X =v`C  
) NX)7g}S  
(DEFUN C:zb5() E?Q=#+}U  
(setq cc 1) {2Gp+
&  
(setq cc (getint "输入点编号<1>:")) t4s}w$4  
(repeat 1000  ]g?G0m  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") Mm.!$uR  
(command "dimzin" "0") , is
.{y  
(command "layer" "new" "zb_1" "") ={maCYlE.  
(setvar "clayer" "zb_1" ) W97Ka}Y  
(command "color" 1) 5-u=ZB%p  
(command "osnap" "int") &2?kD{  
(command "osnap" "end") y ImriCT  
(command "osmode" 1) T/S-}|fhQ  
(SETQ P1 (GETPOINT"Pick the zb point:")) :^iR&`2~  
(command "osmode" 0) >b*P
d *f  
(SETQ P2 (GETPOINT P1)) $a5K  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) y'pG'"U]_  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) 3Q`'C7Pi  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) ^Gs!"Y  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) a+]=3o  
(SETQ XX (RTOS (CAR P1) 2 3)) =:a3cr~  
(SETQ YY (RTOS (CADR P1) 2 3)) HM[BFF[;/  
(SETQ L1 (STRLEN XX)) %8{' XJ!  
(SETQ L2 (STRLEN YY)) $g|g}>Sc  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) iv;;GW{2  
(COMMAND"LINE" P1 P2"")  pd X9G  
(command "layer" "new" "zb_2" "") ^O892
-R  
(setvar "clayer" "zb_2" ) ~=c
^Oo:  
(IF (>= (CAR P2)(CAR P1)) P$4?-AZ  
  (PROGN n}MG  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) 3*arW|Xm  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) U}Hmzb  
  (command"circle" p4 7"") Q_uv.\*z_  
  (COMMAND"LINE" P2 P3"") ,hOJe=u46  
  (setq bb 2.5) VJr?` eY4  
  (IF (<= cc 9 )(setq bb 5)) 23+GX&Rp  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) o)-Qd3d%S  
  (COMMAND"TEXT" X2 5 0 YY) 6K<vyr40  
  (COMMAND"TEXT" Y2 5 0 XX) L YH9P-5H  
  (COMMAND"TEXT" X1 5 0 "N") * rs_k/2(  
  (COMMAND"TEXT" Y1 5 0 "E") UJ6WrO5#kB  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) ~kN6Hr*X  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) N+}yw4lb  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) m&
ZdtB|  
  (command"text" p5 6 0 cc) C8G['aQ  
  ) B
q@G@Qi  
  (PROGN Q6vkqu5!=  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) .)W8 U [  
  (setq p4 (list (- (car p3) 7)(cadr p2))) n7{c0;)$  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) }l[t0C t  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) g" M1HxlV  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) a<\m` Es=  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) Jn:GqO  
  (COMMAND"LINE" P2 P3"") Vx#xq#wK  
  (command"circle" p4 7) ,%ajIs"Gi  
  (setq bb 12) 7x1jpQ-  
  (IF (<= cc 9 )(setq bb 8)) 14^t{  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) V25u'.'v  
  (COMMAND"TEXT" X22 5 0 YY) IPT}JX'  
  (COMMAND"TEXT" Y22 5 0 XX) OK2wxf  
  (COMMAND"TEXT" XX1 5 0 "N") m
$O@+;>l  
  (COMMAND"TEXT" YY1 5 0 "E") (cCB3n\20  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) +5T0]!  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) DsFrA]  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) ;CU3CLn  
  (command"text" p5 6 0 cc) %l5J   
  ) 52%.^/  
) ;#j/F]xG  
(setq cc (+ cc 1)) Crey}A/N  
)T2Sw
z/  
) )I5f`r=Ry  
)

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

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