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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． ri-b=|h2j  
AFE~ v\Gz  
(DEFUN C:zb() <x>Mo   
(command "dimzin" "0") cTTL1SW  
(command "layer" "new" "zb_1" "") m^;f(IK5  
(setvar "clayer" "zb_1" ) )bscBj@  
(command "color" 1) T{[=oH+  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") |Ds1  
(command "osnap" "int") <frutU16\  
(command "osnap" "end") :,6\"y-  
(command "osmode" 1) amY!qg0P*  
(SETQ P1 (GETPOINT"Pick the zb point:")) &6nWzF  
(command "osmode" 0) T1=fNF  
(SETQ P2 (GETPOINT P1)) s
?L  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) &&>ekG9@  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) p H2Sbs:Tk  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) 9CD_os\h  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) 0YDR1dO(*  
(SETQ XX (RTOS (CAR P1) 2 3)) r3UUlR/Do  
(SETQ YY (RTOS (CADR P1) 2 3)) /f;~X"!  
(SETQ L1 (STRLEN XX)) h2fNuu"  
(SETQ L2 (STRLEN YY)) &gx%b*;`L0  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) {9q4)R}G  
(COMMAND"LINE" P1 P2"") U&p${IcEm  
(command "layer" "new" "zb_2" "") 2g! +<YZ~  
(setvar "clayer" "zb_2" ) aAUvlb  
(IF (>= (CAR P2)(CAR P1)) ,Ko!$29[  
  (PROGN -e:`|(Mo  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) P+/e2Y  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) c\AfaK^KF  
  (COMMAND"LINE" P2 P3"") cSV aI  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) 1yu4emye4  
  (COMMAND"TEXT" X2 5 0 YY) g]0_5?i  
  (COMMAND"TEXT" Y2 5 0 XX) *gWwALGo5  
  (COMMAND"TEXT" X1 5 0 "N") 1p=]hC  
  (COMMAND"TEXT" Y1 5 0 "E") c5GuM|*7  
  ) 5$C-9  
  (PROGN $6SW;d+>n  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) +52{-a,>  
  (setq p4 (list (- (car p3) 5)(cadr p2))) ~b8]H|<'Y  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) pFjK}JOF  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) Er?&Y,o  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) 1iF1GkLEq  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) ~Z'?LV<t  
  (COMMAND"LINE" P2 P3"") TuaBm1S{f  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) i=2N;sAl  
  (COMMAND"TEXT" X22 5 0 YY) [/8%3  
  (COMMAND"TEXT" Y22 5 0 XX) e$rZ5X  
  (COMMAND"TEXT" XX1 5 0 "N") IjnU?Bf  
  (COMMAND"TEXT" YY1 5 0 "E") 7-fb.V9  
  ) 8KzkB;=n  
) }k.Z~1y  
) e+fN6v5pU  
(DEFUN C:zb3() m ~$v;?i  
(command "dimzin" "0") ysY*k`5  
(command "layer" "new" "zb_1" "")
fe_5LC"  
(setvar "clayer" "zb_1" ) 6.yu-xm
 
(command "color" 1) ]:J$w]\  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 7HYwLG:\~  
(command "osnap" "int") uQKT  
(command "osnap" "end") AH~E)S  
(command "osmode" 1) O?#7N[7  
(SETQ P1 (GETPOINT"Pick the zb point:")) FGq[\B  
(command "osmode" 0) .HABNPNg(  
(SETQ P2 (GETPOINT P1)) Uw<nxD/+  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) [ub e6  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) DkDmE  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) 7WzxA=*#  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) 5]:U9ts#  
(SETQ XX (RTOS (CAR P1) 2 3)) +9sQZB# (  
(SETQ YY (RTOS (CADR P1) 2 3)) dioGAai'  
(SETQ L1 (STRLEN XX))  N4TV  
(SETQ L2 (STRLEN YY)) 5*u+q2\F  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) \1M4Dl5!  
(COMMAND"LINE" P1 P2"") gL/9/b4  
(command "layer" "new" "zb_2" "") ysnx3(+|  
(setvar "clayer" "zb_2" ) *MW\^PR?  
(IF (>= (CAR P2)(CAR P1)) 'i|YlMFIg  
  (PROGN ]u/sphPe  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) )MT}+ai  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) {Ou1KDy#)  
  (COMMAND"LINE" P2 P3"") XfIJ4ZM5  
  (COMMAND"TEXT" X2 2.5 0 YY) ]JQULE)  
  (COMMAND"TEXT" Y2 2.5 0 XX) ":N9(}9  
  (COMMAND"TEXT" X1 2.5 0 "N=") >9Vn.S  
  (COMMAND"TEXT" Y1 2.5 0 "E=") l,aay-E  
  ) .O<obq~;C  
  (PROGN <qt|d&  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) C\hM =%  
  (setq p4 (list (- (car p3) 3)(cadr p2))) FW DNpr  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) {R{=+2K!|k  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) ~v6D#@%A  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) j3ls3H&  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) 0#gK6o!  
  (COMMAND"LINE" P2 P3"") 2y1Sne=<Kb  
  (COMMAND"TEXT" X22 2.5 0 YY) DzRFMYBR  
  (COMMAND"TEXT" Y22 2.5 0 XX) AFt s(  
  (COMMAND"TEXT" XX1 2.5 0 "N=") NDokSw-  
  (COMMAND"TEXT" YY1 2.5 0 "E=") yEy6]f+>+  
) ti,d&c_7  
) KwVbbC3  
) ` 5>b:3  
(DEFUN C:zb2() [{/jI\?v  
(command "dimzin" "0") ChQxa  
(command "layer" "new" "zb_1" "") E92-^YY  
(setvar "clayer" "zb_1" ) [()koU#w.  
(command "color" 1) )fAUum  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 'dc#F3  
(command "osnap" "int") %J-GKpo/S  
(command "osnap" "end") o^wqFX(Y  
(command "osmode" 1) 9+!hg'9Qn  
(SETQ P1 (GETPOINT"Pick the zb point:")) +LJ73 !  
(command "osmode" 0) @>7%qS  
(SETQ P2 (GETPOINT P1)) _,*r_D61S  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) &BSn?  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) hXya*#n#  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) ,<X9Y2B  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) Gav$HLx  
(SETQ XX (RTOS (CAR P1) 2 3))
LFV%&y|L  
(SETQ YY (RTOS (CADR P1) 2 3)) #Bw0,\  
(SETQ L1 (STRLEN XX)) y8xE 6i  
(SETQ L2 (STRLEN YY)) EKN~H$.  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) |k9 C/  
(COMMAND"LINE" P1 P2"") NwfVL4Xg  
(command "layer" "new" "zb_2" "") a,o*=r  
(setvar "clayer" "zb_2" ) DVeE1Q  
(IF (>= (CAR P2)(CAR P1)) .fs3
>@T"#  
  (PROGN 9A#i_#[R  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) y|jq?M<A  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) tQ601H>o  
  (COMMAND"LINE" P2 P3"") bW:!5"_{H  
  (COMMAND"TEXT" X2 1.25 0 YY) y<.5xq5_3  
  (COMMAND"TEXT" Y2 1.25 0 XX) 5~S5F3  
  (COMMAND"TEXT" X1 1.25 0 "N=") u$`a7Lp,n  
  (COMMAND"TEXT" Y1 1.25 0 "E=") Ew$C ;&9  
  ) ` G kX  
  (PROGN 6wg^FD_Q  
  (setq l (* l 1.1)) \}G^\p6?M  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) uEx-]F  
  (setq p4 (list (- (car p3) 3)(cadr p2))) u]G\H!WkQ  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) c1gQ cqF  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) - ! S_ryL  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) 4I(Xy]wm  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) K.yb ^dg5  
  (COMMAND"LINE" P2 P3"") _WbxH  
  (COMMAND"TEXT" X22 1.25 0 YY) c4zR*  
  (COMMAND"TEXT" Y22 1.25 0 XX) MfkN]\Jyw  
  (COMMAND"TEXT" XX1 1.25 0 "N=") 8l">cVo]T  
  (COMMAND"TEXT" YY1 1.25 0 "E=") J,6yYIq  
) \^1E4C\":  
) lr$zHI7_`  
) ABYcH]m  
(DEFUN C:zb5() >C~6\L`c  
(setq cc 1) 8JUwf  
(setq cc (getint "输入点编号<1>:")) BLJj(-  
(repeat 1000 {7pli{`  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") H%lVl8oQ  
(command "dimzin" "0") r@,2E6xn  
(command "layer" "new" "zb_1" "") (4-CF
3D  
(setvar "clayer" "zb_1" ) Yoll?_k+  
(command "color" 1) *gz{.)W  
(command "osnap" "int") 7>*vI7O0l  
(command "osnap" "end") YA5g';$H*  
(command "osmode" 1) P1f[%1  
(SETQ P1 (GETPOINT"Pick the zb point:")) ?Ss!e$jf  
(command "osmode" 0) AT|3:]3E  
(SETQ P2 (GETPOINT P1)) kAGBdaJ"  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) /_ajaz%  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) "C`Ub  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) QP J4~  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) u\JNr}bL  
(SETQ XX (RTOS (CAR P1) 2 3)) 8}| (0mC  
(SETQ YY (RTOS (CADR P1) 2 3)) M
\Kx'N  
(SETQ L1 (STRLEN XX)) UW EV^ &"x  
(SETQ L2 (STRLEN YY)) jRV/A!4  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) SasJic2M  
(COMMAND"LINE" P1 P2"") }RqK84K  
(command "layer" "new" "zb_2" "") $iz|\m  
(setvar "clayer" "zb_2" ) H$4:lH&(  
(IF (>= (CAR P2)(CAR P1)) {Y9q[D'g.  
  (PROGN Ma"]PoP  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) lHX72s|V  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) kMd.h[X~  
  (command"circle" p4 7"") f& '  
  (COMMAND"LINE" P2 P3"") VW4r{&rS  
  (setq bb 2.5) C;urBsC  
  (IF (<= cc 9 )(setq bb 5)) Th%Sjgsn
 
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) a:6m7U)P#5  
  (COMMAND"TEXT" X2 5 0 YY) d6 5L!4  
  (COMMAND"TEXT" Y2 5 0 XX) ekCC5P!  
  (COMMAND"TEXT" X1 5 0 "N") n.0fVV-A  
  (COMMAND"TEXT" Y1 5 0 "E") XpJ7o=?W3  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) sLQ^F  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) 4r}8lpF_(  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) sON|w86B  
  (command"text" p5 6 0 cc) @<&m|qtMsz  
  ) g}',(tPMZ  
  (PROGN _5N]B|cO  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) 
3$9W%3  
  (setq p4 (list (- (car p3) 7)(cadr p2))) sLAQE64\"  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) /I0%Z+`=  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) pIX`MlBdF  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) e^D]EA]%  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) b1?'gn~  
  (COMMAND"LINE" P2 P3"") ,\%c^,HLJ  
  (command"circle" p4 7) 9-*uPK]m9  
  (setq bb 12) >\3V a  
  (IF (<= cc 9 )(setq bb 8)) k+pr \d~  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) ^.NU|NQi'  
  (COMMAND"TEXT" X22 5 0 YY) (JFWna0@  
  (COMMAND"TEXT" Y22 5 0 XX) 9zy!Fq  
  (COMMAND"TEXT" XX1 5 0 "N") O@C@eW#  
  (COMMAND"TEXT" YY1 5 0 "E") r\V ={p  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) 6j
LCU%^  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) kpN)zxfk  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) '(|ofJe!  
  (command"text" p5 6 0 cc) hx]?&zT@  
  ) SNI)9k(T{  
) B,epzI  
(setq cc (+ cc 1)) [K0(RDV)%  
7E~;xn;  
) IB]l1<  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. O.M>+~Nw  
'