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

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

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

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

这个可以叫软件开发商改进的。 "/?qT;<$)  
另外，楼主用Excel软件制作了一个录入界面，不知道能否共享出来？

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． #L:P R>  
uO(guA,C  
(DEFUN C:zb() YB~t|m65  
(command "dimzin" "0") -==qMrKP  
(command "layer" "new" "zb_1" "") j(C UYm  
(setvar "clayer" "zb_1" ) F^t?*   
(command "color" 1) 6.s?  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ,l .U^d6>  
(command "osnap" "int") wrYQ=u#Z  
(command "osnap" "end") MW~B[%/  
(command "osmode" 1) rDX'oP:  
(SETQ P1 (GETPOINT"Pick the zb point:")) 9[{>JRm.  
(command "osmode" 0) u7&'3ef  
(SETQ P2 (GETPOINT P1)) H#6^-6;/  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) 5MY}(w  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) .Pes{uHg  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1)))  'Q>z**  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) oz6+rM6MY  
(SETQ XX (RTOS (CAR P1) 2 3)) psX%.95Y  
(SETQ YY (RTOS (CADR P1) 2 3)) Q@wq }vc!  
(SETQ L1 (STRLEN XX)) aiZo{j<6  
(SETQ L2 (STRLEN YY)) P`dHR;Y0  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) Ygi1"X}  
(COMMAND"LINE" P1 P2"") n qLAby_  
(command "layer" "new" "zb_2" "") FP'lEp  
(setvar "clayer" "zb_2" ) -5v.1y=!L  
(IF (>= (CAR P2)(CAR P1)) ,Kf8T9z`  
  (PROGN gQ=POJ=G  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) -wQ^oOJ  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) Z/= %J3f  
  (COMMAND"LINE" P2 P3"") 6//FZ:q  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) LDEW00zL  
  (COMMAND"TEXT" X2 5 0 YY) 7E3SvC|M  
  (COMMAND"TEXT" Y2 5 0 XX) *X l<aNNx  
  (COMMAND"TEXT" X1 5 0 "N") qf`xH"$  
  (COMMAND"TEXT" Y1 5 0 "E") }FiN 7#  
  ) /cC6qhkp%  
  (PROGN ,i?!3oLT  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) YOV4)P"  
  (setq p4 (list (- (car p3) 5)(cadr p2))) #2R%H.*t  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) E97+GJ3  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) w<e;rKr  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) ;c- ]bhBB  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) =l4\4td9p  
  (COMMAND"LINE" P2 P3"") 2{B(j&{  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) NS4'IR=;E!  
  (COMMAND"TEXT" X22 5 0 YY) ]p&<nK,  
  (COMMAND"TEXT" Y22 5 0 XX) r`R~{;oT  
  (COMMAND"TEXT" XX1 5 0 "N") xY'qm8V  
  (COMMAND"TEXT" YY1 5 0 "E") 2HGD{;6>v{  
  ) CEuk1$  
) -^4bA<dCCE  
) M:Y*Tb6w  
(DEFUN C:zb3() >2CusT2  
(command "dimzin" "0") R:OU>HsdX  
(command "layer" "new" "zb_1" "") !x$:8R  
(setvar "clayer" "zb_1" ) O| J`~Lk  
(command "color" 1) ZoON5P>  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") E<CxKY9  
(command "osnap" "int") (:-Jl"&R@  
(command "osnap" "end") mzE$aFu8  
(command "osmode" 1) #C1A5JE&  
(SETQ P1 (GETPOINT"Pick the zb point:")) Mq:'-`  
(command "osmode" 0) ,r 2VP\hLh  
(SETQ P2 (GETPOINT P1)) :~3{oZGX&  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) V
.Ba''E7  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) f\);HJbg  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) ]vQ?]d?>a  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) M"5!s,  
(SETQ XX (RTOS (CAR P1) 2 3)) $7n#\h  
(SETQ YY (RTOS (CADR P1) 2 3)) kq%gY  
(SETQ L1 (STRLEN XX)) (vAv^A*i}  
(SETQ L2 (STRLEN YY)) P%@rH@^Y  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) |1+(Ny.%k  
(COMMAND"LINE" P1 P2"") 4^[}]'w  
(command "layer" "new" "zb_2" "") r7"Au"  
(setvar "clayer" "zb_2" ) aaz"`,7_  
(IF (>= (CAR P2)(CAR P1)) dH2]ZE0V  
  (PROGN +'['HQ)  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) PIEW\i  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) |@Zq
