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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． }Yp]A  
}pv<<7}|  
(DEFUN C:zb() ,y/N^^\  
(command "dimzin" "0") ys|};*  
(command "layer" "new" "zb_1" "") E)F"!56lV  
(setvar "clayer" "zb_1" ) ow,=M%x"0  
(command "color" 1) b=Y3O  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n")
Ib$
?[  
(command "osnap" "int") 1PT0<C-  
(command "osnap" "end") P3V}cGZ  
(command "osmode" 1) oOK&+r7  
(SETQ P1 (GETPOINT"Pick the zb point:")) 6-uB[$ko  
(command "osmode" 0) :@+@vM;gh  
(SETQ P2 (GETPOINT P1)) *5;#+%A  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) j es[a  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) z=VL|Du1OT  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) +)TOcxF%  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) !u|s|6{\  
(SETQ XX (RTOS (CAR P1) 2 3)) pc<A ,?  
(SETQ YY (RTOS (CADR P1) 2 3)) !:Clzlg  
(SETQ L1 (STRLEN XX)) woR }=\K  
(SETQ L2 (STRLEN YY)) W>`#`u  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) 6o]X.plr  
(COMMAND"LINE" P1 P2"") =%oKYQ  
(command "layer" "new" "zb_2" "") {siIRl2&  
(setvar "clayer" "zb_2" ) )NS&1$  
(IF (>= (CAR P2)(CAR P1)) CEp @-R  
  (PROGN KmRxbf  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) 6B>H75S+H  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) }K\m.+%=d  
  (COMMAND"LINE" P2 P3"") L<TL6  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) -m>ng E~q  
  (COMMAND"TEXT" X2 5 0 YY) q3R?8Mb  
  (COMMAND"TEXT" Y2 5 0 XX) M]OZS\9
.B  
  (COMMAND"TEXT" X1 5 0 "N") a,*~wmg  
  (COMMAND"TEXT" Y1 5 0 "E") d/`Q,Vl  
  ) R3;,EL{H&  
  (PROGN NEpom
E(>x  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) 5p.vo"7  
  (setq p4 (list (- (car p3) 5)(cadr p2))) tf VK  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) 0.9%m7.m  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) %q~
YJ*\  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) c/G4@D>  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) <@DF0x!  
  (COMMAND"LINE" P2 P3"") ;PO{ ips  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) UkE fuH  
  (COMMAND"TEXT" X22 5 0 YY) g/o@,
_  
  (COMMAND"TEXT" Y22 5 0 XX) ,-11w7y\  
  (COMMAND"TEXT" XX1 5 0 "N") *?2aIz"  
  (COMMAND"TEXT" YY1 5 0 "E") <}G*/ z?/  
  ) (Q_J{[F  
) ps DY}y\"  
) *Vbf;=Mb  
(DEFUN C:zb3() Y+,ii$Ce~  
(command "dimzin" "0") $Z{ap  
(command "layer" "new" "zb_1" "") +[JvpDv%  
(setvar "clayer" "zb_1" ) M@k8;_5  
(command "color" 1) ;.O#|Z[  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") N-0kB vo  
(command "osnap" "int") 4=G)j+RCH  
(command "osnap" "end") ZU=omRh5  
(command "osmode" 1)
-W/Lg5eK  
(SETQ P1 (GETPOINT"Pick the zb point:")) 5Iql%~_x  
(command "osmode" 0) 1Mftq4nq  
(SETQ P2 (GETPOINT P1)) Xjy5
Yj  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) @O!BQ^'hk#  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) ;qA(!`h+  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) ~o_zV'^f@o  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) mW/6FC  
(SETQ XX (RTOS (CAR P1) 2 3)) G`/5=  
(SETQ YY (RTOS (CADR P1) 2 3)) u<VR;p:y  
(SETQ L1 (STRLEN XX)) sew0n`d1  
(SETQ L2 (STRLEN YY)) 6.!aJJLN  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) ?06+"Z  
(COMMAND"LINE" P1 P2"") HX;JO[0  
(command "layer" "new" "zb_2" "") '7oW
N,-  
(setvar "clayer" "zb_2" ) ~`xaBz0q  
(IF (>= (CAR P2)(CAR P1)) 5f~49(v]  
  (PROGN pR3@loFQ`o  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2)))
