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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． bn~=d@'  
najd~%?Rs  
(DEFUN C:zb() [0Z r z+q  
(command "dimzin" "0") X<#Q~"  
(command "layer" "new" "zb_1" "") x AkM_<  
(setvar "clayer" "zb_1" ) HGh`O\f8  
(command "color" 1) az?B'|VX  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") |XLx6E2F  
(command "osnap" "int") QVb@/  
(command "osnap" "end") 2}b1PMpZG  
(command "osmode" 1) 6EGh8H f  
(SETQ P1 (GETPOINT"Pick the zb point:")) >m44U 9  
(command "osmode" 0) "_}Hzpy5k  
(SETQ P2 (GETPOINT P1)) [@uL)*o_#  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) ~Pv4X2MO  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) _\"7  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) j'X]bd'  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) C8-4 m68"  
(SETQ XX (RTOS (CAR P1) 2 3)) \&Mipf7a  
(SETQ YY (RTOS (CADR P1) 2 3)) kNd[M =%  
(SETQ L1 (STRLEN XX)) 1EyM,$On  
(SETQ L2 (STRLEN YY)) \m*?5]m;  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) #-f7hg*  
(COMMAND"LINE" P1 P2"") P7 H-Dw  
(command "layer" "new" "zb_2" "") F?T3fINR  
(setvar "clayer" "zb_2" ) |Y0BnyGK  
(IF (>= (CAR P2)(CAR P1)) {S'xZ._=  
  (PROGN kbM4v G  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) >|XQfavE  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) ,*@m<{DX)  
  (COMMAND"LINE" P2 P3"") @&83/U?  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) kJZBQ<^  
  (COMMAND"TEXT" X2 5 0 YY) A_CEpG]  
  (COMMAND"TEXT" Y2 5 0 XX) HZkC3$  
  (COMMAND"TEXT" X1 5 0 "N") 2o
Gl"3/p  
  (COMMAND"TEXT" Y1 5 0 "E") Ac^}wXp  
  ) M_Z*F!al<  
  (PROGN %kKe"$)0  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) 7'J}|m{7  
  (setq p4 (list (- (car p3) 5)(cadr p2))) &owBmpz  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) 1Xu\Tm\Ux  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) _udH(NC  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) do+HPnfDzU  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) !3kyPoq+  
  (COMMAND"LINE" P2 P3"") tceQn ^|<  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) fS w00F{T  
  (COMMAND"TEXT" X22 5 0 YY) 5m=3{lBi  
  (COMMAND"TEXT" Y22 5 0 XX) 5ok3q@1_]{  
  (COMMAND"TEXT" XX1 5 0 "N") *&% kkbA  
  (COMMAND"TEXT" YY1 5 0 "E") CsQ}eW8uEf  
  ) 8ooj)  
) n;xtUw6\  
) a4 O
 
(DEFUN C:zb3() $s)G0/~W  
(command "dimzin" "0") b_W0tiyv%  
(command "layer" "new" "zb_1" "") (C!u3ke2D  
(setvar "clayer" "zb_1" ) vp[~%~1(  
(command "color" 1) uG${`4  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") esLPJx  
(command "osnap" "int") hGcOk[m 4  
(command "osnap" "end") kzbgy)PK3  
(command "osmode" 1) r*p<7  
(SETQ P1 (GETPOINT"Pick the zb point:")) q/XZb@rt  
(command "osmode" 0) &t+03c8g!  
(SETQ P2 (GETPOINT P1)) [NQ`S ~_:  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) M})2y+  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) >]&LbUW+  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) <&t^&6k  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) 4%KNHeaN  
(SETQ XX (RTOS (CAR P1) 2 3)) O<)"kj 7  
(SETQ YY (RTOS (CADR P1) 2 3)) k$i76r  
(SETQ L1 (STRLEN XX)) Z>wg o@z%  
(SETQ L2 (STRLEN YY)) |9?67-  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) <6Y o
%xt  
(COMMAND"LINE" P1 P2"") ,CA,7Mu:  
(command "layer" "new" "zb_2" "") ppM d  
(setvar "clayer" "zb_2" ) OzA"i
y  
(IF (>= (CAR P2)(CAR P1)) fY}e.lD  
  (PROGN U~s&}M\n  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) PHyS^J`  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) V`l.F"<L  
  (COMMAND"LINE" P2 P3"") H9xxId?3u  
  (COMMAND"TEXT" X2 2.5 0 YY) u/hFf3  
  (COMMAND"TEXT" Y2 2.5 0 XX) I,_wt+O&j  
  (COMMAND"TEXT" X1 2.5 0 "N=") &b iBm  
  (COMMAND"TEXT" Y1 2.5 0 "E=") ?Q]&d!UCs  
  ) lJ62[2=V  
  (PROGN zq8z#FN  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) '2WYbcU  
  (setq p4 (list (- (car p3) 3)(cadr p2))) 9V0iV5?(P  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) `N_NzH  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) >C*q  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) o/CSIvz1  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) 1WfN_JKB5  
  (COMMAND"LINE" P2 P3"") ;Tvy)*{  
  (COMMAND"TEXT" X22 2.5 0 YY) Y6?d
y\  
  (COMMAND"TEXT" Y22 2.5 0 XX) _E{SGbCCi  
  (COMMAND"TEXT" XX1 2.5 0 "N=") <fJoHS  
  (COMMAND"TEXT" YY1 2.5 0 "E=") J&@[=zBYw  
) 8]YFlW9  
) S5-}u)XnH  
) 7M<7^)9  
(DEFUN C:zb2() T]Vh]|_s  
(command "dimzin" "0") di "rvw;R  
(command "layer" "new" "zb_1" "") xD8x1-  
(setvar "clayer" "zb_1" ) z%hB=V!~91  
(command "color" 1) n,wLk./`  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") CD +,&id  
(command "osnap" "int") dp&4G6Y<A  
(command "osnap" "end") I8Y[d$z  
(command "osmode" 1) -
9UQs.Nv  
(SETQ P1 (GETPOINT"Pick the zb point:")) 2(\~z@g  
(command "osmode" 0) .o]vjNrd/  
(SETQ P2 (GETPOINT P1)) CGbW]D$@  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) *QG>U[  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) s~6?p% 2]  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) cW/RH.N  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) H
d U1gV>  
(SETQ XX (RTOS (CAR P1) 2 3)) 7
1z$a  
(SETQ YY (RTOS (CADR P1) 2 3)) DCACj-f  
(SETQ L1 (STRLEN XX)) zEl@jK,{$  
(SETQ L2 (STRLEN YY)) `2o/W]SSk  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) (=j]fnH?  
(COMMAND"LINE" P1 P2"") c}U&!R2p{  
(command "layer" "new" "zb_2" "") #]_S{sO  
(setvar "clayer" "zb_2" ) Y 'Yoc  
(IF (>= (CAR P2)(CAR P1)) Qx>S>f  
  (PROGN C8m8ys  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) /E2
/3z  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) l=Jbuc  
  (COMMAND"LINE" P2 P3"") w3:Y]F.ot  
  (COMMAND"TEXT" X2 1.25 0 YY) @-NdgM<  
  (COMMAND"TEXT" Y2 1.25 0 XX) r\F`xtR(  
  (COMMAND"TEXT" X1 1.25 0 "N=") `|8)A)ZVT  
  (COMMAND"TEXT" Y1 1.25 0 "E=") x&8HBF'  
  ) u#/Y<1gn  
  (PROGN ^}ngbDn  
  (setq l (* l 1.1)) %F3M\)jU  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) b*no.eB  
  (setq p4 (list (- (car p3) 3)(cadr p2))) %i]q} M  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) gLaFIeF<+  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) JcvWE $  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) HH&`f3  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) g|9'Lk  
  (COMMAND"LINE" P2 P3"") G)?VC^Q  
  (COMMAND"TEXT" X22 1.25 0 YY) R.Ao%VT  
  (COMMAND"TEXT" Y22 1.25 0 XX) h
:Q*T*py  
  (COMMAND"TEXT" XX1 1.25 0 "N=") 2~<?E`+  
  (COMMAND"TEXT" YY1 1.25 0 "E=") )|x)KY  
)
LR@rn2Z  
) &y;('w  
) -|~6Zf
"  
(DEFUN C:zb5() '{5|[  
(setq cc 1) DDwH9*  
(setq cc (getint "输入点编号<1>:")) _SJ#k|vcq  
(repeat 1000 OHdCt  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") u `1cXL['  
(command "dimzin" "0") J)
6RXt*!  
(command "layer" "new" "zb_1" "")
Dr^#e  
(setvar "clayer" "zb_1" ) ' &^:@V  
(command "color" 1) +#"CgZ]  
(command "osnap" "int") od"Oq?~/t  
(command "osnap" "end") ZL:nohB  
(command "osmode" 1) /VgA}[%y  
(SETQ P1 (GETPOINT"Pick the zb point:")) _bHmcK  
(command "osmode" 0) Sy6Y3 ~7  
(SETQ P2 (GETPOINT P1)) JpvE c!cli  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) l`:M/z6"  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) %4Y/-xF}9,  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) %?' jyK  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) SaH0YxnY+  
(SETQ XX (RTOS (CAR P1) 2 3)) ;_@u@$=
~  
(SETQ YY (RTOS (CADR P1) 2 3)) u%Bk"noCa  
(SETQ L1 (STRLEN XX)) (%rO'X  
(SETQ L2 (STRLEN YY)) *T$`5|  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) qSlC@@.>  
(COMMAND"LINE" P1 P2"") *8CI'UX  
(command "layer" "new" "zb_2" "") [>A%%  
(setvar "clayer" "zb_2" ) G +o)s  
(IF (>= (CAR P2)(CAR P1)) fLa 7d?4  
  (PROGN <Qe30_<K  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) y[UTuFv~Q
 
  (setq p4 (list (+ (car p3) 7)(cadr p2))) c_s=>z  
  (command"circle" p4 7"") npkE[JE:  
  (COMMAND"LINE" P2 P3"") r{pTMcDS  
  (setq bb 2.5) ,P3nZ  
  (IF (<= cc 9 )(setq bb 5)) C&^"]-t  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) @SF*Kvb&  
  (COMMAND"TEXT" X2 5 0 YY) GPy+\P`  
  (COMMAND"TEXT" Y2 5 0 XX) 9KN75<n  
  (COMMAND"TEXT" X1 5 0 "N") nbj&3z,  
  (COMMAND"TEXT" Y1 5 0 "E") AMp[f%X  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) uLD%M av  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) U!r2`2LY  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) U]riBlg>  
  (command"text" p5 6 0 cc) <S:SIaf0  
  ) [[}KCND  
  (PROGN 'JsP9>)  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) QmvhmsDL  
  (setq p4 (list (- (car p3) 7)(cadr p2))) Pn\ Lg8  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) ArDkJ`DE  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) +?5nkhH  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) x=pq-&9>B  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) 6+b!|`?l+  
  (COMMAND"LINE" P2 P3"") th}Q`vg0  
  (command"circle" p4 7) y Rr,+>W  
  (setq bb 12) Y,RBTH  
  (IF (<= cc 9 )(setq bb 8)) J
K4vQWy  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) c:.k2u  
  (COMMAND"TEXT" X22 5 0 YY) T\eOrWt/  
  (COMMAND"TEXT" Y22 5 0 XX) 3fgVvt-2  
  (COMMAND"TEXT" XX1 5 0 "N") >V2Tr$m j  
  (COMMAND"TEXT" YY1 5 0 "E") ;f:}gMK  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) iq)4/3"6  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) *,.WI
)@  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n"))
y/Fv4<X  
  (command"text" p5 6 0 cc) <Td4 o&JR  
  ) 6J9^:gXW~  
) C:\BvPoO  
(setq cc (+ cc 1)) y m<3  
~e~iCyW;S  
) HFu#-}iNV  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. v_3r8My-  
'