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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． %T&#JF+;  
U&|$B|[  
(DEFUN C:zb() PUN.nt  
(command "dimzin" "0") o\luE{H .?  
(command "layer" "new" "zb_1" "") H5N(MihT  
(setvar "clayer" "zb_1" ) JqdNO:8  
(command "color" 1) n>dM OQb  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") afZPju"-  
(command "osnap" "int") zq5_&AeW  
(command "osnap" "end") @
Yq!  
(command "osmode" 1) ,K'}<dm|x  
(SETQ P1 (GETPOINT"Pick the zb point:")) y{eZrX|  
(command "osmode" 0) }<wj~f([  
(SETQ P2 (GETPOINT P1)) +(3PY e\  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) B9_0 Yq  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) JAA P5ur  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) 8bX\^&N  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) \\D~Yg\#  
(SETQ XX (RTOS (CAR P1) 2 3)) o^Y'e+T"  
(SETQ YY (RTOS (CADR P1) 2 3))
YSuwV)Y  
(SETQ L1 (STRLEN XX)) ^j2:fJOU#  
(SETQ L2 (STRLEN YY)) $Q:5KNF+p  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) JHf}LZu  
(COMMAND"LINE" P1 P2"") C%P"Ds=w0N  
(command "layer" "new" "zb_2" "") 1?(mE7H#  
(setvar "clayer" "zb_2" ) tc{23Rf%  
(IF (>= (CAR P2)(CAR P1)) Mdh(Mp(w  
  (PROGN 7#,
+Q(2  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) B%Yb+
M&K  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) N[}XLhbt  
  (COMMAND"LINE" P2 P3"") z^4\?R50yO  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) ^yRCR] oT  
  (COMMAND"TEXT" X2 5 0 YY) Oz9k.[j(  
  (COMMAND"TEXT" Y2 5 0 XX) ;e0>.7m  
  (COMMAND"TEXT" X1 5 0 "N") dBG]J18  
  (COMMAND"TEXT" Y1 5 0 "E")  <C4^Vem  
  ) )N-+,Ms  
  (PROGN UY**3MK  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) ZUyM:$  
  (setq p4 (list (- (car p3) 5)(cadr p2))) &-+&`h|s  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) MjU>qx::  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) )`rC"N)  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) $`'^&o;&f  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) ^;YD3EZw  
  (COMMAND"LINE" P2 P3"") 7l Aa6"Y68  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) }
}qR~.[  
  (COMMAND"TEXT" X22 5 0 YY) ji(S ?^  
  (COMMAND"TEXT" Y22 5 0 XX) 4(JxZ49  
  (COMMAND"TEXT" XX1 5 0 "N") GX_Lxc_<f  
  (COMMAND"TEXT" YY1 5 0 "E") q<JI!n1O  
  ) _>5BFQ_  
) Y@.> eS  
) 9GZF39w u  
(DEFUN C:zb3() "0L@cOyG  
(command "dimzin" "0") ?NI)3-l  
(command "layer" "new" "zb_1" "") !00%z  
(setvar "clayer" "zb_1" ) aG|)k,  
(command "color" 1) _@jKFDPL  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") )K2n!Fbd  
(command "osnap" "int") gr=ke #   
(command "osnap" "end") Qb# S)[6s+  
(command "osmode" 1) V!KtF  
(SETQ P1 (GETPOINT"Pick the zb point:")) v *:m|wl  
(command "osmode" 0) *OF7{^~&  
(SETQ P2 (GETPOINT P1)) 73xI8  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) @V:b Co  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) 7*XG]=z/  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) WaMn
[/{  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) d(a6vEL4  
(SETQ XX (RTOS (CAR P1) 2 3)) bM^'q  
(SETQ YY (RTOS (CADR P1) 2 3)) <6apv(2a  
(SETQ L1 (STRLEN XX)) v;K\#uc_  
(SETQ L2 (STRLEN YY)) !s)2H/KM8  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) >5 5/@+^  
(COMMAND"LINE" P1 P2"") _k+Bj.L  
(command "layer" "new" "zb_2" "") 0/KNXz  
(setvar "clayer" "zb_2" ) 1shvHmrV  
(IF (>= (CAR P2)(CAR P1)) 5o~Z>  
  (PROGN dbZPt~S'$  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) Q|G[9HBI  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) ^U_jeAuk8[  
  (COMMAND"LINE" P2 P3"") 6ldDt?iSg  
  (COMMAND"TEXT" X2 2.5 0 YY) C1G Wi4)  
  (COMMAND"TEXT" Y2 2.5 0 XX) SwP h-6  
  (COMMAND"TEXT" X1 2.5 0 "N=") b'-g
y0  
  (COMMAND"TEXT" Y1 2.5 0 "E=") %n}]$ d  
  ) 0\Oeo8<7)~  
  (PROGN \+Cp<Hv+  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) I3s}t$`y(  
  (setq p4 (list (- (car p3) 3)(cadr p2))) _ve7Is`/  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) \W@?revK  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) hrAI@.Bo  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) \O/=g6w|t}  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) BLJ-'8G  
  (COMMAND"LINE" P2 P3"") Vr0RdO  
  (COMMAND"TEXT" X22 2.5 0 YY) x@k9]6/zs  
  (COMMAND"TEXT" Y22 2.5 0 XX) rfPJBD{Ve  
  (COMMAND"TEXT" XX1 2.5 0 "N=") /|DQ_<*  
  (COMMAND"TEXT" YY1 2.5 0 "E=") jY?%LY@5I  
) E_yh9lk  
) (~#PzE:  
) #-VKk  
(DEFUN C:zb2() \|&5eeE@  
(command "dimzin" "0") 2C8M1^0:Z  
(command "layer" "new" "zb_1" "") vOP[ND=T  
(setvar "clayer" "zb_1" ) ohh 1DsB  
(command "color" 1) fg1 zT~  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 03#_ (  
(command "osnap" "int") lp]O8^][&  
(command "osnap" "end") H+0 *  
(command "osmode" 1) 5g&'n  
(SETQ P1 (GETPOINT"Pick the zb point:")) \dc`}}Lc  
(command "osmode" 0) IaF79}^  
(SETQ P2 (GETPOINT P1)) oD}I{&=wa  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) 6a,YxR\  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) XnG!
T$  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) 7PvuKAv?k  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) |F=^Cu,  
(SETQ XX (RTOS (CAR P1) 2 3)) 0CN.gu  
(SETQ YY (RTOS (CADR P1) 2 3)) \m.{^Xd~  
(SETQ L1 (STRLEN XX)) !9N%=6\  
(SETQ L2 (STRLEN YY)) W.CIyGK  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) eeX)JC0A  
(COMMAND"LINE" P1 P2"") G37_ `C  
(command "layer" "new" "zb_2" "") . }1!MK5  
(setvar "clayer" "zb_2" ) jf2E{48P  
(IF (>= (CAR P2)(CAR P1)) (HJ60Hj  
  (PROGN eX$Biv1N  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) 0!zWXKX  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) DuFlN1Z  
  (COMMAND"LINE" P2 P3"") }ps6}_FE  
  (COMMAND"TEXT" X2 1.25 0 YY) D6m>>&E['  
  (COMMAND"TEXT" Y2 1.25 0 XX) r:o!w7C:a  
  (COMMAND"TEXT" X1 1.25 0 "N=") v]1rH$  
  (COMMAND"TEXT" Y1 1.25 0 "E=") qj/P4*6E  
  ) EagI)W!s[  
  (PROGN fAm2ls7c  
  (setq l (* l 1.1)) 4@Qq5kpk*  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) l-npz)EM  
  (setq p4 (list (- (car p3) 3)(cadr p2))) }Ag2c; aaq  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) 2-CK:)n/#  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) Av[jF
