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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． D(}v`q{Y  
R|8)iW^  
(DEFUN C:zb() S'V0c%'QQV  
(command "dimzin" "0") aD3'gc,l  
(command "layer" "new" "zb_1" "") 8:-[wl/@  
(setvar "clayer" "zb_1" ) W*-+j*e|_P  
(command "color" 1) J}KATpHs  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") _=j0Y=/IF  
(command "osnap" "int") G[6V=G  
(command "osnap" "end") "sf8~P9qy  
(command "osmode" 1) 1I KDp]SN  
(SETQ P1 (GETPOINT"Pick the zb point:")) rO 6oVz#x  
(command "osmode" 0) A;w,m{9<  
(SETQ P2 (GETPOINT P1)) *gu~7&yoP  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) Z KnEg2a  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) bWwc2##7jo  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) zF(I#|Vo  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) A[;R_  
(SETQ XX (RTOS (CAR P1) 2 3)) s9qr;}U.`  
(SETQ YY (RTOS (CADR P1) 2 3)) vhZpYW8  
(SETQ L1 (STRLEN XX)) ]gkI:scPA  
(SETQ L2 (STRLEN YY)) d/- f]   
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) h5x FP  
(COMMAND"LINE" P1 P2"") !3$Ph  
(command "layer" "new" "zb_2" "") 9pStArF?F0  
(setvar "clayer" "zb_2" ) k5=0L_xc  
(IF (>= (CAR P2)(CAR P1)) =4/lJm
``  
  (PROGN j,Qp*b#Qo  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) j*g5f  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) .5|wy<  
  (COMMAND"LINE" P2 P3"") WU{G_Fqaz  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) E@R7b(:*  
  (COMMAND"TEXT" X2 5 0 YY) $~50M5&K#  
  (COMMAND"TEXT" Y2 5 0 XX) -GCGxC2u  
  (COMMAND"TEXT" X1 5 0 "N") Oh~JyrZy  
  (COMMAND"TEXT" Y1 5 0 "E") >&e|ins^N  
  ) +K;(H']Z<-  
  (PROGN RMmDcvM"k  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) `pm6Ts{,  
  (setq p4 (list (- (car p3) 5)(cadr p2))) # o)a`,f  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) d~O\zLQ;  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) Fc7mAV=  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) #=5/D@  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) @xB"9s  
  (COMMAND"LINE" P2 P3"") Am!$\T%2  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) {?l#*XH;  
  (COMMAND"TEXT" X22 5 0 YY) &BCl>^wn}  
  (COMMAND"TEXT" Y22 5 0 XX) `*8p T  
  (COMMAND"TEXT" XX1 5 0 "N") n'1pNL:  
  (COMMAND"TEXT" YY1 5 0 "E") vl2!2X  
  ) #G|iEC0C  
) hFZ7
{pj  
) <y\>[7Y  
(DEFUN C:zb3() (m=-oQ&Ro  
(command "dimzin" "0") S!2M?}LU  
(command "layer" "new" "zb_1" "")  MI!C%  
(setvar "clayer" "zb_1" ) *xM4nUu<~  
(command "color" 1) sk$MJSE ~  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") CP'?Om2  
(command "osnap" "int") :^1 Xfc"  
(command "osnap" "end") 5X nA.?F^  
(command "osmode" 1) jUZ84Gm{  
(SETQ P1 (GETPOINT"Pick the zb point:")) {G/4#r 2>  
(command "osmode" 0) a*NcL(OC  
(SETQ P2 (GETPOINT P1)) S*IF/ fu  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) A/W0O;*q  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) L=VJl[DL  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) }X)mZyM[  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) M2[;b+W9  
(SETQ XX (RTOS (CAR P1) 2 3)) tV@!jaj\  
(SETQ YY (RTOS (CADR P1) 2 3)) {*`qL0u]^  
(SETQ L1 (STRLEN XX)) 7 \!t/<  
(SETQ L2 (STRLEN YY)) ; @-7'%(C  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) C*b!E:  
(COMMAND"LINE" P1 P2"") 2ME3=C  
(command "layer" "new" "zb_2" "") :Y0*P  
(setvar "clayer" "zb_2" ) GTNN4  
(IF (>= (CAR P2)(CAR P1)) U=QV^I Qm  
  (PROGN nv*q N\i'  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) =5oE|F%  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) QW|,_u5j  
  (COMMAND"LINE" P2 P3"") fZ]
Y  
  (COMMAND"TEXT" X2 2.5 0 YY) 'F?T4  
  (COMMAND"TEXT" Y2 2.5 0 XX) V3xC"maA@  
  (COMMAND"TEXT" X1 2.5 0 "N=") t@>Uc`%  
  (COMMAND"TEXT" Y1 2.5 0 "E=") 5
pI2G  
  ) |OUr=b  
  (PROGN i(2s"Uww,  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) HzF  
  (setq p4 (list (- (car p3) 3)(cadr p2))) tqAh&TW3+  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) B~V^?."  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) X&TTw/J!^  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) 41^+T<+  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) dMQtW3stY  
  (COMMAND"LINE" P2 P3"") VW I{ wC  
  (COMMAND"TEXT" X22 2.5 0 YY) ((N<2G)  
  (COMMAND"TEXT" Y22 2.5 0 XX) =\ iV=1iB  
  (COMMAND"TEXT" XX1 2.5 0 "N=") {XC# -3O  
  (COMMAND"TEXT" YY1 2.5 0 "E=") pz6fL=Xd  
) SQ]&nDd  
) My76]\Psh  
) n
xKV7d@R  
(DEFUN C:zb2() n87B[R  
(command "dimzin" "0") O2q`2L~  
(command "layer" "new" "zb_1" "") X.}:gU-  
(setvar "clayer" "zb_1" ) ]P<u^ `{*  
(command "color" 1) O2us+DhQ  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") hoD (G X  
(command "osnap" "int") k!>MZ  
(command "osnap" "end") ZTVX5"#Q  
(command "osmode" 1) tVvRT*>Wb  
(SETQ P1 (GETPOINT"Pick the zb point:")) Im+<oZ  
(command "osmode" 0) g599Lc&  
(SETQ P2 (GETPOINT P1)) TPt<(-}W  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) ,sn ?V~)  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) /^G1wz2  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) g[0b>r7   
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) dG'aJQ
w  
(SETQ XX (RTOS (CAR P1) 2 3)) D1;H,  
(SETQ YY (RTOS (CADR P1) 2 3)) s6lo11  
(SETQ L1 (STRLEN XX)) D?)91P/R  
(SETQ L2 (STRLEN YY)) EQ-r  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) w [D9Q=  
(COMMAND"LINE" P1 P2"") LS+ _y<v=  
(command "layer" "new" "zb_2" "") ^9%G7J:vGO  
(setvar "clayer" "zb_2" ) mMS%O]m,|  
(IF (>= (CAR P2)(CAR P1)) B4r4PSB>!  
  (PROGN c-z ,}`  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) .v9#|d d+  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 81O`#DfZ  
  (COMMAND"LINE" P2 P3"") _)yn6M'Dt  
  (COMMAND"TEXT" X2 1.25 0 YY) 5yI_uQR  
  (COMMAND"TEXT" Y2 1.25 0 XX) vXAO#'4tm%  
  (COMMAND"TEXT" X1 1.25 0 "N=") =[FNZ:3  
  (COMMAND"TEXT" Y1 1.25 0 "E=") ZC@ 33Q(  
  ) 200/  
  (PROGN (2[tQ`~  
  (setq l (* l 1.1)) kKr7c4q  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) 1CU-^j  
  (setq p4 (list (- (car p3) 3)(cadr p2))) 'mXf8   
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) #pErGz'{  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) A/|To!R  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) `6)GjZh^  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) !<Ma9%uC{  
  (COMMAND"LINE" P2 P3"") 0+}42g|_Z  
  (COMMAND"TEXT" X22 1.25 0 YY) 2)Grl;T]s  
  (COMMAND"TEXT" Y22 1.25 0 XX) Cz-eiPlq  
  (COMMAND"TEXT" XX1 1.25 0 "N=") uwXquOw  
  (COMMAND"TEXT" YY1 1.25 0 "E=") G?jKm_`L  
) Q35$GFj"jD  
) PF2PMEBx!  
) Waj6.PCFm  
(DEFUN C:zb5() O[U^{~iM  
(setq cc 1) X&8&N
kH  
(setq cc (getint "输入点编号<1>:")) |`1lCyV\tE  
(repeat 1000 -Id4P _y  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") D kl4^}  
(command "dimzin" "0") y$Sn3_9 V  
(command "layer" "new" "zb_1" "")  ztKmB  
(setvar "clayer" "zb_1" ) HJo&
snT3  
(command "color" 1) [ma'11?G  
(command "osnap" "int") :$~)i?ge<5  
(command "osnap" "end") mFw`LvH?*  
(command "osmode" 1) Jajo!X*Wai  
(SETQ P1 (GETPOINT"Pick the zb point:")) KbQ UA$gL=  
(command "osmode" 0) NGOc:>}k>  
(SETQ P2 (GETPOINT P1)) 2
%'{f  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) o|*ao2a  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) ]wMd!.lm-  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) l<>syHCH;L  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) )gYsg  
(SETQ XX (RTOS (CAR P1) 2 3)) J70#pF  
(SETQ YY (RTOS (CADR P1) 2 3)) 0
D+[W5TB  
(SETQ L1 (STRLEN XX)) (, /`*GC  
(SETQ L2 (STRLEN YY)) {~_X-g5|]  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) CH[U.LJQ-O  
(COMMAND"LINE" P1 P2"") >k"Z'9l  
(command "layer" "new" "zb_2" "") =J
&vr  
(setvar "clayer" "zb_2" ) U$&G_&*0a  
(IF (>= (CAR P2)(CAR P1)) p#wQW[6  
  (PROGN [fiB!G]?  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) (/Lo44wT  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) !1$QNx
gi  
  (command"circle" p4 7"") eY)ugq>'  
  (COMMAND"LINE" P2 P3"") /bv1R5  
  (setq bb 2.5) pwtB{6)VH{  
  (IF (<= cc 9 )(setq bb 5)) yl/-!  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) !}<d6&!py  
  (COMMAND"TEXT" X2 5 0 YY) zRd^Uks  
  (COMMAND"TEXT" Y2 5 0 XX) @e8b'w3  
  (COMMAND"TEXT" X1 5 0 "N") o|
