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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． @r7ekyO8)  
NWnUXR  
(DEFUN C:zb() :;Z?2P5i  
(command "dimzin" "0") +9LIpU&5  
(command "layer" "new" "zb_1" "") \ZN>7?Vs  
(setvar "clayer" "zb_1" ) .nDB{@#  
(command "color" 1) jSi\/(E  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n")
Rq`B'G9|c  
(command "osnap" "int") mhh^kwW  
(command "osnap" "end") {}gx;v)  
(command "osmode" 1) %gBulvg
 
(SETQ P1 (GETPOINT"Pick the zb point:")) VcI'+IoR?  
(command "osmode" 0) "[A]tklP  
(SETQ P2 (GETPOINT P1)) $K& #
R-  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) s{g^K#BoFi  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) B^|^hZZ>  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) TS2zzYE6Z  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) ckDWY<@v  
(SETQ XX (RTOS (CAR P1) 2 3)) m9~cQ!m  
(SETQ YY (RTOS (CADR P1) 2 3)) 73C7g< Mx  
(SETQ L1 (STRLEN XX)) SZ$~zT;c  
(SETQ L2 (STRLEN YY)) s=KK
)6T  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) -/^a2_d[  
(COMMAND"LINE" P1 P2"") m2sf]-?Y  
(command "layer" "new" "zb_2" "") DIAHIV<  
(setvar "clayer" "zb_2" ) 9NXL8QmC8  
(IF (>= (CAR P2)(CAR P1)) Y8i'=Po%,  
  (PROGN ^9_4#Ep(  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) vZ6_/ew8  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) yj<j>JtN  
  (COMMAND"LINE" P2 P3"") fx74h{3u  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) VbU*&{j  
  (COMMAND"TEXT" X2 5 0 YY) ^RIDC/B=V6  
  (COMMAND"TEXT" Y2 5 0 XX) s?j||  
  (COMMAND"TEXT" X1 5 0 "N") [B_(,/?  
  (COMMAND"TEXT" Y1 5 0 "E") au+6ook
T  
  ) r &.g
OC  
  (PROGN pnTuYT^%)  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) (Ts#^qC  
  (setq p4 (list (- (car p3) 5)(cadr p2))) (Zi,~Wqm$  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) oS0rP'V^  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) !C6[m1F  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) sjW;Nsp  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) [TaYNc!\  
  (COMMAND"LINE" P2 P3"") 5Sh.4A\  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) UL3++bt  
  (COMMAND"TEXT" X22 5 0 YY) }f;cA  
  (COMMAND"TEXT" Y22 5 0 XX) n/ m7+=]v  
  (COMMAND"TEXT" XX1 5 0 "N") [&MhAzF  
  (COMMAND"TEXT" YY1 5 0 "E") #cCR\$-~  
  ) fU^6h`t  
) >Y)FoHa+/  
) 1RU+d.&D  
(DEFUN C:zb3() ^MczumG[  
(command "dimzin" "0") Ld4Jp`Zg  
(command "layer" "new" "zb_1" "") [g Y.h/  
(setvar "clayer" "zb_1" ) Om,M8!E  
(command "color" 1) b!l/O2 G  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") \L5h&  
(command "osnap" "int") 2;`F`}BA  
(command "osnap" "end") %CaF-m=Pq  
(command "osmode" 1) kN8?.V%Utw  
(SETQ P1 (GETPOINT"Pick the zb point:")) ;p8,
=w  
(command "osmode" 0) nq,P.~l
 
(SETQ P2 (GETPOINT P1)) |]
=s  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) -;s-*$I  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) VGL!)1
b  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) i-W!`1LH'  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) sqjv3=
}  
(SETQ XX (RTOS (CAR P1) 2 3)) :ySQ[AJ"  
(SETQ YY (RTOS (CADR P1) 2 3)) N1l&$#Fr!s  
(SETQ L1 (STRLEN XX)) /OsTZ"*.2/  
(SETQ L2 (STRLEN YY)) no UXRQ  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) A1kqWh
g\  
(COMMAND"LINE" P1 P2"") -MTO=#5z  
(command "layer" "new" "zb_2" "") zKf.jpF^  
(setvar "clayer" "zb_2" ) ;sZHE&+  
(IF (>= (CAR P2)(CAR P1)) A6AIkKjzq  
  (PROGN bqI| wGCA"  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) 4SGF8y@WU  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) )u}MyFl.  
  (COMMAND"LINE" P2 P3"") O~u@J'4  
  (COMMAND"TEXT" X2 2.5 0 YY) 5;yVA  
  (COMMAND"TEXT" Y2 2.5 0 XX) /sa\Ze;E  
  (COMMAND"TEXT" X1 2.5 0 "N=") R3!3TJ  
  (COMMAND"TEXT" Y1 2.5 0 "E=") 6JZ$;x{j  
  ) "PtOe[Xk  
  (PROGN f^D4a
EU  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) $/XR
/  
  (setq p4 (list (- (car p3) 3)(cadr p2))) Yv7`5b{N.  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) r<XlIi  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) ;=oGg%@aP  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) ;d{lvKk  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) Z`97=:W  
  (COMMAND"LINE" P2 P3"") oHj6
4fE9  
  (COMMAND"TEXT" X22 2.5 0 YY) x}*Y =Xh  
  (COMMAND"TEXT" Y22 2.5 0 XX) +E-f  
  (COMMAND"TEXT" XX1 2.5 0 "N=") 5^GFN*poig  
  (COMMAND"TEXT" YY1 2.5 0 "E=") B9Z=`c.T  
) B'` jdyaE9  
) 8
C4=f  
) ?&>H^}gDZ  
(DEFUN C:zb2() HZ.Jc"+M  
(command "dimzin" "0") Q{))+'s2h  
(command "layer" "new" "zb_1" "") ].,TSnb  
(setvar "clayer" "zb_1" ) y+D"LeCAad  
(command "color" 1) Xy'qgK?  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") f
8X/kz  
(command "osnap" "int") eHy.<VX  
(command "osnap" "end") M!E#T-)  
(command "osmode" 1) /naGn@m5u  
(SETQ P1 (GETPOINT"Pick the zb point:")) W;9Jah.  
(command "osmode" 0) {Vj25Gt  
(SETQ P2 (GETPOINT P1)) A1u|L^  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) !s:v UY58  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) avI  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) ^68BxYUoD\  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) 6opubI<  
(SETQ XX (RTOS (CAR P1) 2 3)) %hqhi@q#  
(SETQ YY (RTOS (CADR P1) 2 3)) p<9e5`&I  
(SETQ L1 (STRLEN XX)) `'^&* 7,  
(SETQ L2 (STRLEN YY)) >|
e>=  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) 7L=V{,,v  
(COMMAND"LINE" P1 P2"") .
Iret:  
(command "layer" "new" "zb_2" "") UIl^s8/  
(setvar "clayer" "zb_2" ) 8*V8B=q}K  
(IF (>= (CAR P2)(CAR P1)) >5|;8v-r  
  (PROGN VSI.c`=,  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) M+N7JpR  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) ;<yVJox  
  (COMMAND"LINE" P2 P3"") xp>p#c  
  (COMMAND"TEXT" X2 1.25 0 YY) <Gr775"  
  (COMMAND"TEXT" Y2 1.25 0 XX) ,UD,)ZPf[  
  (COMMAND"TEXT" X1 1.25 0 "N=") `xO&!DN  
  (COMMAND"TEXT" Y1 1.25 0 "E=") -}?
ud3f<  
  ) 2\,vq R  
  (PROGN G2x5%`   
  (setq l (* l 1.1)) \I4*|6kA  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) 8'kA",P  
  (setq p4 (list (- (car p3) 3)(cadr p2))) 3C8W]yw/s  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) Jc#()4  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) XU}sbbwu  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) $*Q_3]AY]  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) e!5nz_J1}  
  (COMMAND"LINE" P2 P3"") 1Jx|0YmO  
  (COMMAND"TEXT" X22 1.25 0 YY) 0*.> >rI  
  (COMMAND"TEXT" Y22 1.25 0 XX) Yjr6/&ML  
  (COMMAND"TEXT" XX1 1.25 0 "N=") lj1wTiaI(  
  (COMMAND"TEXT" YY1 1.25 0 "E=") :K3n
J1G&  
) p5KM(N6f  
) 3psCV=/z  
) G
e|& H]W  
(DEFUN C:zb5() I]`>m3SJ  
(setq cc 1) "=unDpq]  
(setq cc (getint "输入点编号<1>:")) {
)t6DH#  
(repeat 1000 $FgpFxz;  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") U=C8gVb{Hq  
(command "dimzin" "0") |f^/((:D  
(command "layer" "new" "zb_1" "") 0 mWfR8h0  
(setvar "clayer" "zb_1" ) 6t5)rlT  
(command "color" 1) >a]4}  
(command "osnap" "int") {Y9m;b,X  
(command "osnap" "end") ]u_^~  
(command "osmode" 1) 2O|o%`?  
(SETQ P1 (GETPOINT"Pick the zb point:")) cz/mUU  
(command "osmode" 0) bK%go  
(SETQ P2 (GETPOINT P1)) K+H?,I  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) g?(Z+w4A 3  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) VVJhQbP  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) 71Ssk|L
 
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) j2#Vdw|j  
(SETQ XX (RTOS (CAR P1) 2 3)) IqEY.2KN  
(SETQ YY (RTOS (CADR P1) 2 3)) ap\2={u^|  
(SETQ L1 (STRLEN XX)) y]?%2ud/=  
(SETQ L2 (STRLEN YY)) ?4q6>ipx  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) V/|Ln*rm  
(COMMAND"LINE" P1 P2"") M!=v"
C#  
(command "layer" "new" "zb_2" "") <HG~#oBRq  
(setvar "clayer" "zb_2" ) tF&%
7(EU3  
(IF (>= (CAR P2)(CAR P1)) .F)b9d[?  
  (PROGN ]&VD$Z984r  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) N{P (ym2yR  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) %M9^QHyo@  
  (command"circle" p4 7"") W1y,.6  
  (COMMAND"LINE" P2 P3"") .Rc&EO  
  (setq bb 2.5) nI.#A  
  (IF (<= cc 9 )(setq bb 5)) VQ<Z`5eV  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) 7z=Ss'O]  
  (COMMAND"TEXT" X2 5 0 YY) pWps-e  
  (COMMAND"TEXT" Y2 5 0 XX) %9BC%w]y  
  (COMMAND"TEXT" X1 5 0 "N") 5.VA1  
  (COMMAND"TEXT" Y1 5 0 "E") 1WcT>_$  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) Dw[w%
uz  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) `"(7)T{  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) l},px  
  (command"text" p5 6 0 cc) LiQs;$V  
  ) ]$nJn+85@b  
  (PROGN yQ+#Tlji  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) RPaB4>  
  (setq p4 (list (- (car p3) 7)(cadr p2))) X.Z?Ie  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) |ki#MtCp  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) jKI+-s  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) <2H0m  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) uVu`TgbZ  
  (COMMAND"LINE" P2 P3"") [Bpgb57En  
  (command"circle" p4 7) kf-ZE$S4  
  (setq bb 12) Z1\_[GA  
  (IF (<= cc 9 )(setq bb 8)) D9H|]W~  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) %F&j B
 
  (COMMAND"TEXT" X22 5 0 YY) PU?kQZU~)  
  (COMMAND"TEXT" Y22 5 0 XX) MQ\:/]a  
  (COMMAND"TEXT" XX1 5 0 "N") w=#&(xm0  
  (COMMAND"TEXT" YY1 5 0 "E") uLhamE)  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) 8CA4gnh  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) ,Z>RvLl  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) Uk;SY[mU  
  (command"text" p5 6 0 cc) ^5,ASU  
  ) "5dh]-m n  
) 4sZ^:h,1  
(setq cc (+ cc 1)) A%+~   
c}v:X Slh7  
) ItOVx!"@9  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. /+IR^WG#C}  
'