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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． ;kQhx6Z  
4y?n [/M/  
(DEFUN C:zb() +>{2*\cZ5}  
(command "dimzin" "0") )._;~z!  
(command "layer" "new" "zb_1" "") q4:o#K#  
(setvar "clayer" "zb_1" ) @ $ ;q;  
(command "color" 1) 6:[dj*KGmT  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ]Idk:et  
(command "osnap" "int") -`kW&I0  
(command "osnap" "end") Eqd<MY7  
(command "osmode" 1) JN-y)L/>  
(SETQ P1 (GETPOINT"Pick the zb point:")) q460iL7yF}  
(command "osmode" 0) ]Kt6^|S$a  
(SETQ P2 (GETPOINT P1)) w!-gJmX>  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) JV^=v@Z3  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) *SDs;kg  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) %~H-)_d20  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) yy^q2P  
(SETQ XX (RTOS (CAR P1) 2 3)) ~*&H$6NJS  
(SETQ YY (RTOS (CADR P1) 2 3)) D09Sg%w  
(SETQ L1 (STRLEN XX)) P6'1.R  
(SETQ L2 (STRLEN YY)) Z*]9E^  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) %op**@4/t\  
(COMMAND"LINE" P1 P2"") Db}j?ik/  
(command "layer" "new" "zb_2" "") ah4N|zJ>v  
(setvar "clayer" "zb_2" ) r"3=44St  
(IF (>= (CAR P2)(CAR P1)) FF`T\&u  
  (PROGN \R9(x]nZ%  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) `_Zg3_K.dS  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) F4-$~v@  
  (COMMAND"LINE" P2 P3"") Mlg0WrJ|2  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) ok"
k*?Ov  
  (COMMAND"TEXT" X2 5 0 YY) KEo,m  
  (COMMAND"TEXT" Y2 5 0 XX) E1aHKjLQ  
  (COMMAND"TEXT" X1 5 0 "N") r4b 6 c  
  (COMMAND"TEXT" Y1 5 0 "E") T9E+\D  
  ) (&Kk7<#`  
  (PROGN >-RQ]?^  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) Drgv`z  
  (setq p4 (list (- (car p3) 5)(cadr p2))) }#RakV4  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) `t>l:<@%  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) X6w6%fzOH>  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1)))
