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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． 3z9}cOFq]z  
{-IH?!&v  
(DEFUN C:zb() 5BCHWX*y  
(command "dimzin" "0") Hc1S:RW  
(command "layer" "new" "zb_1" "") :T(3!}4  
(setvar "clayer" "zb_1" ) H8+7rM  
(command "color" 1) hjywYd]8  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") GU'/-6-T  
(command "osnap" "int") '#REbY5ev  
(command "osnap" "end") "ewSh<t
 
(command "osmode" 1) Fyy)665x/  
(SETQ P1 (GETPOINT"Pick the zb point:")) V|3}~(5=  
(command "osmode" 0) !6hUTjhW7z  
(SETQ P2 (GETPOINT P1)) _,:gSDW|  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) ( /{Wu:e  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) hER]%)#r  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) p9k'.H^:_  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) >%k:++b{  
(SETQ XX (RTOS (CAR P1) 2 3)) H(U`
S  
(SETQ YY (RTOS (CADR P1) 2 3)) ,)3%@MwO  
(SETQ L1 (STRLEN XX)) ]NS{q85  
(SETQ L2 (STRLEN YY)) lAU`7uE  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) e;9Z/);#s  
(COMMAND"LINE" P1 P2"") 5J
d(&k8%  
(command "layer" "new" "zb_2" "") To1 .U)do  
(setvar "clayer" "zb_2" ) hnag<=  
(IF (>= (CAR P2)(CAR P1)) LYb@0O<w  
  (PROGN ~;nh|v/e  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) [+EmV>Y
 
  (setq p4 (list (+ (car p3) 5)(cadr p2))) .6Tan2[%  
  (COMMAND"LINE" P2 P3"") ]ovP^]]V  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) L=4%MyZ.e  
  (COMMAND"TEXT" X2 5 0 YY) {fe[$KQ  
  (COMMAND"TEXT" Y2 5 0 XX) :/ ,h)h)|  
  (COMMAND"TEXT" X1 5 0 "N") zKB$n.H  
  (COMMAND"TEXT" Y1 5 0 "E") 2TB>d+  
  ) R7u&`  
  (PROGN $d2mcwh\  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) 1+|s   
  (setq p4 (list (- (car p3) 5)(cadr p2))) EYNi`  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) rnW(<t"  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) NO5\|.,Z  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) C&Rv$<qc  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) %fB]N  
  (COMMAND"LINE" P2 P3"") Hd H,  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) 0Z9>%\km_  
  (COMMAND"TEXT" X22 5 0 YY) ^]}+s(
 
  (COMMAND"TEXT" Y22 5 0 XX) (D5 d
N\  
  (COMMAND"TEXT" XX1 5 0 "N") 8UiRirw  
  (COMMAND"TEXT" YY1 5 0 "E") IzPnbnS}  
  ) qyzmjV6J2  
) ~R-P%l P  
) j4h6p(w{  
(DEFUN C:zb3() Q-<N)K$F(4  
(command "dimzin" "0") xwK{}==U  
(command "layer" "new" "zb_1" "") r:fMd3;gq  
(setvar "clayer" "zb_1" ) &`+tWL6L  
(command "color" 1) M4[(.8iE  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") Kx,#Wg{H  
(command "osnap" "int") jd]Om r!  
(command "osnap" "end") #[$^M:X.  
(command "osmode" 1) %mKM9>lf#  
(SETQ P1 (GETPOINT"Pick the zb point:")) *HiN:30DZ  
(command "osmode" 0) [\eh$r\
 
(SETQ P2 (GETPOINT P1)) -I dW-9~9  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) Gf``0F)  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) SVKjhZK  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) @I_
!q*  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) 4eOS+&  
(SETQ XX (RTOS (CAR P1) 2 3)) SB"Uu2)wZ  
(SETQ YY (RTOS (CADR P1) 2 3)) @@->A9'L  
(SETQ L1 (STRLEN XX)) i+rh&,  
(SETQ L2 (STRLEN YY)) GH ]c  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) o~<ith$A*  
(COMMAND"LINE" P1 P2"") e$'|EE.=q+  
(command "layer" "new" "zb_2" "") -\=s+n_ZP?  
(setvar "clayer" "zb_2" ) GHeucG}?  
(IF (>= (CAR P2)(CAR P1)) ejs_ ?  
  (PROGN WbF[4x  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) RLl*@SEi"  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) L\;n[
,.  
  (COMMAND"LINE" P2 P3"") k# -u!G  
  (COMMAND"TEXT" X2 2.5 0 YY) *Ae> ,LyE  
  (COMMAND"TEXT" Y2 2.5 0 XX) +9EG6"..@H  
  (COMMAND"TEXT" X1 2.5 0 "N=") aY:u-1  
  (COMMAND"TEXT" Y1 2.5 0 "E=") 5dwC~vn}c  
  ) :(7icHa  
  (PROGN <5).(MTa  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) `^_c&y K  
  (setq p4 (list (- (car p3) 3)(cadr p2))) %DOV)Qc2  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) rjk{9u1a"  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) G,o5JL"t  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) ;5S'?fj  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) Q8d-yJs&  
  (COMMAND"LINE" P2 P3"") 4WspPHj  
  (COMMAND"TEXT" X22 2.5 0 YY) \PU7,*2  
  (COMMAND"TEXT" Y22 2.5 0 XX) 3i
\<#{  
  (COMMAND"TEXT" XX1 2.5 0 "N=") Ow
d{;  
  (COMMAND"TEXT" YY1 2.5 0 "E=") D1G9^7:^E  
) [%?ViKW  
) R3 Zg,YM  
) s}w?Dvo\  
(DEFUN C:zb2() AN)exU ?  
(command "dimzin" "0") o'Rr2,lVi  
(command "layer" "new" "zb_1" "") 3UXaA;  
(setvar "clayer" "zb_1" ) vca]yK<u  
(command "color" 1) \\U,|}L .  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ULT,>S6r  
(command "osnap" "int") -!Ov{GHr0  
(command "osnap" "end") /O`<?aP%  
(command "osmode" 1) Go;fQ yG  
(SETQ P1 (GETPOINT"Pick the zb point:")) GN0s`'#"3%  
(command "osmode" 0) zDK"Y{  
(SETQ P2 (GETPOINT P1)) eHX;*~e6)  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) |FED<  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) 'tJb(X!]q  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) PvHX#wJ  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) #!yW)RG  
(SETQ XX (RTOS (CAR P1) 2 3)) $0[t<4K`yn  
(SETQ YY (RTOS (CADR P1) 2 3)) |f+`FOliP  
(SETQ L1 (STRLEN XX)) {wK|C<K  
(SETQ L2 (STRLEN YY)) )#%v1rR  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) -K%hug  
(COMMAND"LINE" P1 P2"") n?a?U:  
(command "layer" "new" "zb_2" "") Q}zd!*  
(setvar "clayer" "zb_2" ) U7_1R0h  
(IF (>= (CAR P2)(CAR P1)) vyS8yJUY  
  (PROGN b
+/z,c6w  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) AQ)DiH  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) Pl/}`H:R&  
  (COMMAND"LINE" P2 P3"") sa?Ul)L2  
  (COMMAND"TEXT" X2 1.25 0 YY) m7
$t$/g  
  (COMMAND"TEXT" Y2 1.25 0 XX) G*N}X3H:o  
  (COMMAND"TEXT" X1 1.25 0 "N=") eN,6p'&  
  (COMMAND"TEXT" Y1 1.25 0 "E=") 6B8gMO  
  ) Crg@05Z  
  (PROGN ,#V}qSKUS  
  (setq l (* l 1.1)) {e]ktj#+{  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) BmhIKXE{*  
  (setq p4 (list (- (car p3) 3)(cadr p2))) %3kS;AaA  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) aGz$A15#  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) XbaUmCuh  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) *xV  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) F-TDS<[S?  
  (COMMAND"LINE" P2 P3"") jA'7@/F/  
  (COMMAND"TEXT" X22 1.25 0 YY) 'nQQqx%v  
  (COMMAND"TEXT" Y22 1.25 0 XX) W ])Lc3X  
  (COMMAND"TEXT" XX1 1.25 0 "N=") fUKi@*^ZUa  
  (COMMAND"TEXT" YY1 1.25 0 "E=") H$M{thW  
) BJ*8mKi h  
) G2 {R5F !  
) P9yg  
(DEFUN C:zb5() n=iL6Yu(  
(setq cc 1) ]tsp}M@  
(setq cc (getint "输入点编号<1>:")) q
K-\`m  
(repeat 1000 ]8o[&50y  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") \c(Z?`p]R1  
(command "dimzin" "0") qGkD] L  
(command "layer" "new" "zb_1" "") jCK 0+,;  
(setvar "clayer" "zb_1" ) 8M6wc394  
(command "color" 1) o=)["V  
(command "osnap" "int") Dkyw3*LCn%  
(command "osnap" "end") ~TfN*0  
(command "osmode" 1) :k/Z|  
(SETQ P1 (GETPOINT"Pick the zb point:")) zd0[f3~  
(command "osmode" 0) .~AQxsGH  
(SETQ P2 (GETPOINT P1)) Fi8#r)G.  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) aGs\zCAP  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) k [eWhdSw  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) crlCN  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) 9D`p2cO  
(SETQ XX (RTOS (CAR P1) 2 3)) wf""=;  
(SETQ YY (RTOS (CADR P1) 2 3)) GOU>j"5}2  
(SETQ L1 (STRLEN XX)) J#) %{k_  
(SETQ L2 (STRLEN YY)) {oVoN>gp  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) @Wl2E.)K;  
(COMMAND"LINE" P1 P2"") D:=Q)Uh0I  
(command "layer" "new" "zb_2" "") 2t}^8  
(setvar "clayer" "zb_2" ) wQw&.)T  
(IF (>= (CAR P2)(CAR P1)) ~{00moN"m  
  (PROGN A$1Gc>C  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) tO~o-R  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) MZWicfUy  
  (command"circle" p4 7"") [kKg?I$D@B  
  (COMMAND"LINE" P2 P3"") [,T
K"  
  (setq bb 2.5) H$)__V5I,q  
  (IF (<= cc 9 )(setq bb 5)) {^A,){uX]  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) P ~rTuj  
  (COMMAND"TEXT" X2 5 0 YY) N /Fa^[  
  (COMMAND"TEXT" Y2 5 0 XX) j21>\K!p  
  (COMMAND"TEXT" X1 5 0 "N") Vg^,Ky,  
  (COMMAND"TEXT" Y1 5 0 "E") IfzW%UL  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) Sau?Y  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) [J\! 2\Oo  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) j`l'Mg  
  (command"text" p5 6 0 cc) @3_."-
d  
  ) #q9cjEd_7  
  (PROGN Mh"vH0\Lj  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) kJNu2S  
  (setq p4 (list (- (car p3) 7)(cadr p2))) VK[`e[.C  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) "NvB@>S  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) g$T% C?  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) e\95X{_'  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) X$(YCb  
  (COMMAND"LINE" P2 P3"") f\X7h6k8{  
  (command"circle" p4 7) EHH+)mlo  
  (setq bb 12) #v\o@ArX  
  (IF (<= cc 9 )(setq bb 8)) X*< !_3  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) tdOox87YK  
  (COMMAND"TEXT" X22 5 0 YY) N?l  
  (COMMAND"TEXT" Y22 5 0 XX) 5c 69M5  
  (COMMAND"TEXT" XX1 5 0 "N") /;;$9O9  
  (COMMAND"TEXT" YY1 5 0 "E") "}^}3"/.  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) \rSofn#c  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) uZXG"  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) i:n1Di1~E  
  (command"text" p5 6 0 cc) 
jpt-5@5O  
  ) 9D{p^hd  
) c+N\uG4  
(setq cc (+ cc 1)) Q=?YY-*$  
/|WBk}  
) !f01.Tq8  
)

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

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