mMNT.a
 
  (setq p4 (list (+ (car p3) 3)(cadr p2))) %`4\ 8H`  
  (COMMAND"LINE" P2 P3"") _d[4EY  
  (COMMAND"TEXT" X2 2.5 0 YY) Q7!";ol2  
  (COMMAND"TEXT" Y2 2.5 0 XX) X6T*?t3!9[  
  (COMMAND"TEXT" X1 2.5 0 "N=") ^$N}[1   
  (COMMAND"TEXT" Y1 2.5 0 "E=") lYF~CNvE  
  ) Smt&/~7D%  
  (PROGN L[D<e?j  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) \CY_nn|&g  
  (setq p4 (list (- (car p3) 3)(cadr p2))) lpy(un  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) !`A]
YcQ  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) )YtdU(^J$  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) kBRy(?Mft&  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) TtWE:xE  
  (COMMAND"LINE" P2 P3"") Z\\'0yuY(  
  (COMMAND"TEXT" X22 2.5 0 YY) W$>AK_Y}  
  (COMMAND"TEXT" Y22 2.5 0 XX) aqw;T\GI+~  
  (COMMAND"TEXT" XX1 2.5 0 "N=") R4#56#d<  
  (COMMAND"TEXT" YY1 2.5 0 "E=") Izapx\GK9  
) .|VWYN  
) NwISf  
) <Z>p1S  
(DEFUN C:zb2() 8mmHefZ}2!  
(command "dimzin" "0") h1(GzL%i_  
(command "layer" "new" "zb_1" "") 
RBA{!  
(setvar "clayer" "zb_1" ) CJ~gE"  
(command "color" 1) tO@n3"O  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") :L6,=#  
(command "osnap" "int") G-DvM6T  
(command "osnap" "end") 4Odf6v,*@  
(command "osmode" 1) %>mB"Y,  
(SETQ P1 (GETPOINT"Pick the zb point:")) MYlPG1X=?  
(command "osmode" 0) &gr)U3w  
(SETQ P2 (GETPOINT P1)) +kj d;u#  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) ]\.3<^  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) >.76<fni  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) ru5T0w";V  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) mdB~~j  
(SETQ XX (RTOS (CAR P1) 2 3)) V6CRl&ZKO  
(SETQ YY (RTOS (CADR P1) 2 3)) wn&5Ul9Elb  
(SETQ L1 (STRLEN XX)) t0"2Si  
(SETQ L2 (STRLEN YY)) W]-c`32~S  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) >T)#KQ1t  
(COMMAND"LINE" P1 P2"") 9i?Q=Vuc~<  
(command "layer" "new" "zb_2" "") pR,eus;8  
(setvar "clayer" "zb_2" ) ar%!h~  
(IF (>= (CAR P2)(CAR P1)) j,J/iJs  
  (PROGN w vQ.9  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) @((Y[<  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) &~ .n}h&  
  (COMMAND"LINE" P2 P3"") EQvZ(-_;4  
  (COMMAND"TEXT" X2 1.25 0 YY) FRR`<do5$,  
  (COMMAND"TEXT" Y2 1.25 0 XX) g{U?Y"  
  (COMMAND"TEXT" X1 1.25 0 "N=") hgmo b"o  
  (COMMAND"TEXT" Y1 1.25 0 "E=") Z{ AF8r  
  ) dBG5IOD  
  (PROGN ~snYf7  
  (setq l (* l 1.1)) OngUZMgdb  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) ^rX5C2}G\D  
  (setq p4 (list (- (car p3) 3)(cadr p2))) "?f_U/+D<  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) <`P7^ 'z!  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) AnD#k
]  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) 3yXSv1  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) .}4^b\  
  (COMMAND"LINE" P2 P3"") .271at#-  
  (COMMAND"TEXT" X22 1.25 0 YY) t
