lisp提取长方形坐标_坐标提取lisp程序.doc

坐标提取lisp程序

坐标提取lisp程序??

2010-05-17 20:50:07|??分类： 工程 |??标签： |字号大中小?订阅

;该程序主要用于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|??分类： 工程 |??标签： |字号大中小?订阅

利用程序提取地形图上碎步点的三维坐标。并输出到记事本中，

该程序待修改的地方是不能选取点，并输出数据，待改正。

defun c:gcdtq setvar "cmdecho" 0 ;指令执行过程不响应 setq en entsel "选择高程点:" ;要求碰选一个高程点 setq ff open getfiled "文件保存为" "f:/" "txt" 1 "a" setq en_data entget car en ;取得元体资料列表 setq pt cdr assoc 10 en_data ;求得高程点坐标pt setq py rtos nth 1 pt ;提取测量坐标Y值 setq px rtos nth 0 pt ;提取测量坐标X值 setq pz rtos nth 2 pt ;提取测量坐标Z值 setq sxyz strcat px " "? py? " "? pz write-line sxyz ff prin1 prompt "*************** C:gcdtq *****************" prin1

连续选取高程点并输出到文本??

2010-05-18 15:33:49|??分类： 工程 |??标签： |字号大中小?订阅

;2010-05-18? 武赤公路;用于提取地形图中的高程点(碎步点)坐标，同时可以提取点(point)的坐标;本程序的缺点是不能过滤对象，同时也成为了他的优点；没有限制点的样式，块也可以，点也可以；;本程序设计保存文件是可以在已有文件中继续添加数据，但是序号不再累积；这样可以判断不同时期选取的数据 defun c:gcdtq setvar "cmdecho" 0 ;指令执行过程不响应 setq ff open getfiled "文件保存为" "f:/" "dat" 1 "a" setq en entsel "选择高程点:" ;要求碰选一个高程点 setq i 1 ;生成序号 while en setq en_data entget car en ;取得元体资料列表 setq pt cdr assoc 10 en_data ;求得高程点坐标pt setq py rtos nth 1 pt ;提取测量坐标系Y值 setq px rtos nth 0 pt ;提取测量坐标洗X值 setq pz rtos nth 2 pt ;提取测量坐标系Z值

setq pi rtos i 2 0 setq pxyz strcat pi",," p