利用多段线提取桩位坐标并展点号.doc_第1页
利用多段线提取桩位坐标并展点号.doc_第2页
利用多段线提取桩位坐标并展点号.doc_第3页
利用多段线提取桩位坐标并展点号.doc_第4页
利用多段线提取桩位坐标并展点号.doc_第5页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

一、 编写Autolisp源代码文件.lsp代码部分：（分割线一下）=(defun c:lddl()(setvar cmdecho 0)(setvar osmode 0)(setq ffn(getfiled 选取文件 xls 1)(setq ff (open ffn a)(close ff)(princ n 选取Pline多义线)(setq ss (ssget)(setq i 0)(repeat (sslength ss);根据选择集的个数来确定循环。(setq zimu(getstring 如果点号前加字母请输入字母,不需要请按回车键)(setq num (getint 输入起始点号)(setq ssn (ssname ss i)(setq endata (entget ssn)(setq n 0)(repeat (length endata);根据图元的元素个数进行循环。(setq pp (nth n endata);负责检索图元元素。(setq key (car pp);提取元素名称(if (= key 10)(progn (setq x (rtos (cadr pp)2 3);设置精度(setq y (rtos (caddr pp)2 3);同上(setq ff (open ffn a)(princ zimu ff)(princ num ff)(princ t ff)(princ x ff)(princ t ff)(princ y ff)(princ n ff)(close ff)(command text m(list (atof x) (- (atof y) 0.7) 0.3 0 (strcat zimu (itoa num);为了标注点好，调整位置的时候需要把字符串转换成实数。(setq num (1+ num)(setq n (1+ n);从头检索找到元素名为“10”，转换写入文件。)(setq i (1+ i)(princ (strcat n 文件写至- ffn)(prin1)=把以上代码复制粘贴到记事本修改后缀名file.txtfile.lsp二、 加载lsp文件，保存excel文件。点击加载应用程序选择file.lsp的文件点击加载选择加载一次或者始终加载都可以关闭加载窗口，状态栏显示加载成功！在命令框输入lddl新建保存的excel的位置以及文件名点击保存。选择你要提取的多段线（一次可以选择多个线段，也可单选）输入第一段的起始点号空格输入下一段的起始点号输出的excel的格式为 “
人人文库> 全部分类> 行业资料 > 管理策划

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论