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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． w~\%vXla  
,/Cq v   
(DEFUN C:zb() 5,KWprb  
(command "dimzin" "0") (?&=T.*^  
(command "layer" "new" "zb_1" "") ;[0&G6g  
(setvar "clayer" "zb_1" ) =hH.zrI6e  
(command "color" 1) 0~gO'*2P  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") lC?Icn|o  
(command "osnap" "int") !]?$f=  
(command "osnap" "end") ":;@Hnb/  
(command "osmode" 1) 6vy7l(%  
(SETQ P1 (GETPOINT"Pick the zb point:")) gUax'^w;V;  
(command "osmode" 0) `sHuM*  
(SETQ P2 (GETPOINT P1)) r0dDHj~F  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) ^HA %q8| n  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) ?pGkk=,KB  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) \F6LZZ2Lv  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) '\DSTr:N  
(SETQ XX (RTOS (CAR P1) 2 3)) H#d:kilNy  
(SETQ YY (RTOS (CADR P1) 2 3)) d5j_6X  
(SETQ L1 (STRLEN XX)) O}ejWP8>  
(SETQ L2 (STRLEN YY)) Jobiq]|>  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) x8#ODuH  
(COMMAND"LINE" P1 P2"") X
a9TS"  
(command "layer" "new" "zb_2" "") y9HK |  
(setvar "clayer" "zb_2" ) Es5p}uh.[Y  
(IF (>= (CAR P2)(CAR P1)) Ka_S n  
  (PROGN |$lwkC)O  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) aw $L$7b}  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) d
j9?t  
  (COMMAND"LINE" P2 P3"") t!;/Z6\Pb  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) Yxd X#3  
  (COMMAND"TEXT" X2 5 0 YY) f
|7u_
f  
  (COMMAND"TEXT" Y2 5 0 XX) }-<zWI{p  
  (COMMAND"TEXT" X1 5 0 "N") !Jfs?Hy  
  (COMMAND"TEXT" Y1 5 0 "E") # '|'r+  
  ) deX5yrvOie  
  (PROGN 8cg`7(a  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) Vy)hDa[&  
  (setq p4 (list (- (car p3) 5)(cadr p2))) 2ef;NC.&n  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) F phDF  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) !>^JSHR4t  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) Wa"(m*hW  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) adEJk  
  (COMMAND"LINE" P2 P3"") T~8  .9g  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) JcO08
n  
  (COMMAND"TEXT" X22 5 0 YY) |1= !;.#  
  (COMMAND"TEXT" Y22 5 0 XX) ]
rBM5~  
  (COMMAND"TEXT" XX1 5 0 "N") ><?BqRm+  
  (COMMAND"TEXT" YY1 5 0 "E") [Gr*,nVvB  
  ) >um
!Eo  
) xl4=++pu)  
) +{`yeZ9S  
(DEFUN C:zb3() wwd'0P`/  
(command "dimzin" "0") SpTdj^]4>  
(command "layer" "new" "zb_1" "") L):U"M>]=  
(setvar "clayer" "zb_1" ) *gsAn<  
(command "color" 1) ZFh+x@  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") (X[2TT3j!  
(command "osnap" "int") D vkxI<Xa  
(command "osnap" "end") 8%{q%+  
(command "osmode" 1) < a rZbM  
(SETQ P1 (GETPOINT"Pick the zb point:")) QGnxQ{ko  
(command "osmode" 0) "kW!{n  
(SETQ P2 (GETPOINT P1)) -f(/
B9}  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) wOgE|n
 
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) %kI} [6J_  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) oUDVy_k  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) ik1tidw  
(SETQ XX (RTOS (CAR P1) 2 3)) /L=(^k=a.;  
(SETQ YY (RTOS (CADR P1) 2 3)) |?m` xO  
(SETQ L1 (STRLEN XX)) <!^ [~`  
(SETQ L2 (STRLEN YY)) P.WYTst=  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) "&YYO#YO  
(COMMAND"LINE" P1 P2"") MLVB^<qkeH  
(command "layer" "new" "zb_2" "") |KCOfVh?|.  
(setvar "clayer" "zb_2" ) ]5CNk+`'  
(IF (>= (CAR P2)(CAR P1)) JHV)ZOO  
  (PROGN > dZ3
+f  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) jB$SUO`*  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) <_S@6?  
  (COMMAND"LINE" P2 P3"") t@zdm
