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

技术标签: 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

(SETQ ENT (ENTGET (CAR ENT)))

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

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

(PROGN

(setq GCZ (atof (cdr (assoc 1 ent))))

)

)

)

)

(princ "选择提取位置")

(princ ZZHH ff)

(princ "\n" ff)

(while

(setq point2 (getpoint))

(setq y2 (cadr point2))

(setq pianju (- (car point2) (car point)))

(setq x0 (car point) y0 (cadr point))

(setq pianju (* pianju c))

(setq d (* (- y2 pty) b) yz (rtos (+ GCZ d) 2 2))

(princ yz ff)

(princ " " ff)

(princ pianju ff)

(princ "\n" ff)

(princ)

)

)

(close ff)

)

(defun lt:sys-deskTopDir ()

(vlax-invoke-method

(vlax-get-property (vlax-create-object "wscript.shell") 'SpecialFolders)

'Item

"desktop"

)

)

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

智能推荐

docker 拉取nginx镜像 并挂载目录 以及发布前端项目_程序猿二鍋頭的博客-程序员秘密_docker拉取nginx镜像

docker 拉取nginx镜像 并挂载目录第一步拉取nginx镜像docker pull nginx第二步创建将要挂载的目录mkdir -p /home/local/docker/nginx/{conf,conf.d,html,logs}第三步 编写配置文件先要有配置文件才能启动容器1 . 在/home/local/docker/nginx/conf目录下创建nginx.conf文件cd/home/local/docker/nginx/confv...

Dlib库学习与介绍_骚火棍的博客-程序员秘密

Dlib库学习与介绍Dlib是一个包含机器学习算法的C++开源工具包。Dlib可以帮助您创建很多复杂的机器学习方面的软件来帮助解决实际问题。Dlib是开源的、免费的;官网和github地址:Dlib官网Github地址主要特点:文献资料:与许多开源项目不同,该项目为每个类和功能提供完整而精确的文档。还有一些调试模式可以检查记录在案的功能前提条件。启用此功能后,它将捕获由于错误地调...

Android Studio cannot launch avd in emulator问题解决_25King的博客-程序员秘密

在使用Android Studio的模拟器的时候出现以下问题,下面是在环境搭配中遇到的官方虚拟机无法调出的问题:解决方案:进入SDK manager下载对应的镜象文件,通常通过下载以下两个文件解决(CPU为Intel):Intel x86 Atom_64 System ImageIntel x86 Emul

【Java必修课】Java 8之条件断言Predicate的使用_南瓜慢说的博客-程序员秘密_java8断言

简介Java 8引入了许多函数式接口Functional Interface,Predicate则是常用的一个。Predicate主要的方法为:boolean test(T t);它传入一个对象,并返回一个boolean值,这在stream中用得非常多,本文简单介绍它的基本用法。基本用法(1)单一filter中的使用List&lt;String&gt; names = ...

波士顿房价支持向量回归分析_芷菡的博客-程序员秘密

from sklearn.datasets import load_bostonboston = load_boston()print(boston.keys())dict_keys(['data', 'target', 'feature_names', 'DESCR'])In [2]:print(boston['DESCR'])Boston House Pric...

《吴恩达机器学习》11 机器学习系统设计_JockerWong的博客-程序员秘密

机器学习系统设计前言一、首先要做什么二、误差分析三、查准率(Precision)和查全率(Recall)四、机器学习的数据总结前言一、首先要做什么二、误差分析三、查准率(Precision)和查全率(Recall)四、机器学习的数据总结以上就是《吴恩达机器学习》系列视频 机器学习系统设计 的内容笔记,以便后续学习和查阅。...

随便推点

Java单元测试实践-11.Mock后Stub Spring的@Component组件_adrninistrat0r的博客-程序员秘密

Java单元测试实践-00.目录(9万多字文档+700多测试示例)https://blog.csdn.net/a82514921/article/details/1079693401. Spring Context加载次数在使用PowerMock时,每执行一个测试类,Spring Context都会重新加载一次,不会使用缓存。参考“A question on PowerMock setup”( https://github.com/powermock/powermock/issues/800 ),有

vc6 中实现gcc 的__builtin_return_address 扩展_sstower的博客-程序员秘密

获取函数返回值:gcc提供了获取当前函数的返回地址的一个关键字:void * __builtin_return_address(int nLevel);nlevel 参数指获取哪个函数的返回值,0表示当前函数,1表示当前函数的调用者的函数,为2依次类推;下面是vc6的实现:__declspec (naked) void* __builtin_return_address (in

Android NDK UPX加固_s1986q的博客-程序员秘密

准备编译环境:12341、zlib-1.2.8.tar.gz2、ucl-1.03.tar.gz3、lzma443.tar.bz24、upx-hg-d9e7cb4b5485.tar.gz  https://www.pysol.org:4443/hg/upx.hg编译

Linux设备驱动核心理论(一)_12304108的博客-程序员秘密

4.Linux内核模块        4.1 Linux内核模块简介                如果把所有需要的功能都编译到Linux内核。这回导致两个问题,一是生成的内核会很大,二是如果我们要在现有的内核中新增或删除功能,将不得不重新编译内核。                现在我们需要的是一种机制使得编译出的内核本身并不需要包含所有功能,而在这些功能需要被使用的时候,其对应的代

webpack02 --常用配置_wendyGao_Yin的博客-程序员秘密

加载 CSS从 JavaScript 模块中 import 一个CSS文件,需在 module 配置中、安装并添加 style-loader 和 css-loader安装cnpm install style-loader css-loader -D安装成功后的package.json"devDependencies": { "css-loader": "^5.0.0", "style-loader": "^2.0.0",}const path = require("path

OpenCV中矩阵归一化函数normalize()的原理讲解及公式 C++/Python代码实例_独步天秤的博客-程序员秘密_normalize

Table of Contents函数原型参数说明不同norm_type下的计算公式NORM_L1NORM_L2NORM_INFNORM_MINMAX参考文章代码实例代码输出Python代码使用normalize图像输出笔者备注函数原型void cv::normalize ( InputArray src,Inpu...