m#[.  
  (COMMAND"TEXT" Y22 1.25 0 XX) nu<kx  
  (COMMAND"TEXT" XX1 1.25 0 "N=") O~bJ<O=?  
  (COMMAND"TEXT" YY1 1.25 0 "E=") zir?13N7  
) RX cfd-us  
) -nL!#R{e  
) -h`[w:  
(DEFUN C:zb5() =kiDW6 JJU  
(setq cc 1) 7&>==|
gt  
(setq cc (getint "输入点编号<1>:")) !hc#il'g].  
(repeat 1000 -SeHz.`N  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") c_Fz?R+f?K  
(command "dimzin" "0") Ce.*yO<-  
(command "layer" "new" "zb_1" "") Tsc2;I  
(setvar "clayer" "zb_1" ) )"sJaH
x<  
(command "color" 1) Pg%k>~i  
(command "osnap" "int") "NOll:5"(  
(command "osnap" "end") #BOLq`9f  
(command "osmode" 1) ` &{  
(SETQ P1 (GETPOINT"Pick the zb point:")) /8Xd2-  
(command "osmode" 0) ig}H7U2q@  
(SETQ P2 (GETPOINT P1)) T{B\1|2w  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) s^lm 81;  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) 9'I$8Su  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) $?M$^-(e  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) mgL{t"$c  
(SETQ XX (RTOS (CAR P1) 2 3)) V=-hqo(  
(SETQ YY (RTOS (CADR P1) 2 3)) qQ^bUpk0  
(SETQ L1 (STRLEN XX)) _Y8RP%  
(SETQ L2 (STRLEN YY)) Z-;I,\Y%  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) yGZsPQIaV  
(COMMAND"LINE" P1 P2"") u7G9 eN  
(command "layer" "new" "zb_2" "") =t!$72g\  
(setvar "clayer" "zb_2" ) ^sb+|b  
(IF (>= (CAR P2)(CAR P1))
t}m"rMbt  
  (PROGN rd hM#?  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) eGE[4Z  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) vIpitbFC  
  (command"circle" p4 7"") <HMmsw  
  (COMMAND"LINE" P2 P3"") $QC^hC  
  (setq bb 2.5) 1_RN*M+#  
  (IF (<= cc 9 )(setq bb 5)) ;:4PT~\*  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) w7"&\8a  
  (COMMAND"TEXT" X2 5 0 YY) ~X2 cTG
!,  
  (COMMAND"TEXT" Y2 5 0 XX) _a&Mk  
  (COMMAND"TEXT" X1 5 0 "N") US2Tdmy@05  
  (COMMAND"TEXT" Y1 5 0 "E") -xMM}r y  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) T.B}k`$  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) .~Y% AI  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) c3X8Wi7m  
  (command"text" p5 6 0 cc) K
sFkC=  
  ) <cNg_ZZ;8  
  (PROGN ?I}0[+)V  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) wpS $-  
  (setq p4 (list (- (car p3) 7)(cadr p2))) snti*e4"V  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) YH-+s   
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) Y V#|qb  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) D4;6}gRC  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) ;UoXj+Z  
  (COMMAND"LINE" P2 P3"") W;y ,Xs  
  (command"circle" p4 7) e,I{+^P  
  (setq bb 12) Q~>="Yiu  
  (IF (<= cc 9 )(setq bb 8)) Wt $q{g{C  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) 50
J"cGs~  
  (COMMAND"TEXT" X22 5 0 YY) ~n$e  
  (COMMAND"TEXT" Y22 5 0 XX) RiNKUk{-  
  (COMMAND"TEXT" XX1 5 0 "N") ^"hsbk&Yu  
  (COMMAND"TEXT" YY1 5 0 "E") I~: AWS9  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) ?iQA>P9B  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) {8as _  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) (y;8izp9!  
  (command"text" p5 6 0 cc) oP( Hkp,'  
  ) IsjD-t  
) jhmWwT/O8^  
(setq cc (+ cc 1)) oN/T>&d  
|e#ea~/b  
)
is,r:  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. D%0GXUp  
'