wC=  
  (COMMAND"LINE" P2 P3"") rW~?0  
  (COMMAND"TEXT" X2 2.5 0 YY) ::OFW@dS  
  (COMMAND"TEXT" Y2 2.5 0 XX) *e3L4 7"G  
  (COMMAND"TEXT" X1 2.5 0 "N=") *V6QBe  
  (COMMAND"TEXT" Y1 2.5 0 "E=") 5Z6-R}uXk  
  ) 3> \fP#oQ  
  (PROGN MkW1FjdP  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) C8qTz".5$  
  (setq p4 (list (- (car p3) 3)(cadr p2))) .D,?u"fk|  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) 0L0Jc,(F+  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) hK39_A-  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) 3Wb2p'V7$?  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) ;eW'}&|LV  
  (COMMAND"LINE" P2 P3"") HKiVEg  
  (COMMAND"TEXT" X22 2.5 0 YY) r*N~. tFo  
  (COMMAND"TEXT" Y22 2.5 0 XX) H*{k4  
  (COMMAND"TEXT" XX1 2.5 0 "N=") i=1 }lkq  
  (COMMAND"TEXT" YY1 2.5 0 "E=") r=DHt&x=  
) 5+bFy.UW  
) PM-PP8h  
) 60,-\h  
(DEFUN C:zb2() Q6.*"`  
(command "dimzin" "0") A?
Nn>xF9X  
(command "layer" "new" "zb_1" "") S -
6"f/  
(setvar "clayer" "zb_1" ) WiNr866nB  
(command "color" 1) ";_K x={  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") JC&6q>$  
(command "osnap" "int") PG6L]o^  
(command "osnap" "end") )y`TymM[F  
(command "osmode" 1) J7ktfyQ0W  
(SETQ P1 (GETPOINT"Pick the zb point:")) oB0 8  
(command "osmode" 0) `xX4!^0Hm  
(SETQ P2 (GETPOINT P1)) *hZ~i{c,7  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) Xvu)  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) ;Lsjh#  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) UOu
6LD/|h  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) GL5^_`n  
(SETQ XX (RTOS (CAR P1) 2 3)) 6c2ThtL  
(SETQ YY (RTOS (CADR P1) 2 3)) <DXmZ1  
(SETQ L1 (STRLEN XX)) q)?p$\  
(SETQ L2 (STRLEN YY)) D#d8^U  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) O+o;aa6  
(COMMAND"LINE" P1 P2"") 6mBDd>`0  
(command "layer" "new" "zb_2" "") 4aN+}TkH@G  
(setvar "clayer" "zb_2" ) VPM|Rj:d  
(IF (>= (CAR P2)(CAR P1)) P#[IUXtT  
  (PROGN +#*&XX5A#?  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) /~Zc}o,J  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) kQw
m"Z  
  (COMMAND"LINE" P2 P3"") ~)wwX:;B_  
  (COMMAND"TEXT" X2 1.25 0 YY) +2EHmu
J;  
  (COMMAND"TEXT" Y2 1.25 0 XX) h7EUIlh"  
  (COMMAND"TEXT" X1 1.25 0 "N=") hg&w=l  
  (COMMAND"TEXT" Y1 1.25 0 "E=") V9zywM  
  ) Q)G!Y (g\  
  (PROGN ?..i4  
  (setq l (* l 1.1)) ~Un64M?  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) 7}d$*C  
  (setq p4 (list (- (car p3) 3)(cadr p2))) ]M~8@K  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) E#<7\p>  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) *f`s%&Y]s  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) oE!hF}O  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) i0'Xy>l  
  (COMMAND"LINE" P2 P3"") }0BL0N`_  
  (COMMAND"TEXT" X22 1.25 0 YY) U+.PuC[3  
  (COMMAND"TEXT" Y22 1.25 0 XX) NqT1b
uU#  
  (COMMAND"TEXT" XX1 1.25 0 "N=") @TA8^ND  
  (COMMAND"TEXT" YY1 1.25 0 "E=") ApG'jN  
) JN&MyA"  
) ,TF<y#wed  
) z[qdmx^  
(DEFUN C:zb5() #u8*CA9  
(setq cc 1) ?-8y4 Ex  
(setq cc (getint "输入点编号<1>:")) VR4E 2^  
(repeat 1000 "J P{Q  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") :'d76pM-  
(command "dimzin" "0")
>HcYVp~G  
(command "layer" "new" "zb_1" "") emv;m/&8  
(setvar "clayer" "zb_1" ) Mu'^OX82  
(command "color" 1) L2CW'Hd  
(command "osnap" "int") +MNSZLP]  
(command "osnap" "end") Gg}5$||^C  
(command "osmode" 1) P?q G  
(SETQ P1 (GETPOINT"Pick the zb point:")) 7MO  
(command "osmode" 0) V;iL[  
(SETQ P2 (GETPOINT P1)) n5egKAgA  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) (Bt;DM#>  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) qSEB}1  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) .'5
'0lR5  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) 66~e~F}z  
(SETQ XX (RTOS (CAR P1) 2 3)) 8Wdkztp/S  
(SETQ YY (RTOS (CADR P1) 2 3)) { r6]MS#l1  
(SETQ L1 (STRLEN XX)) Ii~; d3.  
(SETQ L2 (STRLEN YY)) O1?B{F/ e  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) 0{0;1.ZP  
(COMMAND"LINE" P1 P2"") 1 [fo'M  
(command "layer" "new" "zb_2" "") [|a( y6Q  
(setvar "clayer" "zb_2" ) ka2F!  
(IF (>= (CAR P2)(CAR P1)) uX<+hG.n
}  
  (PROGN 5ys#L&q'Z  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) h4XcKv+  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) oUQGLl!V  
  (command"circle" p4 7"") N<aB)</  
  (COMMAND"LINE" P2 P3"") ;'=VrE6  
  (setq bb 2.5) d&aBs++T  
  (IF (<= cc 9 )(setq bb 5)) 3VcT7y*{P  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) #D`S  
  (COMMAND"TEXT" X2 5 0 YY) $R%+*  
  (COMMAND"TEXT" Y2 5 0 XX) t
