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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． )cRHt:  
Jj[3rt?8  
(DEFUN C:zb() }NwmZw>_  
(command "dimzin" "0") QxE%C  
(command "layer" "new" "zb_1" "") ,&4 [`d  
(setvar "clayer" "zb_1" ) EiC["M'}  
(command "color" 1) `Zo5!"'  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") #aC&!Rei{  
(command "osnap" "int") m`fdf>gWp  
(command "osnap" "end") 6x(b/`VW  
(command "osmode" 1) q1 q~%+Jy  
(SETQ P1 (GETPOINT"Pick the zb point:")) CPNV\qCY  
(command "osmode" 0) 85io%>&0  
(SETQ P2 (GETPOINT P1)) KYB3n85 1  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) B&X)bGx8  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) um]*nXIr  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1)))
|>U<EtA"  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) |>j^$^l~  
(SETQ XX (RTOS (CAR P1) 2 3)) g~K-'Nw  
(SETQ YY (RTOS (CADR P1) 2 3)) 8q9^  
(SETQ L1 (STRLEN XX)) W3\+51P  
(SETQ L2 (STRLEN YY)) |n,O!29  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) OI)k0t^;D  
(COMMAND"LINE" P1 P2"") '!Va9m*w7  
(command "layer" "new" "zb_2" "") l>`S<rGe  
(setvar "clayer" "zb_2" ) xP1D 9   
(IF (>= (CAR P2)(CAR P1)) av(qV$2  
  (PROGN jzDPn<WQ  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) AX@bM  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) E.:eO??g  
  (COMMAND"LINE" P2 P3"") md{1Jn"  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) |Zn,|-iW  
  (COMMAND"TEXT" X2 5 0 YY) UVi9}zr  
  (COMMAND"TEXT" Y2 5 0 XX) kH0kf-4\  
  (COMMAND"TEXT" X1 5 0 "N") ;+f(1=x  
  (COMMAND"TEXT" Y1 5 0 "E") :X9;KoJl-V  
  ) U/U_q-z]  
  (PROGN O>rz+8T  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) %:l\Vhhz  
  (setq p4 (list (- (car p3) 5)(cadr p2))) Sb?v5  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) mrE>o!  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) d<\
X)-"  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) uh)f/)6  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) w{;bvq%lY  
  (COMMAND"LINE" P2 P3"") vy5{Vm".4  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) }VH`\g}  
  (COMMAND"TEXT" X22 5 0 YY) 3WkrG.$[b  
  (COMMAND"TEXT" Y22 5 0 XX) PL\4\dXB  
  (COMMAND"TEXT" XX1 5 0 "N") 0_>1CW+X  
  (COMMAND"TEXT" YY1 5 0 "E") V^G+_#@,,  
  ) 2+(SR.oGq  
) W}(xE?9&  
) W-RshZ\  
(DEFUN C:zb3() uZ1G,9  
(command "dimzin" "0") R^I4_ZA  
(command "layer" "new" "zb_1" "") I%{D5.du  
(setvar "clayer" "zb_1" ) ,+n{xI2  
(command "color" 1) G"yhu +  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") g( eA?  
(command "osnap" "int") XH
uHbriI  
(command "osnap" "end") 1@]gBv<  
(command "osmode" 1) 1G,'  
(SETQ P1 (GETPOINT"Pick the zb point:")) <m`Os2#  
(command "osmode" 0) Mm"0Ip2"  
(SETQ P2 (GETPOINT P1)) Z +}# Ic  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) ]CnT4[f!  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) z{> )'A/  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) [py/\zkn  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) !| GD8i  
(SETQ XX (RTOS (CAR P1) 2 3)) t_X=x`f  
(SETQ YY (RTOS (CADR P1) 2 3)) Kzfy0LWM  
(SETQ L1 (STRLEN XX)) ^''3}<Ep  
(SETQ L2 (STRLEN YY)) 8g_GXtn(z  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) y=y#*yn&  
(COMMAND"LINE" P1 P2"") 7tT L,Nxe  
(command "layer" "new" "zb_2" "") P.t7_v>  
(setvar "clayer" "zb_2" ) ^MZ9Zu_  
(IF (>= (CAR P2)(CAR P1)) i'Q 4touy  
  (PROGN /(ArA=#  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) %Zu+=IZ  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) hKK"D:?PRs  
  (COMMAND"LINE" P2 P3"") &>auW}r  
  (COMMAND"TEXT" X2 2.5 0 YY) V@ph.)z  
  (COMMAND"TEXT" Y2 2.5 0 XX) W(*?rA-PP  
  (COMMAND"TEXT" X1 2.5 0 "N=") >R6>*|~S  
  (COMMAND"TEXT" Y1 2.5 0 "E=") y"0!7^  
  ) +@C|u'  
  (PROGN s\1c.  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) '%A*Z,f  
  (setq p4 (list (- (car p3) 3)(cadr p2))) nR$Q~`  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) #>\8m+h 9  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) &uTK@ G+  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) &f>1/"lnd\  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) :j#Fq d[DF  
  (COMMAND"LINE" P2 P3"") _"";SqVB  
  (COMMAND"TEXT" X22 2.5 0 YY) >9]i#So^  
  (COMMAND"TEXT" Y22 2.5 0 XX) #]o#~:S=  
  (COMMAND"TEXT" XX1 2.5 0 "N=") Wp$'#HhB  
  (COMMAND"TEXT" YY1 2.5 0 "E=") :E9@9>3S  
) c3aF lxW  
) 6Y
x/m  
) lMBXD?,,J  
(DEFUN C:zb2() pSJc.j  
(command "dimzin" "0") ob.=QQQs  
(command "layer" "new" "zb_1" "") Z\M8DZW8Y  
(setvar "clayer" "zb_1" ) Bso3Z ^X.  
(command "color" 1) HOAgRhzE  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") , 8F(R%v  
(command "osnap" "int") 41`&/9:"_M  
(command "osnap" "end")
q--;5"=S  
(command "osmode" 1) yY42+%P  
(SETQ P1 (GETPOINT"Pick the zb point:")) 09u@
-  
(command "osmode" 0) |;_uN q9  
(SETQ P2 (GETPOINT P1)) ;O7<lF\7o  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) R k).D6  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) <O?UC/$)7  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) )`.'QW  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) f"G?#dW/1  
(SETQ XX (RTOS (CAR P1) 2 3)) U#!f^@&AB  
(SETQ YY (RTOS (CADR P1) 2 3)) v81H!c.*  
(SETQ L1 (STRLEN XX)) ENi@R\
p
 
(SETQ L2 (STRLEN YY)) 7Z<ba^
r}  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) kMLWF  
(COMMAND"LINE" P1 P2"") As7Y4w*+  
(command "layer" "new" "zb_2" "") ]RJcY1  
(setvar "clayer" "zb_2" ) <);Nc1  
(IF (>= (CAR P2)(CAR P1)) `by\@xQ)  
  (PROGN ]2P*Z6Az  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) +8AGs,  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 4U;6 2 jq  
  (COMMAND"LINE" P2 P3"") dLMKfh/4Q  
  (COMMAND"TEXT" X2 1.25 0 YY) jQs"8[=s  
  (COMMAND"TEXT" Y2 1.25 0 XX) !4f0VQI  
  (COMMAND"TEXT" X1 1.25 0 "N=") }XiV$[xHd  
  (COMMAND"TEXT" Y1 1.25 0 "E=") 24 i00s|#  
  ) fc#zhp5bX  
  (PROGN \We\*7^E  
  (setq l (* l 1.1)) *h>KeIB;  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) ZsP
