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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． r;3{%S._  
\0&7^  
(DEFUN C:zb() :',.I  
(command "dimzin" "0") qU!*QZ^y&  
(command "layer" "new" "zb_1" "") -{z.8p}IW  
(setvar "clayer" "zb_1" ) (1.E9+MquU  
(command "color" 1) 2&*r1NXBE  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") U`gQ7
 
(command "osnap" "int") S}=d74(/n  
(command "osnap" "end") 3+6s}u)
 
(command "osmode" 1) ,TrrqCw>  
(SETQ P1 (GETPOINT"Pick the zb point:")) u,<#z0R|;$  
(command "osmode" 0) ')pXQ  
(SETQ P2 (GETPOINT P1)) eKdF-;  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) ;;z4EGr  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) sZ`C "1cX  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) @ 2r9JqR[=  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) b21c}
rI3  
(SETQ XX (RTOS (CAR P1) 2 3)) r:h\{DVf  
(SETQ YY (RTOS (CADR P1) 2 3)) j=U [V&T  
(SETQ L1 (STRLEN XX)) Q;p?.GI?-  
(SETQ L2 (STRLEN YY)) <DG=qP6O  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) p4m9@\gn  
(COMMAND"LINE" P1 P2"") w+ZeVZv!r  
(command "layer" "new" "zb_2" "") N?!]^jI,  
(setvar "clayer" "zb_2" ) j^DoILw  
(IF (>= (CAR P2)(CAR P1)) %'2DEt??  
  (PROGN FBit/0  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) *P4G}9B|9:  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) I@dS/  
  (COMMAND"LINE" P2 P3"")
sSVgDQ~q  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) O*MC"%T  
  (COMMAND"TEXT" X2 5 0 YY) BR1oE3in  
  (COMMAND"TEXT" Y2 5 0 XX) R~40,$e{  
  (COMMAND"TEXT" X1 5 0 "N") Jv  
  (COMMAND"TEXT" Y1 5 0 "E") dZnAdlJ  
  ) P,xI3U< q  
  (PROGN T7f>u}
T  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) 9IFK4>&O6  
  (setq p4 (list (- (car p3) 5)(cadr p2))) e1'<;;; L  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) sjBP#_lW  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) l7G&[\~  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) &A=>x  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) i7h!,vaK  
  (COMMAND"LINE" P2 P3"") KiXXlaOs  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) 'J+dTs;0  
  (COMMAND"TEXT" X22 5 0 YY) B j!{JcM-^  
  (COMMAND"TEXT" Y22 5 0 XX) "S6'<~s  
  (COMMAND"TEXT" XX1 5 0 "N") o!TG8aeb  
  (COMMAND"TEXT" YY1 5 0 "E") n W2[x;  
  ) <0,c{e  
) I;dc[m  
) )bc0 t]Fs  
(DEFUN C:zb3() 'gY
Uyl  
(command "dimzin" "0") |2mm@):  
(command "layer" "new" "zb_1" "") h-B&m:gD_U  
(setvar "clayer" "zb_1" ) N*.JQvbnr  
(command "color" 1) zZ3Ko3L%g_  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") YGVj$\  
(command "osnap" "int") NP%Y\%;l6  
(command "osnap" "end") 3nVdws  
(command "osmode" 1) CBC0X}_`  
(SETQ P1 (GETPOINT"Pick the zb point:")) r|rOIAo  
(command "osmode" 0) qaK9E@l  
(SETQ P2 (GETPOINT P1)) HorFQ?8  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) 
9F8"(  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) f
?O?2g  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) NFT&\6
!o  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) _F|o
L|  
(SETQ XX (RTOS (CAR P1) 2 3)) 9!hiCqA&  
(SETQ YY (RTOS (CADR P1) 2 3)) %%["&  
(SETQ L1 (STRLEN XX)) 0)/L+P5  
(SETQ L2 (STRLEN YY)) <dxc"A  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) sdq
8wn  
(COMMAND"LINE" P1 P2"") *QAcp` ;*  
(command "layer" "new" "zb_2" "") ,v;P@RL|g  
(setvar "clayer" "zb_2" ) _97A9wHj  
(IF (>= (CAR P2)(CAR P1)) #Z8=z*4  
  (PROGN wfH#E2+pk  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2)))
6C6<,c
 
  (setq p4 (list (+ (car p3) 3)(cadr p2))) `]L&2RS  
  (COMMAND"LINE" P2 P3"") Ii"h:GY;\  
  (COMMAND"TEXT" X2 2.5 0 YY) )l}Gwd]h  
  (COMMAND"TEXT" Y2 2.5 0 XX) BM+v,hGY  
  (COMMAND"TEXT" X1 2.5 0 "N=") Q[t|+RNKv2  
  (COMMAND"TEXT" Y1 2.5 0 "E=") h^E"eC  
  ) :f?};t+  
  (PROGN
(UWV#AR  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) u~Zx9>f  
  (setq p4 (list (- (car p3) 3)(cadr p2))) U~krv>I  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) Kj|l]'  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) gzS6{570
 
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) ?[#nh@mI  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1)))  5VWyc9Q  
  (COMMAND"LINE" P2 P3"") VfS&V*un  
  (COMMAND"TEXT" X22 2.5 0 YY) }E626d}uA  
  (COMMAND"TEXT" Y22 2.5 0 XX) ;c1ar)G7  
  (COMMAND"TEXT" XX1 2.5 0 "N=") =aM(r6 C  
  (COMMAND"TEXT" YY1 2.5 0 "E=") ~>:uMXyV2t  
) <-xI!o"}  
) "F nH>g-  
) qV^Z@N+,  
(DEFUN C:zb2() sJ{S(wpi"  
(command "dimzin" "0") QkJAjmB  
(command "layer" "new" "zb_1" "") fi*@m,-  
(setvar "clayer" "zb_1" ) $@t]0  
(command "color" 1)
d>j`|(\  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") :q_(=EA  
(command "osnap" "int") sTx23RJ9  
(command "osnap" "end") K&2{k+w  
(command "osmode" 1) 2H7b2%  
(SETQ P1 (GETPOINT"Pick the zb point:")) #l kv&.)x  
(command "osmode" 0) dQSX&.<c,  
(SETQ P2 (GETPOINT P1)) b}DxD1*nsI  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) 4-RzWSFbo`  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) Bf37/kkf(  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) 1n+C'
P"  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) !]1'?
8  
(SETQ XX (RTOS (CAR P1) 2 3)) i7hWBd4wK  
(SETQ YY (RTOS (CADR P1) 2 3)) +AGI)uQQ  
(SETQ L1 (STRLEN XX)) d~NvS-u7  
(SETQ L2 (STRLEN YY)) @edx]H1~^  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) V/C":!;  
(COMMAND"LINE" P1 P2"") #bN'
N@|  
(command "layer" "new" "zb_2" "") DEj6 ky  
(setvar "clayer" "zb_2" ) XcfvmlBoD-  
(IF (>= (CAR P2)(CAR P1)) `acX1YWh5  
  (PROGN Z_iVOctP  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) WCc7 MK  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) 7noxUGmFw  
  (COMMAND"LINE" P2 P3"") #~(J J  
  (COMMAND"TEXT" X2 1.25 0 YY) koQ\]t'*As  
  (COMMAND"TEXT" Y2 1.25 0 XX) no6q3<re  
  (COMMAND"TEXT" X1 1.25 0 "N=") *&7F(  
  (COMMAND"TEXT" Y1 1.25 0 "E=") `ceetr=  
  ) b^WTX  
  (PROGN hfUN~89;  
  (setq l (* l 1.1)) 5Oh>rK(  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) Uy$1X  
  (setq p4 (list (- (car p3) 3)(cadr p2))) <Lz/J-w  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) fO6i  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) [wHGt?R  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) -\ {.]KL  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) *}mk$bA  
  (COMMAND"LINE" P2 P3"") \]bAXa{ p  
  (COMMAND"TEXT" X22 1.25 0 YY) AUZ^XiK  
  (COMMAND"TEXT" Y22 1.25 0 XX) 0$8iWL  
  (COMMAND"TEXT" XX1 1.25 0 "N=") Mi+<|5is  
  (COMMAND"TEXT" YY1 1.25 0 "E=") QtM9G@%  
) ;- ~}g7$  
) N@Fof(T&  
) NJ6* 7Cd  
(DEFUN C:zb5() Ct-^-XD  
(setq cc 1) g<ZB9;FX %  
(setq cc (getint "输入点编号<1>:")) 8RGU^&  
(repeat 1000 .d}7c!  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") jIpc^iu`,  
(command "dimzin" "0") Qq,
w6ekr  
(command "layer" "new" "zb_1" "") B.O &KRo  
(setvar "clayer" "zb_1" ) W|NT*g{;M  
(command "color" 1) -M{.KqyW  
(command "osnap" "int") 1|U8DK
 
(command "osnap" "end") ~!bA<q  
(command "osmode" 1) '3h"Ol{b  
(SETQ P1 (GETPOINT"Pick the zb point:")) Q]n a_'_  
(command "osmode" 0) >M~wFs$~  
(SETQ P2 (GETPOINT P1)) QQ1|]/)  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) 'JA<q-Gn  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) ZboY]1L[j  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) VZ69s{/.B  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1)))  D`Tx,^E  
(SETQ XX (RTOS (CAR P1) 2 3)) C"X; ,F<  
(SETQ YY (RTOS (CADR P1) 2 3)) Cp[{|U-?G  
(SETQ L1 (STRLEN XX)) JerueF;J  
(SETQ L2 (STRLEN YY)) ?<3wks|
C  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) s2`:NS  
(COMMAND"LINE" P1 P2"") 9d5|rk8VS  
(command "layer" "new" "zb_2" "") ~57.0?IK  
(setvar "clayer" "zb_2" ) J0%e6{C1  
(IF (>= (CAR P2)(CAR P1)) #* KmPc+  
  (PROGN 0+H4sz%.  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) aaa6R|>0  
  (setq p4 (list (+ (car p3) 7)(cadr p2)))
D\"F?>  
  (command"circle" p4 7"") <G+IbUG:  
  (COMMAND"LINE" P2 P3"") Dht,!LVb;  
  (setq bb 2.5) -pb>=@Yq  
  (IF (<= cc 9 )(setq bb 5)) o3=2`BvJ  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) }iOFB&)w  
  (COMMAND"TEXT" X2 5 0 YY) 3rRN~$  
  (COMMAND"TEXT" Y2 5 0 XX) Y/|wOm;|
 
  (COMMAND"TEXT" X1 5 0 "N") iLvzoQ  
  (COMMAND"TEXT" Y1 5 0 "E") (fSpY\JPI  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) [\41  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) 86_`Z$ s  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) y9/x:n&]  
  (command"text" p5 6 0 cc) nqnVFkGd9  
  ) Aw7oyC!  
  (PROGN /b ]Yya#  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) cN]e{|  
  (setq p4 (list (- (car p3) 7)(cadr p2))) "$@Wy,yp  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) 9/LnO'&-  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) -FxE!K  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) wO>P<KBU  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) ^nPk;%`0  
  (COMMAND"LINE" P2 P3"") dq.'[  
  (command"circle" p4 7) v;=|-y  
  (setq bb 12) `XmT)C  
  (IF (<= cc 9 )(setq bb 8)) PPj_
NV  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) 295
U<  
  (COMMAND"TEXT" X22 5 0 YY) G; onJ>  
  (COMMAND"TEXT" Y22 5 0 XX)
G\\0N^v  
  (COMMAND"TEXT" XX1 5 0 "N") /E%r@Rui3$  
  (COMMAND"TEXT" YY1 5 0 "E") 948lL&  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) E:!qncL:  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) [*{G,=tF`Y  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) dc]D 8KX  
  (command"text" p5 6 0 cc) e7# B?  
  ) .UdoB`@!v=  
) =&9x}4`;%  
(setq cc (+ cc 1)) /kK%}L_D  
?H30  
) C VyYV &U,  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. +g %h,@  
'