7|MkX1  
  (COMMAND"TEXT" X1 5 0 "N") U_x0KIm  
  (COMMAND"TEXT" Y1 5 0 "E") OgEUq''  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) J16=!q()  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) k40Ep(M}  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) |.b%rVu  
  (command"text" p5 6 0 cc) =$b-xsmeG  
  ) rDIhpT)a  
  (PROGN 09  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) Cq?',QU6j  
  (setq p4 (list (- (car p3) 7)(cadr p2))) M5']sdR(l  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) _YH<YOrMh  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) +P[88!  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) w::r?.9  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) u?q&K|  
  (COMMAND"LINE" P2 P3"") ^273l(CZ1  
  (command"circle" p4 7) FNz84qVIx'  
  (setq bb 12) <Gr9^C  
  (IF (<= cc 9 )(setq bb 8)) YO@hE>  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) 5mI?p
fm  
  (COMMAND"TEXT" X22 5 0 YY) W[R]^2QAG  
  (COMMAND"TEXT" Y22 5 0 XX) 6Cl+KcJH  
  (COMMAND"TEXT" XX1 5 0 "N") $zC6(C(l  
  (COMMAND"TEXT" YY1 5 0 "E") hz<|W5  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) 09R,'QJ|  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) !~K=#"T  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) Lzh9DYU6  
  (command"text" p5 6 0 cc) V.;:u#{@-Q  
  ) fd?bU|I_2  
) M4TrnZ1D}
 
(setq cc (+ cc 1)) 6oj4Rg+(  
PM~bM3Ei  
) DUZQO{V  
)

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

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