\$~|ZwV{  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) Wq D4YGN  
  (COMMAND"LINE" P2 P3"") T@H^BGs  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) "+R+6<"  
  (COMMAND"TEXT" X22 5 0 YY) 1APe=tJ  
  (COMMAND"TEXT" Y22 5 0 XX) $D~0~gn~  
  (COMMAND"TEXT" XX1 5 0 "N") 2. NN8PPD"  
  (COMMAND"TEXT" YY1 5 0 "E") xf\C|@i  
  ) }1L4"}L.  
) eH'av}  
) x}wG:K  
(DEFUN C:zb3() P-9)38`5  
(command "dimzin" "0") HYD'.uj  
(command "layer" "new" "zb_1" "") Y!aSs3c  
(setvar "clayer" "zb_1" ) <[a=ceL]|  
(command "color" 1) D#9m\o_  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") /Iu1L#  
(command "osnap" "int") dK$XNi13.5  
(command "osnap" "end") q<x/Hat)  
(command "osmode" 1) m^!Z_]A![  
(SETQ P1 (GETPOINT"Pick the zb point:")) IEL%!RFG  
(command "osmode" 0) {K~'K+TPu  
(SETQ P2 (GETPOINT P1)) P8OaoPj  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) hIYNhZv  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) PV.Xz0@R  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) Z\bmW%av  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) D=A&+6B@-  
(SETQ XX (RTOS (CAR P1) 2 3)) k$^UUo6  
(SETQ YY (RTOS (CADR P1) 2 3)) #ZUI)9My@  
(SETQ L1 (STRLEN XX)) gMi
0FO'  
(SETQ L2 (STRLEN YY)) NR$3%0 nC6  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) >4x(e\B  
(COMMAND"LINE" P1 P2"") H5/6TX72N  
(command "layer" "new" "zb_2" "") \i>?q  
(setvar "clayer" "zb_2" ) B-RjMxX4>  
(IF (>= (CAR P2)(CAR P1)) 2lZ Q)  
  (PROGN j7Yu>cr  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) hE:9{;Gf  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) nUaJz
Pl  
  (COMMAND"LINE" P2 P3"") )NW)R*m~D  
  (COMMAND"TEXT" X2 2.5 0 YY) +)AG*  
  (COMMAND"TEXT" Y2 2.5 0 XX) <q58uuK  
  (COMMAND"TEXT" X1 2.5 0 "N=") %:f&.@'r  
  (COMMAND"TEXT" Y1 2.5 0 "E=") (q/e1L-S  
  ) ~p6 V,Q  
  (PROGN xJpA0_xfG  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) d"
1]4.c  
  (setq p4 (list (- (car p3) 3)(cadr p2))) mX"oW_EK  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) ^do9*YejX;  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) /aCc17>2V{  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) #Qw0&kM7I  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) l K{hVqpt  
  (COMMAND"LINE" P2 P3"") o+iiSTJEe  
  (COMMAND"TEXT" X22 2.5 0 YY) kM l+yli3c  
  (COMMAND"TEXT" Y22 2.5 0 XX) EmWn%eMN  
  (COMMAND"TEXT" XX1 2.5 0 "N=") VcE:G#]5  
  (COMMAND"TEXT" YY1 2.5 0 "E=") |u% )gk  
) d UE,U=  
) eI}aQ]$ED  
) k!
j5tsiR  
(DEFUN C:zb2() [-1^-bb  
(command "dimzin" "0") 4&lv6`G `  
(command "layer" "new" "zb_1" "") AEI>\Y  
(setvar "clayer" "zb_1" ) FW;?s+Uyx  
(command "color" 1) caR<Kb:;*  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") IxN9&xa
  
(command "osnap" "int") v|,1[i{  
(command "osnap" "end") ;vR4XHl|  
(command "osmode" 1) Vi
$~-6n&  
(SETQ P1 (GETPOINT"Pick the zb point:")) #<"~~2?  
(command "osmode" 0) tyDU @M  
(SETQ P2 (GETPOINT P1)) mkk6`,ov  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) \[i1JG  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) .[KrlfI  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) 8}x:`vDK  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) WF+99?75  
(SETQ XX (RTOS (CAR P1) 2 3)) ha<[bue  
(SETQ YY (RTOS (CADR P1) 2 3)) ea2ayT  
(SETQ L1 (STRLEN XX)) J
7$5s  
(SETQ L2 (STRLEN YY)) qbN =
4  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) %)8}X>xq  
(COMMAND"LINE" P1 P2"") \~mT] '5  
(command "layer" "new" "zb_2" "") KhR81\  
(setvar "clayer" "zb_2" ) ;u ({\K
 
(IF (>= (CAR P2)(CAR P1)) i v38p%Zm  
  (PROGN E?f-wQF  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) /)>3Nq4Zx  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) !X#OOqPr=  
  (COMMAND"LINE" P2 P3"") BsDn5\q  
  (COMMAND"TEXT" X2 1.25 0 YY) K&]G3W%V  
  (COMMAND"TEXT" Y2 1.25 0 XX) h 0Q5-EA  
  (COMMAND"TEXT" X1 1.25 0 "N=") e\l7Iu  
  (COMMAND"TEXT" Y1 1.25 0 "E=") >Eto( y"q  
  ) kd(8
I_i@  
  (PROGN CNyIQ}NJ  
  (setq l (* l 1.1)) CAWN
Dl4  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) e{K 215  
  (setq p4 (list (- (car p3) 3)(cadr p2))) 1N-\j0au  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) c ( C%Hld  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) b94DJzL1z  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) 83\pZ1>)_  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) '[:D$q;  
  (COMMAND"LINE" P2 P3"") u'DRN,h+  
  (COMMAND"TEXT" X22 1.25 0 YY) sY Q
k  
  (COMMAND"TEXT" Y22 1.25 0 XX) Qbn"=n2  
  (COMMAND"TEXT" XX1 1.25 0 "N=") "Ac-tzhE  
  (COMMAND"TEXT" YY1 1.25 0 "E=") .@U@xRu7|  
) X`>i&I]  
) 5L%'@`mX  
) Rtl"Ub@HV  
(DEFUN C:zb5() zu{P#~21  
(setq cc 1) q"J]%zO  
(setq cc (getint "输入点编号<1>:")) 2r?G6D|  
(repeat 1000 _op}1   
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") X *"i6*  
(command "dimzin" "0") h2]P]@nW;W  
(command "layer" "new" "zb_1" "") Yu^4VXp~M%  
(setvar "clayer" "zb_1" ) agDM~=#F  
(command "color" 1) :KP@RZm  
(command "osnap" "int") k)=s>&hl  
(command "osnap" "end") H=
v
UYz  
(command "osmode" 1) '$(^W@M#6  
(SETQ P1 (GETPOINT"Pick the zb point:")) WO>nIo5Y  
(command "osmode" 0) s$`0yGmQ  
(SETQ P2 (GETPOINT P1)) F/kWHVHU[  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) {]@= ijjf  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) 08\,<9  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) V5>B])yQ  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) `e&Suyf4B  
(SETQ XX (RTOS (CAR P1) 2 3)) @:vwb\azVD  
(SETQ YY (RTOS (CADR P1) 2 3)) L^?qOylu  
(SETQ L1 (STRLEN XX)) xdt- ;w|  
(SETQ L2 (STRLEN YY)) :J&oX <nF^  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) vr6w^&[c^  
(COMMAND"LINE" P1 P2"") s-Tv8goNV  
(command "layer" "new" "zb_2" "") >@_^fw)  
(setvar "clayer" "zb_2" ) .?sx&2R2  
(IF (>= (CAR P2)(CAR P1)) 3,qr-g|;jM  
  (PROGN 8wFJ4v3  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) ^k">A:E2  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) z$. 88^  
  (command"circle" p4 7"") j6 z^Tt12  
  (COMMAND"LINE" P2 P3"") /7F:T[  
  (setq bb 2.5) vX
ZOy%$o  
  (IF (<= cc 9 )(setq bb 5)) %l[( Iw  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) -C]5>& W  
  (COMMAND"TEXT" X2 5 0 YY) &B1WtW
 
  (COMMAND"TEXT" Y2 5 0 XX) W.KDVE$}f  
  (COMMAND"TEXT" X1 5 0 "N") /@TF5]Ri  
  (COMMAND"TEXT" Y1 5 0 "E") @`- 4G2IU}  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) z<XtS[ki
 
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) >U27];}y  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) .p" xVfi6  
  (command"text" p5 6 0 cc) HY:o+ciH'  
  ) 6mxfLlZ  
  (PROGN M!D3}JRm  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) 1^JS Dd  
  (setq p4 (list (- (car p3) 7)(cadr p2))) bP&]!jZ  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) ~U&AI1t+J  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) B*Dz{a^.:  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) 12gU{VD  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) v;D~Pa  
  (COMMAND"LINE" P2 P3"") H8}oIA"b  
  (command"circle" p4 7) LBDjIpR6  
  (setq bb 12) k>si5'W  
  (IF (<= cc 9 )(setq bb 8)) K_Eux rPn  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) 5D//*}b,  
  (COMMAND"TEXT" X22 5 0 YY) Ry6@VQ"NLb  
  (COMMAND"TEXT" Y22 5 0 XX) Q K<"2p?  
  (COMMAND"TEXT" XX1 5 0 "N") pB0 \\wR  
  (COMMAND"TEXT" YY1 5 0 "E") ":QZy8f9%  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) \bvfEP  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n"))
LsU9 .  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) }a(dyr`S  
  (command"text" p5 6 0 cc) z1X`o  
  ) k!'a,R:  
) {9.|2%a  
(setq cc (+ cc 1)) oE]QF.n#  
r$s Qf&=  
) NyNXP_8  
)

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

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