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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． zhsx&  
'044Vm;/  
(DEFUN C:zb() :pZ}
*?\  
(command "dimzin" "0") }Ik1bkK  
(command "layer" "new" "zb_1" "") A,XfD}+:Z  
(setvar "clayer" "zb_1" ) U{#xW  
(command "color" 1) P
Jo  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") Z^_>A)<s<  
(command "osnap" "int") ]Yz'8uts  
(command "osnap" "end") TOT PzB  
(command "osmode" 1) k0ItG?C
v  
(SETQ P1 (GETPOINT"Pick the zb point:")) H5M#q6`H6  
(command "osmode" 0) 6 =>G#  
(SETQ P2 (GETPOINT P1)) `XMM1y>V9>  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) YoSQN
/Z  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) JAP(|  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) |63Y >U"  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) a$}6:E  
(SETQ XX (RTOS (CAR P1) 2 3)) 5~}!@yzc  
(SETQ YY (RTOS (CADR P1) 2 3)) +/N1_  
(SETQ L1 (STRLEN XX)) =AkX4k  
(SETQ L2 (STRLEN YY)) n|KKby.$
  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) v3
3T @  
(COMMAND"LINE" P1 P2"") o#{#r@,i  
(command "layer" "new" "zb_2" "") z8iENECwj  
(setvar "clayer" "zb_2" ) e'~ Q@_D  
(IF (>= (CAR P2)(CAR P1)) Pj!%ym3A  
  (PROGN !0jq6[&  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) wn84?$BGd  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) 6>B \|  
  (COMMAND"LINE" P2 P3"") Xb<)LHA~3  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) Vy;_GfT$  
  (COMMAND"TEXT" X2 5 0 YY) 8=4^Lm  
  (COMMAND"TEXT" Y2 5 0 XX) - L`7+  
  (COMMAND"TEXT" X1 5 0 "N") RKe?
