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

工程

标签：

字号大中小

;

该程序主要用于

CAD

点(

point

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

CASS

软件中使用的数据格式

;

输出格式：

点号

测量

值，测量

值

例：

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 ","

","

sz))

(write-line sxyz ff)

)

(setq i (+ i 1))

);repeat

)

(prompt "* <<

命令

:plzbsc >> *

输出格式(点号

,, Y

，

)

**")

(prin1)

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

2010-05-18 08:50:38|

分类：

lisp正负调换_坐标提取lisp程序相关推荐

lisp正负调换_坐标提取lisp程序 -
坐标提取lisp程序 2010-05-17 20:50:07| 分类: 工程 | 标签: |字号大中小订阅 ;该程序主要用于CAD点(point)三维坐标提取,并将数据输出为CASS软件中使用的数据 ...
lisp提取长方形坐标_坐标提取lisp程序
坐标提取lisp程序坐标提取lisp程序 2010-05-17 20:50:07| 分类: 工程 | 标签: |字号大中小订阅 ;该程序主要用于CAD点(point)三维坐标提取,并将数据输出为C ...
lisp提取长方形坐标_坐标提取lisp程序.doc
坐标提取lisp程序坐标提取lisp程序?? 2010-05-17 20:50:07|??分类: 工程 |??标签: |字号大中小?订阅 ;该程序主要用于CAD点(point)三维坐标提取,并将数据 ...
lisp正负调换_OpenSees五问(1)
本文分析和探讨使用OpenSees时可能会遇到的 5 个问题,分别是第 1 问如何在时程分析中改变步长减小时程分析步长可以改善收敛性首先,建立一个简单的弹性时程分析模型.模型采用单自由度,两个 ...
lisp正负调换_lisp中如何把符号转换为字符串
满意答案 rantian2002 2018.05.29 采纳率:47% 等级:12 已帮助:12730人 1,算术运算 + - * / ~ 1+ 1- abs atan cos exp expt ...
lisp标定高程_基于Auto Lisp的局部高程点批量检查与修改技术
基于 Auto Lisp 的局部高程点批量检查与修改技术唐争气 ; 胡润希 [期刊名称] <电脑编程技巧与维护> [年 ( 卷 ), 期] 2013(000)002 [摘要] 针对 CA ...
右下角文字如何写_如何提取任意小程序的小程序路径
这几天我在写关于公众号和小程序互通的文章,在公众号跳转小程序的设置中有一个信息绕不过去,那就是小程序路径,对于非开发人员,如何轻松获取小程序路径是本文所讲述的内容本文内容本文通过具体截图+文字描述 ...
lisp scheme 果壳_走出Lisp（Scheme）困境
从去年开始入坑Lisp,周周转转也算是基本入门了这一传说中的语言. Lisp确实是一门很开明的语法规范.lambda是基本定义形式,递归在其骨子深处,试图通过函数表达世界,的确这个世界是周而复始的,有 ...
中望CAD调用lisp在哪_中望CAD+加载LISP程序速度提升高达8倍
对于即将推出的全新一代二维CAD平台软件中望CAD+,广州中望数字化设计软件有限责任公司中望CAD+研发总监何祎认为,"Lisp 是CAD 应用发展中使用最普遍的程序语言之一.数以百万计的设 ...

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

lisp正负调换_坐标提取lisp程序相关推荐

最新文章

热门文章