cad怎么cad提取点坐标坐标出来

来源：蜘蛛抓取(WebSpider) 时间：2016-01-23 17:42 标签： cad提取坐标
您的位置：> -&
-& >下载 档案号：#129027
软件授权：
软件大小：
软件语言：
软件评级：
官方主页：
更新时间：
应用平台：
分享到这：
复制到论坛
复制到博客
官方评级：2/715
同类软件推荐
本类下载排行上传时间：
56官方微信
扫一扫发现精彩怎样把CAD中点的坐标批量转化为文本文件
22:22 星期五晴
　　在CAD作图中，经常需要把文本文件的测点坐标展绘到CAD中，还经常需要把CAD中离散点坐标转化为文本文件或者EXCEL格式的文件。如果只是少数几个点，经过复制粘贴，倒腾几次也能从CAD中转化到文本文件；对于大量离散点，就一定要用转化软件来高效完成批量转化。
　　转化过程：
　　1.建立一个“zhhua.lsp”文件，文件内容如下：
　　2.用CAD打开需要需要转化的文件；
　　3.用appload加载“zhhua.lsp”
　　4.运行“zhhua”，框选择需要转化的离散点；
5.建立转化新文件；过程图：
&&&&&&&&&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
图一 加载程序
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
图二& 框选需要提取坐标的点
&&&&&&&&&&&&&&&&&&&&&&&&&&&
图三& 提取点的坐标
(defun c:zhhua()
(princ "\n框选所需输出的点:")
(setq ss (ssget ))
(setq n (sslength ss))
(setq ff (open (getfiled "文件保存为" "c:" "txt" 1) "w"))
(setq i 0)
& (setq spt (ssname ss i ))
& (setq ept (entget spt))
& (if (= (cdr (assoc 0 ept)) "POINT")
&&& (progn
(setq lxyz (cdr (assoc 10 ept)))
(setq sy (rtos (nth 0 lxyz)))
(setq sx (rtos (nth&1 lxyz)))
(setq sz1 (rtos (nth 2 lxyz)))
(setq sxyz (strcat sx " " sy " " sz1))
(write-line sxyz ff)
& (setq i (+ i 1))
(princ "\n转换完毕")
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。建议使用以上版本或、浏览器访问本站，获得更好的用户体验。

我要回帖

更多关于 cad提取坐标 的文章

 

随机推荐