lisp填挖横断面提取_如何在别人提供的cad横断面设计图中提取横断面地面线数据...-程序员宅基地

技术标签: lisp填挖横断面提取  

(defun c:test()

(setq desktop (strcat (lt:sys-deskTopDir) "\\坐标导出.txt"))

(setq ff (open desktop "w"))

(setq b (getreal "\n请输入纵向比例尺.<200>:"))

(setq c (getreal "\n请输入横向比例尺.<200>:"))

(if (not b) (setq b 0.2) (setq b (/ b 1000)))

(if (not c) (setq c 0.2) (setq c (/ c 1000)))

(while

(SETQ ENT1 (ENTSEL "\n选择桩号 :"))

(IF (= ENT1 NIL)(PRINC "\n无效选择")

(PROGN

(SETQ ENT1 (ENTGET (CAR ENT1)))

(IF (/= (CDR (ASSOC 0 ENT1)) "TEXT")

(PRINC "\n选择对象非文本对象")

(PROGN

(setq ZZHH (cdr (assoc 1 ent1)))

)

)

)

)

(princ "选择基准位置:")

(setq point (getpoint) pty (cadr point))

(SETQ ENT (ENTSEL "\n选择基准位置参照高程对象 :"))

(IF (= ENT NIL)(PRINC "\n无效选择")

(PROGN

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/weixin_39903176/article/details/111814605

智能推荐

java中的圈复杂度计算_[代码质量] 圈复杂度和代码质量优化(附带示例代码纠正代码质量)...-程序员宅基地

文章浏览阅读690次。什么是圈复杂度?———————————————————————————————————————圈复杂度(Cyclomatic Complexity)是衡量计算机程序复杂程度的一种措施。它根据程序从开始到结束的线性独立路径的数量计算得来的。圈复杂度越高,代码就越难复杂难维护。坑就越大。。。从1开始,一直往下通过程序。一但遇到以下关键字,或者其它同类的词,就加1:if,while,repeat,for..._最大圈复杂度 java 计算

SpringBoot+Mybatis自动填充更新时间,更新与插入一体化_springboot中mysql数据自动添加入库时间-程序员宅基地

文章浏览阅读1.7k次。mybatis-plus提供了自动填充功能,不过由于是自定义xml映射文件,折腾许久,始终未实现,干脆些自己玩。同时,把数据插入更新集成为一个sql。 项目背景:SringBoot+Mybatis+Oracle直接上源码:<?xml version="1.0" encoding="UTF-8"?><!DOCTYPE mapper PUBLIC "-//mybatis.org//DTD Mapper 3.0//EN" "http://mybat..._springboot中mysql数据自动添加入库时间

【Linux】一步一步学Linux——umask命令(111)_omp_umask-程序员宅基地

文章浏览阅读1.3k次。00. 目录文章目录00. 目录01. 命令概述02. 命令格式03. 常用选项04. 参考示例05. 总结06. 附录01. 命令概述umask命令用来设置限制新建文件权限的掩码。当新文件被创建时,其最初的权限由文件创建掩码决定。用户每次注册进入系统时,umask命令都被执行, 并自动设置掩码mode来限制新文件的权限。用户可以通过再次执行umask命令来改变默认值,新的权限将会把旧的覆盖..._omp_umask

WM_GESTURE与RegisterTouchWindow的互斥_wm_gesture 收不到-程序员宅基地

文章浏览阅读6k次。网上说:如果你调用RegisterTouchWindow就会阻止接收WM_GESTURE消息,如果你没有收到WM_GESTURE消息,确保你没有调用RegisterTouchWindow消息。但是要接收WM_TOUCH消息就必须调用RegisterTouchWindow。 所以我想问问有没有什么方案可以使得这两个消息都能获取呢。 為了支援觸控動作,Windows 7定義了2個新的視窗訊息:WM_G_wm_gesture 收不到

自动驾驶——多传感器融合的学习笔记_自动驾驶多传感器融合-程序员宅基地

文章浏览阅读691次。1 融合算法的选择——使用EKF因为Apollo使用的是EKF,所以我们也用EKF,(具体的资料可以查看issues_10957)《无人驾驶》课程老师推荐的论文《EKF、UKF、PF目标跟踪性能的比较》中也是这样说的,..._自动驾驶多传感器融合

Vue2+VueRouter3+Webpack3.6+Axios项目实战----vuex整合进项目(三)_vuex2.3.1-程序员宅基地

文章浏览阅读449次。既然是正规项目自然少不了vuex咯,接下来我们来配置vuex。_vuex2.3.1

随便推点

C语言实现检查单词是否为变位词(相同字母的重新排列)-程序员宅基地

文章浏览阅读8.1k次,点赞7次,收藏20次。#includeint main(){ int a[26]={0},i=0,n=0,j=0; int arr[20]={0}; char ch='\0'; printf("Enter first word:"); ch=getchar(); while(ch != '\n') { if(ch>='A' && ch<=

能增删查改的管理系统PHP,GitHub - gulang12/cpms-php: 使用thinkPHP5.0开发的后台简洁管理系统脚手架,cpms-php是采用TP5.0开发的一个简单的后台脚手架管...-程序员宅基地

文章浏览阅读231次。简介:项目名:cpms 是Concise practical management system 的首字母缩写,意思是:简洁实用的后台管理系统做这个系统起初是为了做一个自己的技术博客用的,在做之前看了两天的TP5用法,然后动手写了这个超简单的后台管理系统。cpms-php是采用TP5.0开发的一个简单的后台脚手架管理系统(包括前台展示和后台管理部分)。主要模块有:用户登入验证、后台管理员增删改查、...

总结2017展望2018-程序员宅基地

文章浏览阅读1k次。总结2017已经结束了,这一年里博文发的不是很多,对大家有用的也不多。也在不断的提升自己,学了很多基础的东西,看了HenCoder的自定义View,填补了我对自定义View的一些空白;看了郭神的Glide系列,让我对Glide有了全新的认识,不过还是有很多不懂的还得细读。让我对源码分析有了更多的信心,我也试着啃了“Activity的启动流程”。之前对看书没什么兴趣,现在看了任玉刚《Androi

.NET HTTPCONTEXT在ASP.NET MVC CONTROLLER里为NULL的解决方法-程序员宅基地

文章浏览阅读409次。[C#]HTTPCONTEXT在ASP.NET MVC CONTROLLER里为NULL的解决方法

Windows服务器自动化抓取log并上传_window定时任务管理器 日志-程序员宅基地

文章浏览阅读2.7k次。最近因为项目有日志审计的需要,需要把多个windows服务器的log每天抓取并自动上传到指定的服务器中。经过查阅相关知识之后,决定采用bat脚本+定时计划任务的方式来实现。一、Window事件日志简介 Windows系统日志是记录系统中硬件、软件和系统问题的信息,同时还可以监视系统中发生的事件。用户可以通过它来检查错误发生的原因,或者寻找受到攻击时攻击者留下的痕..._window定时任务管理器 日志

Linux中如何添加自己的路径为全局路径-程序员宅基地

文章浏览阅读6.8k次。原文地址Linux中如何添加自己的路径到PATH标签: Linuxpath2016-02-22 00:18 14242人阅读 评论(0)收藏举报本文章已收录于:分类: Linux(41) 作者同类文章X版权声明:本文为博主原创文章,未经博主允许不得转载。