T!l,  
  (setq p4 (list (- (car p3) 3)(cadr p2))) jLs-
v  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) Y&Sk/8  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) /i#~#Bn|  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) Xn'{g  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) ,NQucp  
  (COMMAND"LINE" P2 P3"") 1 f;k)x  
  (COMMAND"TEXT" X22 1.25 0 YY) D^knN-nZ*  
  (COMMAND"TEXT" Y22 1.25 0 XX) O!D0hW4  
  (COMMAND"TEXT" XX1 1.25 0 "N=") ljij/C=  
  (COMMAND"TEXT" YY1 1.25 0 "E=") (*Jcx:rH  
) H7KcP
N(0  
) Qf|=xV,F  
) KU> $=Rd  
(DEFUN C:zb5() aD1G\*AFJ  
(setq cc 1) 0OndSa,  
(setq cc (getint "输入点编号<1>:")) lIg;>|'Z5&  
(repeat 1000 0P<b
S?e<l  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") xi.L?"^/!  
(command "dimzin" "0") MW^,l=kqW)  
(command "layer" "new" "zb_1" "") ^f-?xXPx  
(setvar "clayer" "zb_1" ) +|N!(H  
(command "color" 1) #l6L7u0~wC  
(command "osnap" "int") ]e'Ol$3U9=  
(command "osnap" "end") *.UM[Wo  
(command "osmode" 1) \)=X=yn2  
(SETQ P1 (GETPOINT"Pick the zb point:")) _Kp{
b"G  
(command "osmode" 0) p1 9j  
(SETQ P2 (GETPOINT P1)) uj_ OWre  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) LP8Stj JP  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) t UJ m}+=>  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) MjAF&bD^  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) J?WT  
(SETQ XX (RTOS (CAR P1) 2 3)) 0B^0,d(s  
(SETQ YY (RTOS (CADR P1) 2 3)) 8$:4~:]/  
(SETQ L1 (STRLEN XX)) P~V0<$C  
(SETQ L2 (STRLEN YY)) ]OE{qXr{  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) I@l'Fx  
(COMMAND"LINE" P1 P2"") ZqHh$QBD 9  
(command "layer" "new" "zb_2" "") Ng?n}$g*  
(setvar "clayer" "zb_2" ) tK3.HvD  
(IF (>= (CAR P2)(CAR P1)) )S
MS<J  
  (PROGN M+X>!Os  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) .u3!%{/v(c  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) Ixhe86-:T  
  (command"circle" p4 7"") w`(EW>i  
  (COMMAND"LINE" P2 P3"") KJ]:0'T  
  (setq bb 2.5) OAu?F}O  
  (IF (<= cc 9 )(setq bb 5)) &D "$N"  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) [-)N}rL>  
  (COMMAND"TEXT" X2 5 0 YY) Ctpr
.  
  (COMMAND"TEXT" Y2 5 0 XX) Ux~rBv''  
  (COMMAND"TEXT" X1 5 0 "N") yIBT*,4  
  (COMMAND"TEXT" Y1 5 0 "E") )1%l$W  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) .]+oE$,!  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) A2{u("^[6  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) +$KUy>  
  (command"text" p5 6 0 cc) opQ%!["N  
  ) S3V3<4CB  
  (PROGN KJPCO0"  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) ^uzJu(  
  (setq p4 (list (- (car p3) 7)(cadr p2))) %oasIiO  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) <0OZ9?,dm  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) <StyO[  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) sW[8f Z71  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) CA7ZoMB#  
  (COMMAND"LINE" P2 P3"") @EZ@X/8{&  
  (command"circle" p4 7) ^EGe%Fq*x]  
  (setq bb 12) D2o,K&
V  
  (IF (<= cc 9 )(setq bb 8)) 1ID0'j$  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) 9Xb,Swo~  
  (COMMAND"TEXT" X22 5 0 YY) 0z@KkU{Z  
  (COMMAND"TEXT" Y22 5 0 XX) tG(#&54  
  (COMMAND"TEXT" XX1 5 0 "N") 3okh'P%+  
  (COMMAND"TEXT" YY1 5 0 "E") ?\MvAG7Y  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) vA rM.Bu>b  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) (9hCO-r  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) (9r\YNK  
  (command"text" p5 6 0 cc) :kU
ZNw'Bi  
  ) *NdSL  
)  7e\g  
(setq cc (+ cc 1)) tMxa:h;/x  
uGIA4CUm  
) ZUJ!  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. @!z9.o;  
'