利用多段线提取桩位坐标并展点号

(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.txtàfile.lsp二、 加载lsp文件,保存excel文件。点击加载应用程序选择file.lsp的文件点击加载选择加载一次或者始终加载都可以关闭加载窗口,状态栏显示加载成功!在命令框输入lddl新建保存的excel的位置以及文件名点击保存。选择你要提取的多段线(一次可以选择多个线段,也可单选)输入第一段的起始点号空格输入下一段的起始点号输出的excel的格式为 “点号” “Y” “X”三、 结束如果需要继续提取可以继续选择上次excel文件,坐标将接着上次结束位置继续录入。
关 键 词:
利用 多段线 提取 坐标 点号
 天天文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:利用多段线提取桩位坐标并展点号
链接地址: https://www.wenku365.com/p-44814160.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服点击这里,给天天文库发消息,QQ:1290478887 - 联系我们

本站为“文档C2C交易模式”,即用户上传的文档直接卖给(下载)用户,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有【成交的100%(原创)】。本站是网络服务平台方,若您的权利被侵害,侵权客服QQ:1290478887 欢迎举报。

1290478887@qq.com 2017-2027 https://www.wenku365.com 网站版权所有

粤ICP备19057495号 

收起
展开