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

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

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

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

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

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

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

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

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

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

用以下这段Ｌisp程序就可以快速地将图中的坐标标注在图中指定的位置． :LB*l5\  
v.*fJ  
(DEFUN C:zb() EZ>(}  
(command "dimzin" "0") W{Je)N  
(command "layer" "new" "zb_1" "") =}tomN(F~[  
(setvar "clayer" "zb_1" ) phG*It}  
(command "color" 1) (`slC~"  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") x~uDCbL  
(command "osnap" "int") =RXeN+ &R  
(command "osnap" "end") 3=U#v<  
(command "osmode" 1) /tG as  
(SETQ P1 (GETPOINT"Pick the zb point:")) J|hVD  
(command "osmode" 0) $aEv*{$y  
(SETQ P2 (GETPOINT P1)) `3jwjy|5  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) I*j~5fsS'  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) p2(ha3PW  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) _QHk&-Lp  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) fJ\?+,  
(SETQ XX (RTOS (CAR P1) 2 3)) #/Ob_~-?j  
(SETQ YY (RTOS (CADR P1) 2 3)) ] 7[#K^  
(SETQ L1 (STRLEN XX)) =\u,4  
(SETQ L2 (STRLEN YY)) *.eeiSi{  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) |Isn<|_  
(COMMAND"LINE" P1 P2"") q|%+?j(  
(command "layer" "new" "zb_2" "") oMemF3M  
(setvar "clayer" "zb_2" ) SVZ@'X\[M  
(IF (>= (CAR P2)(CAR P1)) UhDf6A`]  
  (PROGN F#yn'j8  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) $,O8SW.O$  
  (setq p4 (list (+ (car p3) 5)(cadr p2))) Pc&dU1  
  (COMMAND"LINE" P2 P3"") &\ca ? #  
  (setq p5 (list (+ (car p3) 2.5)(- (cadr p3) 2.5))) O13]H"O_  
  (COMMAND"TEXT" X2 5 0 YY) ]#DCO8Vk  
  (COMMAND"TEXT" Y2 5 0 XX) {/)i}V#RE  
  (COMMAND"TEXT" X1 5 0 "N") ae-tAA[1Y  
  (COMMAND"TEXT" Y1 5 0 "E") vN v'%;L  
  ) 5nBJj  
  (PROGN Lj|wFV  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) )2wf D  
  (setq p4 (list (- (car p3) 5)(cadr p2))) b&@]f2/  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) 0827z  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) U/PNEGuQ  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) h3.CvPYy1  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) T~$Eh6 D  
  (COMMAND"LINE" P2 P3"") g||EjCsp  
  (setq p5 (list (- (car p3) 8)(- (cadr p3) 2.5))) _'Jjt9@S  
  (COMMAND"TEXT" X22 5 0 YY) &ZMQ]'&  
  (COMMAND"TEXT" Y22 5 0 XX) c
2Z!Vtd  
  (COMMAND"TEXT" XX1 5 0 "N") |wJdp,q R  
  (COMMAND"TEXT" YY1 5 0 "E") F,)+9/S&  
  ) $bp$[fX(e  
) [z\baL|  
) QKEtV  
(DEFUN C:zb3() &,8Q
e;  
(command "dimzin" "0") T^MY w  
(command "layer" "new" "zb_1" "") D^h! ].3 T  
(setvar "clayer" "zb_1" ) b3_P??yp  
(command "color" 1) F0&ubspt\  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") 3n)Kzexh  
(command "osnap" "int") PX?%}~ v  
(command "osnap" "end") g]JJ!$*1  
(command "osmode" 1) 9;I%Dv  
(SETQ P1 (GETPOINT"Pick the zb point:")) Z" H;t\P  
(command "osmode" 0) CAviP61T  
(SETQ P2 (GETPOINT P1)) *tT}N@<%  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) \z6UWZ  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 4))) IO&U=-pn&  
(SETQ X2 (LIST (+ (CAR P2) 5)(CADR X1))) d 4tL  
(SETQ Y2 (LIST (+ (CAR P2) 5)(CADR Y1))) {S+?n[1r\  
(SETQ XX (RTOS (CAR P1) 2 3)) !0? B
=yA  
(SETQ YY (RTOS (CADR P1) 2 3)) D=vw0Q_3Y3  
(SETQ L1 (STRLEN XX)) byE0Z vDM  
(SETQ L2 (STRLEN YY)) #b&tNZ4!_  
(IF (>= L1 L2)(SETQ L (* L1 2.4))(SETQ L (* L2 2.4))) )uAY_()/  
(COMMAND"LINE" P1 P2"") pam9wfP  
(command "layer" "new" "zb_2" "") DazoY&AWE  
(setvar "clayer" "zb_2" ) sZ&6g<8#y  
(IF (>= (CAR P2)(CAR P1)) X0+E!~X$zM  
  (PROGN ts
(
u7CJd  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) XP
f{R619  
  (setq p4 (list (+ (car p3) 3)(cadr p2)))  wT19m  
  (COMMAND"LINE" P2 P3"") GK-P6d  
  (COMMAND"TEXT" X2 2.5 0 YY) d3\?:}o,  
  (COMMAND"TEXT" Y2 2.5 0 XX) *w.":\P]  
  (COMMAND"TEXT" X1 2.5 0 "N=") m;4ti9  
  (COMMAND"TEXT" Y1 2.5 0 "E=") 49>b]f,Vc  
  ) ceJ#>Rj  
  (PROGN 4a&8G  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) "9^b1UH<  
  (setq p4 (list (- (car p3) 3)(cadr p2))) eD(5+b

m  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) d0}(d Gl  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 4))) <z%**gP~G  
  (SETQ X22 (LIST (+ (CAR P3) 4)(CADR XX1))) K"t?  
  (SETQ Y22 (LIST (+ (CAR P3) 4)(CADR YY1))) &-o5lrq  
  (COMMAND"LINE" P2 P3"") NAtDt=  
  (COMMAND"TEXT" X22 2.5 0 YY) lb9?Uc@  
  (COMMAND"TEXT" Y22 2.5 0 XX) ID`C  
  (COMMAND"TEXT" XX1 2.5 0 "N=") k4<28  
  (COMMAND"TEXT" YY1 2.5 0 "E=") -1B.A  
) Q|+ a   
) 6ERMn"[_w  
) >&e=0@?+G  
(DEFUN C:zb2() #wT6IU1  
(command "dimzin" "0") 8pA<1H%  
(command "layer" "new" "zb_1" "") x&J\swN9  
(setvar "clayer" "zb_1" ) &`s{-<t<L  
(command "color" 1) .czUJyFms}  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") :qqG%RB  
(command "osnap" "int") 2<OU)rVE4  
(command "osnap" "end") nu+^D$ait  
(command "osmode" 1) -z. wAp  
(SETQ P1 (GETPOINT"Pick the zb point:")) 3rFku"zT$  
(command "osmode" 0) ha;fxM]  
(SETQ P2 (GETPOINT P1)) |xZu?)M4  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 1))) +1yi{!j1  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 2))) 'MX|=K!C  
(SETQ X2 (LIST (+ (CAR P2) 2.5)(CADR X1))) L?;UcCB  
(SETQ Y2 (LIST (+ (CAR P2) 2.5)(CADR Y1))) !%}n9vr!}\  
(SETQ XX (RTOS (CAR P1) 2 3)) Kyk{:UnI  
(SETQ YY (RTOS (CADR P1) 2 3)) )M"NMUuU"  
(SETQ L1 (STRLEN XX)) G"m0[|XH  
(SETQ L2 (STRLEN YY)) e<{d{  
(IF (>= L1 L2)(SETQ L (* L1 1))(SETQ L (* L2 1))) oB!Y)f6H1  
(COMMAND"LINE" P1 P2"") V,VL?J\  
(command "layer" "new" "zb_2" "") OAiW8BAe  
(setvar "clayer" "zb_2" ) ?(R#  
(IF (>= (CAR P2)(CAR P1)) (y?F8]TfM  
  (PROGN E0VAhN3G\  
  (SETQ P3 (LIST (+ (CAR P2) L)(CADR P2))) _kRc"MaB  
  (setq p4 (list (+ (car p3) 3)(cadr p2))) u59l)8=  
  (COMMAND"LINE" P2 P3"") a;KdkykG  
  (COMMAND"TEXT" X2 1.25 0 YY) 68bvbig  
  (COMMAND"TEXT" Y2 1.25 0 XX) JW><&hY$"  
  (COMMAND"TEXT" X1 1.25 0 "N=") Kv!:2br  
  (COMMAND"TEXT" Y1 1.25 0 "E=") ?[bE/Ya+S  
  ) gi/k#3_m  
  (PROGN 2V%z=  
  (setq l (* l 1.1)) Iv3yDL;  
  (SETQ P3 (LIST (- (CAR P2) L)(CADR P2))) WY>$.e  
  (setq p4 (list (- (car p3) 3)(cadr p2))) c\>I0HH;!  
  (SETQ XX1 (LIST (CAR P3)(+ (CADR P3) 1))) h*y+qk-!\g  
  (SETQ YY1 (LIST (CAR P3)(- (CADR P3) 2))) 6W1+@ q  
  (SETQ X22 (LIST (+ (CAR P3) 2.5)(CADR XX1))) 4yqYs>  
  (SETQ Y22 (LIST (+ (CAR P3) 2.5)(CADR YY1))) ng|
^Zm%   
  (COMMAND"LINE" P2 P3"") [G|

(E  
  (COMMAND"TEXT" X22 1.25 0 YY) 4qE4 i:b  
  (COMMAND"TEXT" Y22 1.25 0 XX) #r"|%nOfY  
  (COMMAND"TEXT" XX1 1.25 0 "N=") o~y{9Q  
  (COMMAND"TEXT" YY1 1.25 0 "E=") tboQn~&4  
) JAjiG^]  
) b'SP,}s5"  
) ><IWF#kUA  
(DEFUN C:zb5() Kv1~,j6  
(setq cc 1) IEm~^D#<=  
(setq cc (getint "输入点编号<1>:")) Opf)TAl{  
(repeat 1000 ;*zLf 9i  
(command "style" "zb" "complex.shx" "0" "0.75" "0" "n" "n" "n") ~a3u['B  
(command "dimzin" "0") 5*A5Y E-  
(command "layer" "new" "zb_1" "") 1}c/l<d  
(setvar "clayer" "zb_1" ) - |DWPU!"  
(command "color" 1) ~.G$0IJY  
(command "osnap" "int") 5tkKd4VfL
 
(command "osnap" "end") ^{IZpT3  
(command "osmode" 1) h]~FYY  
(SETQ P1 (GETPOINT"Pick the zb point:")) -Wmb M]Z  
(command "osmode" 0) aqqo>O3 s  
(SETQ P2 (GETPOINT P1)) a%HNz_ro  
(SETQ X1 (LIST (CAR P2)(+ (CADR P2) 2))) %X\A|V&  
(SETQ Y1 (LIST (CAR P2)(- (CADR P2) 7))) b"#S92R+  
(SETQ X2 (LIST (+ (CAR P2) 6)(CADR X1))) )YwEl72c  
(SETQ Y2 (LIST (+ (CAR P2) 6)(CADR Y1))) *szs"mQ/  
(SETQ XX (RTOS (CAR P1) 2 3)) .H M3s  
(SETQ YY (RTOS (CADR P1) 2 3)) SX'NFdY  
(SETQ L1 (STRLEN XX)) W//+[  
(SETQ L2 (STRLEN YY)) h*JN0O<b  
(IF (>= L1 L2)(SETQ L (* L1 5))(SETQ L (* L2 5))) hTO2+F*  
(COMMAND"LINE" P1 P2"") Go:(R {P  
(command "layer" "new" "zb_2" "") Va.TUz4  
(setvar "clayer" "zb_2" ) !nJl.Y$  
(IF (>= (CAR P2)(CAR P1)) bWb/>hI8 Q  
  (PROGN am3JzH  
  (SETQ P3 (LIST (+ (CAR P2) ( * L 0.85))(CADR P2))) t {1 [Ip  
  (setq p4 (list (+ (car p3) 7)(cadr p2))) #E=8kbD7  
  (command"circle" p4 7"") w+j\Py_G"  
  (COMMAND"LINE" P2 P3"") V D7^wd9  
  (setq bb 2.5) 2.Ww(`swL  
  (IF (<= cc 9 )(setq bb 5)) 4?@#w>(  
  (setq p5 (list (+ (car p3) bb)(- (cadr p3) 2.5))) 1Zp/EYWa{  
  (COMMAND"TEXT" X2 5 0 YY) |[5;dt_U/  
  (COMMAND"TEXT" Y2 5 0 XX) E <j=5|0t  
  (COMMAND"TEXT" X1 5 0 "N") 2 KH
T!ik  
  (COMMAND"TEXT" Y1 5 0 "E") 6J JA"] `  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) 03|nP$g  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) S}h d,"I  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) xjnAK!sD  
  (command"text" p5 6 0 cc) 44~ReN}`  
  ) s}Go")p<:  
  (PROGN EI?8/c  
  (SETQ P3 (LIST (- (CAR P2) ( * L 0.85))(CADR P2))) XW8@c2jN\7  
  (setq p4 (list (- (car p3) 7)(cadr p2))) vvY?8/  
  (SETQ XX1 (LIST (+ (CAR P3) 1)(+ (CADR P3) 2))) v,Z]Vqk  
  (SETQ YY1 (LIST (+(CAR P3) 1)(- (CADR P3) 7))) b@4UR<  
  (SETQ X22 (LIST (+ (CAR P3) 6)(CADR XX1))) z8S]FpM6  
  (SETQ Y22 (LIST (+ (CAR P3) 6)(CADR YY1))) ):tv V  
  (COMMAND"LINE" P2 P3"") Z/:
yYSq  
  (command"circle" p4 7) z]%@r 7  
  (setq bb 12) eJ<P  
  (IF (<= cc 9 )(setq bb 8)) d)biMI}<5  
  (setq p5 (list (- (car p3) bb)(- (cadr p3) 2.5))) =,ax"C?pR  
  (COMMAND"TEXT" X22 5 0 YY) SfPQ;s'  
  (COMMAND"TEXT" Y22 5 0 XX) r|ZB3L|7  
  (COMMAND"TEXT" XX1 5 0 "N") OSUiS`k  
  (COMMAND"TEXT" YY1 5 0 "E") $$0< &  
  (IF (>= cc 10)(command "style" "zb" "complex.shx" "0" "0.9" "0" "n" "n" "n")) k0\a7$}F  
  (IF (>= cc 100)(command "style" "zb" "complex.shx" "0" "0.65" "0" "n" "n" "n")) bp?TO]LH  
  (IF (>= cc 1000)(command "style" "zb" "complex.shx" "0" "0.5" "0" "n" "n" "n")) p`7d9MV^  
  (command"text" p5 6 0 cc) NWiDNK[VE}  
  ) G8w@C
 
) 5QXU"kWH  
(setq cc (+ cc 1)) _8K8Ai-~.>  
r9bAbE bI  
) iNi1+sm  
)

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

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