y  
  (COMMAND"TEXT" X2 2.5 0 YY) VAQ)Hc]  
  (COMMAND"TEXT" Y2 2.5 0 XX) | FM }  
  (COMMAND"TEXT" X1 2.5 0 "N=") m$Y :0_^-  
  (COMMAND"TEXT" Y1 2.5 0 "E=") nY-*
i!H  
  ) C"<s/
h  
  (PROGN FY0%XW  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) 42) mM#  
  (setq p4 (list (- (car p3) 3)(cadr p2))) b}
z
`BRCc  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) oW}!vf3z  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) n$+M%}/f  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) jRZ%}KX  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) =C7 khE  
  (COMMAND"LINE" P2 P3"") #XIc "L)c  
  (COMMAND"TEXT" X22 2.5 0 YY) oY9FK{  
  (COMMAND"TEXT" Y22 2.5 0 XX) 5fjd{Y[k  
  (COMMAND"TEXT" XX1 2.5 0 "N=") +=@
^i'  
  (COMMAND"TEXT" YY1 2.5 0 "E=") :Hy]  
) `$;+g ,  
) Ggm` ~fS  
) >wON\N0V_  
(DEFUN C:zb2() eb:A1f4L  
(command "dimzin" "0") mX# "+X|  
(command "layer" "new" "zb_1" "") BR_TykP  
(setvar "clayer" "zb_1" ) fjz) Gp  
(command "color" 1) {")\0|2\x  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 5mB]N%rfW%  
(command "osnap" "int") .-I|DVHe  
(command "osnap" "end") rj] E@W  
(command "osmode" 1) ~hX-u8Ul'N  
(SETQ P1 (GETPOINT"Pick the zb point:"))  !rL<5L  
(command "osmode" 0) 3}Xc71|v  
(SETQ P2 (GETPOINT P1)) sa-9$},z4  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) O12Q8Oj!0  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) 5N/Lk>p1u
 
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) .J.vC1 4gi  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) 0irr7Y  
(SETQ XX (RTOS (CAR P1) 2 3)) *:"^[Ckc  
(SETQ YY (RTOS (CADR P1) 2 3)) loOOmHhJ&  
(SETQ L1 (STRLEN XX)) X T>('qy  
(SETQ L2 (STRLEN YY)) $ @1u+w  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) UPh=+s #Q  
(COMMAND"LINE" P1 P2"") 4
jwu'7Q  
(command "layer" "new" "zb_2" "") I.
"p  
(setvar "clayer" "zb_2" ) H[&@}v,L  
(IF (>= (CAR P2)(CAR P1)) t8J/
\f=  
  (PROGN @|A|  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) JJk#,AP  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 1=GI&f2I  
  (COMMAND"LINE" P2 P3"") !p.^ITM3S  
  (COMMAND"TEXT" X2 1.25 0 YY) ~9M!)\~  
  (COMMAND"TEXT" Y2 1.25 0 XX) {[#(w75R{  
  (COMMAND"TEXT" X1 1.25 0 "N=") #6> 6S;Ib  
  (COMMAND"TEXT" Y1 1.25 0 "E=") yXfMzG  
  ) gQVBA %  
  (PROGN ?[1SiJT  
  (setq l (* l 1.1)) a|qsQ'1,;  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) wq0aF"k  
  (setq p4 (list (- (car p3) 3)(cadr p2))) LsTffIP  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) s@@1 *VQ  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) R{}qK r  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) R 1zC.m  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) A|RR]CFJ  
  (COMMAND"LINE" P2 P3"") F8mC?fbK9  
  (COMMAND"TEXT" X22 1.25 0 YY) 4br6$  
  (COMMAND"TEXT" Y22 1.25 0 XX) wK5_t[[  
  (COMMAND"TEXT" XX1 1.25 0 "N=") ExhL[1E  
  (COMMAND"TEXT" YY1 1.25 0 "E=") %$X\"  
) iD_TP  
) /=T"=bP#/  
) 3:`XG2'  
(DEFUN C:zb5() @6MAX"  
(setq cc 1) /&s}<BMHU  
(setq cc (getint "输入点编号<1>:")) F@SG((`  
(repeat 1000 ,x#ztdvr  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") JeQ[qQ  
(command "dimzin" "0") 7`Du5>b8  
(command "layer" "new" "zb_1" "") vA>W9OI 
 
(setvar "clayer" "zb_1" ) rw u3Nb  
(command "color" 1) G}Z4g  
(command "osnap" "int") l)Mh2lA,=  
(command "osnap" "end")  rz  
(command "osmode" 1) sBjXE>_#)  
(SETQ P1 (GETPOINT"Pick the zb point:")) SGf9U^ds  
(command "osmode" 0) 4XG]z_+I  
(SETQ P2 (GETPOINT P1)) #x)}29%e#  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) KTmaglgp  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) iJnh$jo  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) ^Q2ZqAf^a  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) +V
Ob  
(SETQ XX (RTOS (CAR P1) 2 3)) &9P<qU^N)  
(SETQ YY (RTOS (CADR P1) 2 3)) @YZ 4AC  
(SETQ L1 (STRLEN XX)) uWc:jP  
(SETQ L2 (STRLEN YY)) @PXXt#  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) >>V&yJ_  
(COMMAND"LINE" P1 P2"") i^/54  
(command "layer" "new" "zb_2" "") qi\n]I  
(setvar "clayer" "zb_2" ) ]P3[.$z  
(IF (>= (CAR P2)(CAR P1)) <Jwo?[a  
  (PROGN ^, wnp@
 
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) d]7*mzw^j  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) Mq+<mX7  
  (command"circle" p4 7"") ua#K>sur.  
  (COMMAND"LINE" P2 P3"") P(_(w 9  
  (setq bb 2.5) -Enbcz(B  
  (IF (<= cc 9 )(setq bb 5)) ,y.3Fe  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) q$>_WF#||  
  (COMMAND"TEXT" X2 5 0 YY) mQ,{=C=D  
  (COMMAND"TEXT" Y2 5 0 XX) <%?uYCD  
  (COMMAND"TEXT" X1 5 0 "N") Xw(3j)xQ  
  (COMMAND"TEXT" Y1 5 0 "E") H m8y]>$  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) 1v]t!}W:6  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) ;,`]O!G:P  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) j+0.=#{??  
  (command"text" p5 6 0 cc) %UG/ak%
z  
  ) |[WL2<  
  (PROGN m/?h2McS  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) <9N4"d!A  
  (setq p4 (list (- (car p3) 7)(cadr p2))) ;Jo*|pju  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) Fwv\pJ}$  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) =Z
MF]|  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) Zg
Bckb  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) ;MZbL)  
  (COMMAND"LINE" P2 P3"") .EzSSU7n)  
  (command"circle" p4 7) sL mW\\kA>  
  (setq bb 12) .+uVgSN  
  (IF (<= cc 9 )(setq bb 8)) D(@SnI+  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) 6vWii)O.D  
  (COMMAND"TEXT" X22 5 0 YY) /&6Q)  
  (COMMAND"TEXT" Y22 5 0 XX) wRi~Yb?  
  (COMMAND"TEXT" XX1 5 0 "N") >3$uu+p1F  
  (COMMAND"TEXT" YY1 5 0 "E") $w`veP  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) P2QRvn6v  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) ](n69XX_  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) 8J^d7uC  
  (command"text" p5 6 0 cc) W U0UG$o`  
  ) 'tSnH&c  
) #:I^&~:  
(setq cc (+ cc 1)) 8xgc[#  
i8eA_Q  
) ++gPv}:$X  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. d{?)q
 
'