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

(defun c:md() bt};Pn{3  
(setvar "cmdecho" 0) #tIeI6Qw  
(COMMAND ".UNDO" "BE") D#D55X^6*  
(command "-units" "2" "3" "2" "3" "" "") [}=a6Q>)  
(setq fp (open "d:/孔号坐标值.xls" "a") s (getvar "cmdecho") n (getint "\n请输入总孔数！ ")) v:P=t2q  
(princ "孔号" fp)(princ "\t" fp) (!PsK:wc  
(princ "X坐标值" fp)(princ "\t" fp) S"t\LB*'Ls  
(princ "Y坐标值" fp)(princ "\n" fp) p'0X>>$  
(repeat n jqj4(J@%yr  
(setq k (getstring "\n输入孔号（如：K1）！") js9^~:Tw  
p (getpoint "\n选取坐标点！") o%,?v 9  
x (strcat (rtos (nth 0 p))) 8OMMV,QF  
y (strcat (rtos (nth 1 p)))) =axuLP))  
(princ k fp)(princ "\t" fp) AtUtE#K  
(princ x fp)(princ "\t" fp) 8(ot<3(D  
(princ y fp)(princ "\n" fp)) )<f4F!?,A  
(close fp) k. NJ+  
(setvar "cmdecho" s)) bzr QQQ  
(princ "\n提示：输入 MD 命令来运行本程序！") b BiTAP  
(princ) gq]
@*C  
这个CAD LISP语言就可以在CAD中直接点击提取点坐标至EXCEL的

先下载下来看看怎么样

来学习的！

相当不错的资料，谢谢楼主分享！ "O-X*>?f  

              

不错、谢谢楼主分享、、、、、

wzs8008土友 提供的程序好，但要有改进的地方。 _J!&R:]$  
如：如果在布置钻孔时不知道孔数，预计的孔数只能估计一个了。 y]+5Y.Cw$  
还有，如果钻孔很多，你提了几个后就不知道哪个提取了哪个没有提取了。

来学习的，谢谢楼主

现在我遇到的一个问题是：如何在野外尽量减少工作量，使室内处理资料又能够得心应手呢？例如打标惯，非要1.5m打一个吗？等等。。。

太专业了，我只能伸手拿了！

向楼主学习，谢谢楼主的贡献