k  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) }l2JXf55  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) ':[y]ep(~|  
  (COMMAND"LINE" P2 P3"") _8`|KY  
  (COMMAND"TEXT" X22 1.25 0 YY) 8_LDS  
  (COMMAND"TEXT" Y22 1.25 0 XX) :H87x?e[  
  (COMMAND"TEXT" XX1 1.25 0 "N=") i}YnJ  
  (COMMAND"TEXT" YY1 1.25 0 "E=") 3A9|{Vaz+6  
) {!4%Z9G  
) AuCVpDH  
) Tld{b  
(DEFUN C:zb5() G@(7d1){  
(setq cc 1) R3<+z  
(setq cc (getint "输入点编号<1>:")) $200?[  
(repeat 1000 qnlj~]NV  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ])JJ`Z8Bk  
(command "dimzin" "0") 5-J-Tn  
(command "layer" "new" "zb_1" "") Xgm7>=l  
(setvar "clayer" "zb_1" ) 4H:WpW*r  
(command "color" 1) &d2/F i+  
(command "osnap" "int") Psv!`K  
(command "osnap" "end") prWid3}  
(command "osmode" 1) iOyYf!yg  
(SETQ P1 (GETPOINT"Pick the zb point:")) t&oNJq{  
(command "osmode" 0) r3-3*_  
(SETQ P2 (GETPOINT P1)) N$+"zJmw&  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) v$cD!`+k  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) Ob6vg
^#  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) ibq@0CR  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) ,yF)7fN  
(SETQ XX (RTOS (CAR P1) 2 3)) nGt8u4gcP  
(SETQ YY (RTOS (CADR P1) 2 3)) MoA{ /{  
(SETQ L1 (STRLEN XX)) Zry>s0  
(SETQ L2 (STRLEN YY)) :8ZxOwwv  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) Q
&J,"Vxw  
(COMMAND"LINE" P1 P2"") : ?V;  
(command "layer" "new" "zb_2" "") #.@=xhK/  
(setvar "clayer" "zb_2" ) bODl q  
(IF (>= (CAR P2)(CAR P1)) 7PMZ
t$n  
  (PROGN ^#4s/mdVO  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) t&xx-4  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) C/bttd  
  (command"circle" p4 7"") TQou.'+v  
  (COMMAND"LINE" P2 P3"") xI@~Ig  
  (setq bb 2.5) A_.QHUjpx  
  (IF (<= cc 9 )(setq bb 5)) 2*|]#W
 
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) i_MI!o  
  (COMMAND"TEXT" X2 5 0 YY) 0b4OJ[  
  (COMMAND"TEXT" Y2 5 0 XX) t'J fiGM  
  (COMMAND"TEXT" X1 5 0 "N") (pmo[2kg  
  (COMMAND"TEXT" Y1 5 0 "E") 6~}H
3rvO}  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) kpdFb7>|  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) a:fHTU=\p  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) =6sXZ"_Tw  
  (command"text" p5 6 0 cc) s:ruCS  
  ) aPC!M4#  
  (PROGN Vo%d;>!G\;  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) $o/>wgQY-  
  (setq p4 (list (- (car p3) 7)(cadr p2))) o;[oy#aWl_  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) 'G

FzI:Xr  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) ]VvJ1Xn0  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1)))
 W6~=?C  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) Zx_m?C_2_  
  (COMMAND"LINE" P2 P3"") e-VLU;  
  (command"circle" p4 7) 7'|PHQ?S  
  (setq bb 12) (Y>MsqwWfC  
  (IF (<= cc 9 )(setq bb 8)) xR:h^S^W ~  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) (yP55PC O$  
  (COMMAND"TEXT" X22 5 0 YY) zCHr  
  (COMMAND"TEXT" Y22 5 0 XX) p{rS -`I  
  (COMMAND"TEXT" XX1 5 0 "N") .*j+?  
  (COMMAND"TEXT" YY1 5 0 "E") nR7\ o(!  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n"))
FMVmH!E  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) wL
tTC4D  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) tX
251S  
  (command"text" p5 6 0 cc) my1kF%?  
  ) /Uc*7Y5j  
) {9Y'v  
(setq cc (+ cc 1)) Pio^5jhB6  
$<v_Vm?6d  
) 'm|m+K83  
)

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

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