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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． cIp h$@  
O@rb4(  
(DEFUN C:zb() v3Yj2LSqx  
(command "dimzin" "0") 3D0I5LF&  
(command "layer" "new" "zb_1" "") &?6w2[}  
(setvar "clayer" "zb_1" ) vNbA/sM  
(command "color" 1) rYQ@"o0/Y  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") HV.7IyBA^  
(command "osnap" "int") \irjIXtV  
(command "osnap" "end")
ex458^N_  
(command "osmode" 1) o=QF>\\  
(SETQ P1 (GETPOINT"Pick the zb point:")) !%r`'|9y  
(command "osmode" 0) `t&;Yk]-L  
(SETQ P2 (GETPOINT P1)) 9,CC1f  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) (?y2@I}  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) AtDrQ<>y'  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) (K6StNtN  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) ;[ueNP%*y|  
(SETQ XX (RTOS (CAR P1) 2 3)) V&H8-,7z  
(SETQ YY (RTOS (CADR P1) 2 3)) Yur)_m  
(SETQ L1 (STRLEN XX)) zP}v2  
(SETQ L2 (STRLEN YY)) J *?_SnZ  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) t8 "-zd8  
(COMMAND"LINE" P1 P2"") x~^I/$  
(command "layer" "new" "zb_2" "") .~ lt+M9  
(setvar "clayer" "zb_2" ) o q)"1  
(IF (>= (CAR P2)(CAR P1)) -<]_:Kf{;&  
  (PROGN C/Bx_j((  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) wtLMc  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) `r(J6,O  
  (COMMAND"LINE" P2 P3"") v^fOT5\  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5)))
WI_mJ/2  
  (COMMAND"TEXT" X2 5 0 YY) W%K8HAP"  
  (COMMAND"TEXT" Y2 5 0 XX) , vyx`wDd  
  (COMMAND"TEXT" X1 5 0 "N") zqr%7U  
  (COMMAND"TEXT" Y1 5 0 "E") ilpZ/Rs  
  ) O/oYaAlFF@  
  (PROGN G!%XQ\a!  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) ItE~MJ5p  
  (setq p4 (list (- (car p3) 5)(cadr p2))) &W// Ox )f  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) Vj`s_IPY  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) B-'BJ|*4I  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) E=lfg8yb:  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) .BDRD~kB  
  (COMMAND"LINE" P2 P3"") J&65B./mD9  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) F{~r7y;0  
  (COMMAND"TEXT" X22 5 0 YY) 7Sq{A@ET  
  (COMMAND"TEXT" Y22 5 0 XX) {0WIDD  
  (COMMAND"TEXT" XX1 5 0 "N") =2]
rA  
  (COMMAND"TEXT" YY1 5 0 "E") 4~YQ\4h=  
  ) SliQwm5  
) E/$@ud|l"  
) ^i)Q CDU7  
(DEFUN C:zb3() [k7N+W8  
(command "dimzin" "0") qZ_fQ@   
(command "layer" "new" "zb_1" "") @ZR4%A"X4  
(setvar "clayer" "zb_1" ) TxxB0  
(command "color" 1) mW0&uSMD  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 4$DliP  
(command "osnap" "int") tSc>@Q_|  
(command "osnap" "end") '# IuY  
(command "osmode" 1) )k] !
u  
(SETQ P1 (GETPOINT"Pick the zb point:")) Mth`s{sATa  
(command "osmode" 0) B "F`OS[  
(SETQ P2 (GETPOINT P1)) Yn]yd1  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) ;4v}0N~.  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) _6S b.9m  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) gXLZ)>+A+  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) $]U5  
(SETQ XX (RTOS (CAR P1) 2 3)) uQtk|)T E  
(SETQ YY (RTOS (CADR P1) 2 3)) ~eOj:H  
(SETQ L1 (STRLEN XX)) Dw/Gha/  
(SETQ L2 (STRLEN YY)) LO}:Ub  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) lJ]\  
(COMMAND"LINE" P1 P2"") ?"<r9S|[O  
(command "layer" "new" "zb_2" "") QDgEJ
%U-  
(setvar "clayer" "zb_2" ) ""v`0OP&J  
(IF (>= (CAR P2)(CAR P1)) o- QG& ]  
  (PROGN vV\F^  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) K9O,7h:x  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) $X=D9h  
  (COMMAND"LINE" P2 P3"") g=g.GpFt  
  (COMMAND"TEXT" X2 2.5 0 YY) u"8;fS  
  (COMMAND"TEXT" Y2 2.5 0 XX) eo*u(@  
  (COMMAND"TEXT" X1 2.5 0 "N=") cYWy\+  
  (COMMAND"TEXT" Y1 2.5 0 "E=") BXK::M+  
  ) Y^ZBA\D2,k  
  (PROGN BUA6(  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) ogc('HqF^'  
  (setq p4 (list (- (car p3) 3)(cadr p2))) !ga(L3vf  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) H,XLb.  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) ci_v7Jnwo  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) IL>/PuZku  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) ~Riu*<  
  (COMMAND"LINE" P2 P3"") Q(;B)  
  (COMMAND"TEXT" X22 2.5 0 YY) 6`4W,  
  (COMMAND"TEXT" Y22 2.5 0 XX) ,7fc41O3V  
  (COMMAND"TEXT" XX1 2.5 0 "N=") nc\C4g  
  (COMMAND"TEXT" YY1 2.5 0 "E=") #?$'nya*u  
) 2htA7V*dD  
) EB29vHAt~  
) A M1C $  
(DEFUN C:zb2() 4`UL1)A]  
(command "dimzin" "0") Mi/ &$"=  
(command "layer" "new" "zb_1" "") csdOIF  
(setvar "clayer" "zb_1" ) (+gL#/u  
(command "color" 1) d(DX(xg  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") VTJIaqw  
(command "osnap" "int") aZawBU.:  
(command "osnap" "end") Z4HA94  
(command "osmode" 1) {n'qKurxY  
(SETQ P1 (GETPOINT"Pick the zb point:")) 2i7i\?<.  
(command "osmode" 0) m,@1LwBH  
(SETQ P2 (GETPOINT P1)) $p0 /6c  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) ?9(o*lp  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) S}m$,<x  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) W) 33;E/}  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) oxMUW<gYd  
(SETQ XX (RTOS (CAR P1) 2 3)) FM9X}%5nu9  
(SETQ YY (RTOS (CADR P1) 2 3)) 9b"9m*gC  
(SETQ L1 (STRLEN XX)) f E.L  
(SETQ L2 (STRLEN YY)) |ilv|UV  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) y7M:b Uh  
(COMMAND"LINE" P1 P2"") 0~Iu7mPY  
(command "layer" "new" "zb_2" "") Gq0]m  
(setvar "clayer" "zb_2" ) 'nlRY5@2  
(IF (>= (CAR P2)(CAR P1)) (@KoqwVWc  
  (PROGN "xDx/d8B  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) _}I(U?Q-C  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) SLJ&{`"7
 
  (COMMAND"LINE" P2 P3"") z29qARiX  
  (COMMAND"TEXT" X2 1.25 0 YY) 3C rQBIj1  
  (COMMAND"TEXT" Y2 1.25 0 XX) 6Iv(  
  (COMMAND"TEXT" X1 1.25 0 "N=") *3_f&Y  
  (COMMAND"TEXT" Y1 1.25 0 "E=") <$i"zb
 
  ) ^s^JzFw  
  (PROGN #cj\~T.,,  
  (setq l (* l 1.1)) Gh]_L+  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) :M22P`:  
  (setq p4 (list (- (car p3) 3)(cadr p2))) )|w*/JK\Z  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1)))  JJ/1daj  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) y:[BP4H?y  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) )%iRZ\`f  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) uFwU-LCe  
  (COMMAND"LINE" P2 P3"") \!+-4,CbZY  
  (COMMAND"TEXT" X22 1.25 0 YY) F . K2  
  (COMMAND"TEXT" Y22 1.25 0 XX) ]Q6+e(:~ZH  
  (COMMAND"TEXT" XX1 1.25 0 "N=") lQV|U;~D  
  (COMMAND"TEXT" YY1 1.25 0 "E=") w
`c0a&7  
) ] vC=.&]  
) La"o)L +m_  
) _\ .  
(DEFUN C:zb5() *:=];1O  
(setq cc 1) Q7,EY /  
(setq cc (getint "输入点编号<1>:")) pOqGAD{D$  
(repeat 1000 e#>tM  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") p+, 1Fi  
(command "dimzin" "0") -"W)|oC_  
(command "layer" "new" "zb_1" "") nK+lE0  
(setvar "clayer" "zb_1" ) aB6Ye/Io  
(command "color" 1) ![^EsgEB*  
(command "osnap" "int") )46 0Ed  
(command "osnap" "end") <jbj/Q )"  
(command "osmode" 1) FE/$(7rM  
(SETQ P1 (GETPOINT"Pick the zb point:")) #v.L$7O  
(command "osmode" 0) <=q*N;=T,  
(SETQ P2 (GETPOINT P1)) r%0pQEl  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) Da"yZ\4  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) 8@E8!w&~  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) ]EB6+x!G  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) y^2#9\}K  
(SETQ XX (RTOS (CAR P1) 2 3)) 7t'(`A6t/  
(SETQ YY (RTOS (CADR P1) 2 3)) :/+>e IE  
(SETQ L1 (STRLEN XX)) Xo2^N2I  
(SETQ L2 (STRLEN YY)) A#<vG1  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) Tdg6kkJ  
(COMMAND"LINE" P1 P2"") xN6>2e  
(command "layer" "new" "zb_2" "") EPc!p>  
(setvar "clayer" "zb_2" ) i-`,/e~XT  
(IF (>= (CAR P2)(CAR P1)) m7JPH7P@BM  
  (PROGN g^1r0.Sp{8  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) 5N\+@grp  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) )AOPiC$jL  
  (command"circle" p4 7"") Hw Z^D=A  
  (COMMAND"LINE" P2 P3"") +9RJ%i&Ec  
  (setq bb 2.5) 1Yud~[c  
  (IF (<= cc 9 )(setq bb 5)) :3v9h^|+  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) C1 W>/?XC  
  (COMMAND"TEXT" X2 5 0 YY) Y+FP  
  (COMMAND"TEXT" Y2 5 0 XX) lqF>=15  
  (COMMAND"TEXT" X1 5 0 "N") ;Tta
H  
  (COMMAND"TEXT" Y1 5 0 "E") o~= iy  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) bZ/ hgqS  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) pDGT@qJ  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) iAK/d)bq  
  (command"text" p5 6 0 cc) 5:c;RRn  
  ) `4LJ;KC(  
  (PROGN F=srkw:*.  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) EJ G2^DSS  
  (setq p4 (list (- (car p3) 7)(cadr p2))) T8U[xu.>  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) _ \l HI  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) x@Y|v@}BE  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) .:8[wI_f  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) 0pD[7~^o  
  (COMMAND"LINE" P2 P3"")
/jR8|sb  
  (command"circle" p4 7) ]oEQ4  
  (setq bb 12) n'yl)HA~>`  
  (IF (<= cc 9 )(setq bb 8)) L?HF'5o  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) c}%es=@  
  (COMMAND"TEXT" X22 5 0 YY) BhLZ7*  
  (COMMAND"TEXT" Y22 5 0 XX) hfg O  
  (COMMAND"TEXT" XX1 5 0 "N") p5-<P?B  
  (COMMAND"TEXT" YY1 5 0 "E") JA<~xo[Q9  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) as(*B-_n~  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) *Rq`*D>:U}  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) \n_3Bwd~  
  (command"text" p5 6 0 cc) 2SciB*5  
  ) .a:Z!KF  
) @V$I?iXV  
(setq cc (+ cc 1)) <GaT|Hhc=  
$T),DUYO  
) .b,~f  
)

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

谢谢贡献,我下载了.以后有好的东西互相学习了. H&bh<KPMh  
'