YY,G=C  
  (COMMAND"TEXT" Y1 5 0 "E") 5I`j'j  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) <^c?M[j  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) 3}@3pVS  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) y[:\kI  
  (command"text" p5 6 0 cc) Uoe;4ni  
  ) 9=O`?$y  
  (PROGN ?& qMC  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) zePVB-@u  
  (setq p4 (list (- (car p3) 7)(cadr p2))) 6c,]N@,Zw  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) HT0VdvLw  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) l\xcR]O  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) thy)J.<J  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) hOw  
  (COMMAND"LINE" P2 P3"") 1G$fU zS  
  (command"circle" p4 7) dQT A^m  
  (setq bb 12) ``$Dgj[  
  (IF (<= cc 9 )(setq bb 8)) {}kE=L5  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) UmUw>+A  
  (COMMAND"TEXT" X22 5 0 YY) k&wCa<Rs~R  
  (COMMAND"TEXT" Y22 5 0 XX) epuN~T  
  (COMMAND"TEXT" XX1 5 0 "N") l2vIKc  
  (COMMAND"TEXT" YY1 5 0 "E") 
j*+[=X/  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) dmI~$*  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) 
XP'<\  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) |T\`wcP`q  
  (command"text" p5 6 0 cc) gBp,p\ Xc  
  ) r"sK@  
) OC34@YUj[  
(setq cc (+ cc 1)) K4~z@. G6*  
AiKja>Fl<  
) _&)^a)Nu  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. {9:[nqX  
'