.  
  (COMMAND"TEXT" Y1 5 0 "E") zoXuFg  
  ) 'j#a%j@{  
  (PROGN `A{'s %$?!  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) o*_g$  
  (setq p4 (list (- (car p3) 5)(cadr p2))) z7q%,yw3N  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) <^sAY P|  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) l?/gWD^  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) X[{\3Av  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) cYD1~JX.  
  (COMMAND"LINE" P2 P3"") 5KaSWw/  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) a71}y;W  
  (COMMAND"TEXT" X22 5 0 YY) V8v,jS$l4  
  (COMMAND"TEXT" Y22 5 0 XX) FB!z#Eim  
  (COMMAND"TEXT" XX1 5 0 "N") yu_g
Nro L  
  (COMMAND"TEXT" YY1 5 0 "E") 9OZ>y0)K~  
  ) P^;WB*V  
) z1qUz7  
)
_w%s(dzk  
(DEFUN C:zb3() -faw:  
(command "dimzin" "0") ] - h|]  
(command "layer" "new" "zb_1" "") 4ioNA/E  
(setvar "clayer" "zb_1" ) ,s8&#1rJ-  
(command "color" 1) %Fm`Y.l
 
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 5W5pRd>Q  
(command "osnap" "int") FJlsWh4,6=  
(command "osnap" "end") vT}pbOTh  
(command "osmode" 1) i59k"pNm  
(SETQ P1 (GETPOINT"Pick the zb point:")) bY&YSlO  
(command "osmode" 0) h%|9]5(=  
(SETQ P2 (GETPOINT P1)) [$H( CH`
 
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) {{GHzW  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) A1 b6Zt  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) h!~|6nj  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) rcW#6VZ=  
(SETQ XX (RTOS (CAR P1) 2 3)) <WgG=Kf)N  
(SETQ YY (RTOS (CADR P1) 2 3)) 3XBp6`  
(SETQ L1 (STRLEN XX)) -ca]Q|m8  
(SETQ L2 (STRLEN YY)) ZS|Z98  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) {<~s&EPd  
(COMMAND"LINE" P1 P2"") :az!H"4W/  
(command "layer" "new" "zb_2" "") _i#@t7  
(setvar "clayer" "zb_2" ) <w%DyRFw3  
(IF (>= (CAR P2)(CAR P1)) ?WMi S]Q\  
  (PROGN s2wwmtUCN  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) WMRYT"J?N]  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) [v~Uy$d\  
  (COMMAND"LINE" P2 P3"") VQ
/ <09e  
  (COMMAND"TEXT" X2 2.5 0 YY) )lE3GDAPgZ  
  (COMMAND"TEXT" Y2 2.5 0 XX) XC57];-  
  (COMMAND"TEXT" X1 2.5 0 "N=") vl>_e  
  (COMMAND"TEXT" Y1 2.5 0 "E=") lxr@[VQ  
  ) l6yB_M
  
  (PROGN /{49I,  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) 60(}_%  
  (setq p4 (list (- (car p3) 3)(cadr p2))) $Cut  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) z[_
R"+   
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) 
44g`=o@  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) z2"2tFK  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) tOu90gu  
  (COMMAND"LINE" P2 P3"") xuw//F  
  (COMMAND"TEXT" X22 2.5 0 YY) cob9hj#&7  
  (COMMAND"TEXT" Y22 2.5 0 XX) Cj`pw2.  
  (COMMAND"TEXT" XX1 2.5 0 "N=") 1nw$B[  
  (COMMAND"TEXT" YY1 2.5 0 "E=") "`y W]v  
) \5j22L9S  
) ,S7~=S  
) W ??;4  
(DEFUN C:zb2() }UJdE#4  
(command "dimzin" "0") 1gf/#+$\  
(command "layer" "new" "zb_1" "") )1X' W  
(setvar "clayer" "zb_1" ) K gR1El.r  
(command "color" 1) \emT:Frb  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") oxxE'cx{g  
(command "osnap" "int") L|dab{9  
(command "osnap" "end") R.^Bxi-UG:  
(command "osmode" 1) !nZI? z;  
(SETQ P1 (GETPOINT"Pick the zb point:")) s8/ozaeo  
(command "osmode" 0) GN}9$:  
(SETQ P2 (GETPOINT P1)) R|cFpRe  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) _Ct@1}aa4x  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) |
hZ|+7  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) SF78s:_!_  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) o3(|FN  
(SETQ XX (RTOS (CAR P1) 2 3)) 2- |
j  
(SETQ YY (RTOS (CADR P1) 2 3)) +J}k_'4&  
(SETQ L1 (STRLEN XX)) Yg]FF`{p=  
(SETQ L2 (STRLEN YY)) }lrfO_  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) }(f,~?CP]  
(COMMAND"LINE" P1 P2"") &</@0  
(command "layer" "new" "zb_2" "") FW6E)df  
(setvar "clayer" "zb_2" ) JXRmu~W~l  
(IF (>= (CAR P2)(CAR P1)) oeRYyJ  
  (PROGN 2={K-s20  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) T`(;;%  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) yF [@W<  
  (COMMAND"LINE" P2 P3"") } SWA|x  
  (COMMAND"TEXT" X2 1.25 0 YY) 4w3V!K8  
  (COMMAND"TEXT" Y2 1.25 0 XX) Z_hBd['!  
  (COMMAND"TEXT" X1 1.25 0 "N=") [1[[$ Dr  
  (COMMAND"TEXT" Y1 1.25 0 "E=") &<[]X@ bY  
  ) f;qKrw  
  (PROGN 5y 'ycTjY  
  (setq l (* l 1.1)) -*-zU#2|  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) FB^dp}  
  (setq p4 (list (- (car p3) 3)(cadr p2))) [fJFH^&?hr  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) FKvO
7? K  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) |Jx2"0:M  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) $=6kh+n@  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) @'G ( k;  
  (COMMAND"LINE" P2 P3"") =[CS2VQ'  
  (COMMAND"TEXT" X22 1.25 0 YY) `HZHVV$~  
  (COMMAND"TEXT" Y22 1.25 0 XX) IWbp^l+!t  
  (COMMAND"TEXT" XX1 1.25 0 "N=") \T#(rt\j  
  (COMMAND"TEXT" YY1 1.25 0 "E=") h
G0lR.:  
) ,"lBS?  
) 3=eGS  
) 1(\I9L&J   
(DEFUN C:zb5() JKu6+V jO  
(setq cc 1) -u
Y:2  
(setq cc (getint "输入点编号<1>:")) 8G
^B%h]  
(repeat 1000 &rtz&}Z
B;  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") l Ib>t  
(command "dimzin" "0") uq1(yyWp(  
(command "layer" "new" "zb_1" "") ;V(}F!U\z  
(setvar "clayer" "zb_1" ) 8"I5v(TV  
(command "color" 1) ,-NLUS "w  
(command "osnap" "int") = ,E(!Sp  
(command "osnap" "end") uu46'aT  
(command "osmode" 1) Wa
Z@  
(SETQ P1 (GETPOINT"Pick the zb point:")) JqV<A3i  
(command "osmode" 0) E/Gs',Y  
(SETQ P2 (GETPOINT P1)) JbD)}(G;  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) ;>x1)|n5  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7)))  !6i  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) di P4]/%1  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) )-Sl/G  
(SETQ XX (RTOS (CAR P1) 2 3)) ,Z\,IRn  
(SETQ YY (RTOS (CADR P1) 2 3)) o9SfWErZ  
(SETQ L1 (STRLEN XX)) 6'lT`E|  
(SETQ L2 (STRLEN YY)) ba:du |Ec  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) ^V;lZtZ  
(COMMAND"LINE" P1 P2"") U3iy
uE  
(command "layer" "new" "zb_2" "") ^xu)~:} i  
(setvar "clayer" "zb_2" ) K#pt8Q  
(IF (>= (CAR P2)(CAR P1)) /01(9(  
  (PROGN $ax%K?MBD  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) QMfy^t+I  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) 0JWD] "  
  (command"circle" p4 7"") :usBeho  
  (COMMAND"LINE" P2 P3"") i{RS/,h4  
  (setq bb 2.5) N#-\JlJ)  
  (IF (<= cc 9 )(setq bb 5)) 'C4Ll2  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) f$*9J  
  (COMMAND"TEXT" X2 5 0 YY) s*U&[7P  
  (COMMAND"TEXT" Y2 5 0 XX) >Zp]vK~s  
  (COMMAND"TEXT" X1 5 0 "N") |4*2xDcl  
  (COMMAND"TEXT" Y1 5 0 "E") UDqKF85H  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) JM4`k8mM  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) 4Tw1ga
s.  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) ?d`+vHK
]>  
  (command"text" p5 6 0 cc) g.VIe  
  ) XA^:n+Yo  
  (PROGN (ZR"O8  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) I }I/dh  
  (setq p4 (list (- (car p3) 7)(cadr p2))) aV%rq9Tp  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) %l P   
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) [5d][1=  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) u:kY4T+Z  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) q2pao?aa  
  (COMMAND"LINE" P2 P3"") 2Ab#uPBn  
  (command"circle" p4 7) t#{>y1[29  
  (setq bb 12) a;6\T*iJ!  
  (IF (<= cc 9 )(setq bb 8)) l\y*wr`  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) r:Tb{cA  
  (COMMAND"TEXT" X22 5 0 YY) SJr:  
  (COMMAND"TEXT" Y22 5 0 XX) 85~h+Q;  
  (COMMAND"TEXT" XX1 5 0 "N") cf3c+.o  
  (COMMAND"TEXT" YY1 5 0 "E") UR=s{nFd  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) tB?S0;yXjd  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) q%&7J<  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) @z RB4d$  
  (command"text" p5 6 0 cc) QQ8W;x  
  ) =5eDT~=2{U  
) {j@)sDMX  
(setq cc (+ cc 1)) ',%&DA2  
uQ1;+P:L  
) o/ 5Fg>d  
)

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

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