lisp正负调换_坐标提取lisp程序

工程

|

标签:

|

字号大中小

订阅

;

该程序主要用于

CAD

点(

point

)三维坐标提取,并将数据输出为

CASS

软件中使用的数据格式

;

输出格式:

点号

,,

测量

Y

值,测量

X

值,测量

Z

例:

1,,100.3244,1232,433,25

;2010-05-17

;

命令:

plzbsc

(defun c:plzbsc()

(princ "\n

选择所需输出的点(

point

)

:")

(setq ss (ssget ));;

选取坐标点

(setq n (sslength ss ));

计算坐标点数量

(setq ff (open (getfiled "

文件保存为

" "f:/" "dat" 1) "w"));

保存路径

(setq i 0)

(repeat n

(setq spt (ssname ss i ))

(setq ept (entget spt))

(if (= (cdr (assoc 0 ept)) "POINT")

(progn

(setq lxyz (cdr (assoc 10

ept)))

(setq sx (rtos (nth 1 lxyz)));

将坐标值实数转换成字符

(setq sy (rtos (nth 0 lxyz)))

(setq sz (rtos (nth 2 lxyz)))

(setq i1 (+ i 1));

计算点序号

(setq sn (rtos i1 2 0));

将序号实数转换成字符

(setq sxyz (strcat sn",,"

sy ","

sx

","

sz))

(write-line sxyz ff)

)

)

(setq i (+ i 1))

);repeat

)

(prompt "* <<

命令

:plzbsc >> *

输出格式(点号

,, Y

X

Z

)

**")

(prin1)

地形图上提取碎步点(高程点)坐标并输出到文本

2010-05-18 08:50:38|

分类:

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/297736.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

自主生态再进一步,龙芯中科完成.NET3.1-LoongArch64平台研发

近日&#xff0c;龙芯中科.NET团队完成了.NET3.1-LoongArch64平台研发工作&#xff0c;研发的成功标志着围绕龙芯自主指令系统LoongArch的生态建设成果再进一步。龙芯自主指令系统LoongArch基于龙芯二十年的CPU研制和生态建设积累&#xff0c;LoongArch从顶层架构&#xff0c;到…

keras 自定义层input_从4个方面介绍Keras和Pytorch,并给你选择其中一个学习库的理由...

全文共3376字&#xff0c;预计学习时长7分钟对许多科学家、工程师和开发人员而言&#xff0c;TensorFlow是他们的第一个深度学习框架。TensorFlow 1.0于2017年2月发布&#xff1b;但客观来说&#xff0c;它对用户不是非常友好。过去几年里&#xff0c;由于Keras和PyTorch比Tens…

KlayGE 4.0中Deferred Rendering的改进(五)完结篇:Post process

转载请注明出处为KlayGE游戏引擎上一篇分析了KlayGE中实现实时全动态GI的方法&#xff0c;本篇是这个系列的完结篇&#xff0c;主要讲流水线的最后一段&#xff1a;Post process。 Post process 在KlayGE 4.0的Deferred Rendering中&#xff0c;post process主要有HDR、AA和col…

Centos 手工创建新用户

当我们要创建一个用户时&#xff0c;通常使用useradd命令就可以自动创建了一个用户&#xff1b;实际上&#xff0c;在linux下&#xff0c;一切皆文件&#xff0c;设置好几个文件&#xff0c;也是可以创建出一个用户&#xff1a;文件如下&#xff1a;/etc/passwd :用户/etc/sha…

为了这个羞羞的项目,我差点成为“鉴黄师”

全世界只有3.14 % 的人关注了爆炸吧知识转自&#xff1a;大数据文摘编译&#xff1a;蒋宝尚、魏子敏给男同学们一个机器学习&#xff0c;他们能研究所有他们能想到的问题。当然&#xff0c;根据这本真实存在的畅销书&#xff0c;他们真的能想到的话题也不多????开个玩笑&am…

android管理activity顺序,android activity 六个主要函数以及一些调用顺序

Android中一个Activity一般都需要实现六个函数:onCreate(), onStart(), onResume(),onPause(),onStop(),onDestroy().onCreate函数:注册你要用到的变量&#xff0c;比如说service&#xff0c;receiver&#xff0c;这些变量是无论你的Activity是在前台还是在后台都能够被响应到的…

qt绘制一圈圆_Qt绘制圆形,矩形等图形   绘制同心圆

原来Qt也可以绘制图形啊。利用QPainter类来绘制&#xff0c;再辅以其他类&#xff0c;诸如QPen来说明绘制的画笔&#xff0c;QPoint来说明某个点&#xff0c;QPaletee来说明绘制的颜料等等。在QWidget类中来实现虚拟函数oidpaintEvent(QPaintEvent*)。当调用这个QWidget时&…

到成都去是联想的必然选择

“孔雀东南飞&#xff0c;联想西南飞。” 成都一直是笔者最喜欢的城市之一。它又名“蓉”、“锦城”、“锦官城”和“天府之国”。虽然位于中国的中西部&#xff0c;但是科技水平、电脑技术应用和互联网普及水平却远远高于周边地区&#xff0c;经济水平也位列西部各城市首位。再…

【.NET】实现CI/CD(二)运行镜像,自动化部署

&#xff08;一重山&#xff0c;两重山。&#xff09;书接上文&#xff0c;在上回中我们说到了《【Azure Core】实现CI/CD&#xff08;一&#xff09;构建镜像并推送仓库今天我们继续往下说&#xff0c;说下CD&#xff08;持续部署&#xff09;的流程&#xff0c;也是很简单。…

a*算法的时间复杂度_数据结构(1)——算法和时间复杂度

Data Structure1算法和时间复杂度01.什么是数据结构&#xff1f;程序设计 数据结构 算法数据结构是关系&#xff0c;是数据元素相互之间存在的一种或多种特定关系的集合。数据结构和算法凌驾于任何一种编程语言之上。02.逻辑结构和物理结构数据结构分为逻辑结构和物理结构。逻…

新开博客啦

其实决定开一个技术博客很久了&#xff0c;但一直都没找到合适的&#xff0c;博客园的背景确实不错&#xff0c;好像没有其他的广告&#xff0c;算是比较清新的一个网站了吧。 从这里开始&#xff0c;记录自己的学习心得&#xff0c;把自己的学习历程拿出来分享&#xff0c;与你…

C++的enum hack

从一个例子开始吧 class Game { private:static const int GameTurn 10;int scores[GameTurn]; };对于支持类内初始化的C编译器&#xff0c;这段代码可以编译通过。 但是较老的C编译器&#xff0c;可能不支持类内初始化&#xff0c;这样我们的静态常量&#xff0c;必须要在类外…

android vcard解析代码,Android使用vcard文件的方法简单实例

本文实例讲述了Android使用vcard文件的方法。分享给大家供大家参考&#xff0c;具体如下&#xff1a;FileOutputStream os null;try {os VCardTest.this.openFileOutput("Android.vcf", MODE_PRIVATE);} catch (FileNotFoundException e1) {// TODO Auto-generated…

学会了!如果认错人了,就像这样亲一口!

1 千万不要用曲面屏炒股▼2 谁掏钱多就听谁的准没错▼3 你和你妈的通话记录▼4 em......陷入沉思▼5 人类1994年拍摄到的冥王星人类2018年拍摄到的冥王星▼6 猫&#xff1a;你滚开&#xff01;劳资不要运动&#xff01;▼7 吃下去长肉了你来找我我给你送实验室研究研究▼…

短文件名漏洞如何修复_短文件名漏洞修复

短文件名漏洞其实在13年时还是很令人耳熟能详的&#xff0c;不过随着所在公司的编码语言转型&#xff0c;目前使用ASP.NET的新项目基本上没有了&#xff0c;而更多的是对原来的采用ASP.NET语言开发的项目进行维护或打个补丁。事出突然&#xff0c;12月的某个下午被项目组喊去帮…

在MinGW下使用DShow的方法

用MinGW编译DShow的东西&#xff0c;经常遇到没找到IBaseFilter的问题。本质上是MinGW的w32api并没有提供完整的DShow头文件所致。经过一番折腾&#xff0c;得到了下面的解决方案&#xff1a; 1. 从http://sourceforge.net/projects/mingw-w64/下载mingw-w64-headers&#xff0…

十个现象,识别程序员的“水份”

大家好&#xff0c;我是Z哥。下周五正好是国庆&#xff0c;我也给自己放个假&#xff0c;就不发文了。所以今天是节前最后一篇文章&#xff0c;先提前祝大家国庆快乐&#xff0c;可以好好放松一下。今天我们不聊干货了&#xff0c;聊点轻松的&#xff0c;来吐槽一下程序员的那些…

android 更改edittext内容,Android如何实时更改edittext的内容

为此使用TextWatcher。设置它的EditText用户类型&#xff1a;myEditText1.addTextChangedListener(new TextWatcher() {Overridepublic void afterTextChanged(Editable s) {String value s.toString();// Perform computations using this string// For example: parse the v…

python循环语句嵌套_Python 循环语句

循环语句 ​循环语句主要是用于解决某些重复的代码工作&#xff0c;使需要重复的代码只写一遍即可。 Python循环语句主要有两种&#xff1a;while循环和for...in...循环。 一、while循环 主要用于不确定循环的次数时&#xff0c;根据条件进行判断&#xff0c;条件成立&#xff…

linux部署的java应用,浏览器访问时,报域名解析错误

工作中&#xff0c;经常需要在Linux环境中部署Tomcat&#xff0c;配置java应用。在浏览器中访问应用时&#xff0c;却报域名解析错误&#xff0c;该怎么样解决呢&#xff1f; 解决方法&#xff1a;关闭防火墙 iptables -L -n    查看已添加的iptables规则 iptables -F se…