明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2944|回复: 23

[提问] 导出圆心坐标

[复制链接]
发表于 2014-10-17 23:08 | 显示全部楼层 |阅读模式
本帖最后由 iszc 于 2014-10-18 08:22 编辑

有什么方法能导出框选区域内所有圆的圆心坐标,大约框选100个左右,位置按照上下左右的顺序提取
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2023-11-21 14:22 | 显示全部楼层
不错的帖子 顶一下
发表于 2014-10-18 14:18 | 显示全部楼层
ssget 过滤圆
 楼主| 发表于 2014-10-18 15:43 | 显示全部楼层
框选的已经是所有的圆,没有其他,求导出或列出所有圆心坐标,能帮忙写一个lsp么

点评

论坛有许多,搜一下看看。  发表于 2014-10-18 19:55
 楼主| 发表于 2014-10-18 20:15 | 显示全部楼层
未能搜到                 
发表于 2014-10-18 21:19 | 显示全部楼层
本帖最后由 wmz 于 2014-10-18 21:22 编辑
  1. (defun c:tt()
  2.   (setq f (open "D:/test.txt" "w"))
  3.   (setq s (ssget))
  4.   (setq n (sslength s) m 0 pp '())
  5.   (repeat n
  6.     (setq e (ssname s m) m (1+ m))
  7.     (setq e1 (entget e))
  8.     (setq e2 (cdr(assoc 0 e1)))
  9.     (if (= e2 "CIRCLE")
  10.         (progn
  11.           (setq pt (cdr (assoc 10 e1)))
  12.           (setq pp (cons pt pp))
  13.         )
  14.     )
  15.    )
  16.   (setq pp (vl-sort pp
  17.      (function (lambda (a b)
  18.                      (if (= (car a) (car b))
  19.                          (<= (car a) (car b))
  20.                          (> (cadr a) (cadr b))
  21.                      )
  22.                      )
  23.                      )
  24.            )
  25.   )
  26.   (setq m 0)
  27.   (repeat (length pp)
  28.     (setq p (nth m pp) m (1+ m))
  29.     (setq y (car p) x (cadr p))
  30.     (setq b (strcat (rtos m 2 0) "," (rtos y 2 2) "," (rtos x 2 2)))
  31.     (write-line b f)
  32.   )  
  33.    (close f)
  34.     (princ)
  35. )  

点评

导出的是数学坐标,而不是地理坐标  发表于 2014-10-19 19:30
 楼主| 发表于 2014-10-18 21:32 | 显示全部楼层
只能选中,不能导出坐标

点评

不是提取到D:\test.txt文件中了吗?  发表于 2014-10-19 08:25
 楼主| 发表于 2014-10-19 09:04 | 显示全部楼层
非常感谢 ZZXXQQ 能帮忙
很满意,不知怎么改精度为小数点后4位,如果要累加在D:\test.txt能做到么
发表于 2014-10-19 10:02 | 显示全部楼层
Ref Rtos 的帮助
发表于 2014-10-19 12:56 | 显示全部楼层
排序有点问题,测试结果:
-------------------------------------
1,54.92,-2.62
2,131.76,-2.62
3,83.49,-28.74
4,142.67,-28.74
5,114.62,-52.02
6,59.37,-52.02
7,77.79,-52.02
8,96.20,-52.02
9,133.03,-52.02
10,38.16,-55.20
11,123.88,-76.57
12,34.73,-78.86
发表于 2014-10-19 14:34 | 显示全部楼层
sicky111 发表于 2014-10-19 12:56
排序有点问题,测试结果:
-------------------------------------
1,54.92,-2.62
  1.   (setq pp (vl-sort pp
  2.      (function (lambda (a b)
  3.                      (if (= (cadr a) (cadr b))
  4.                          (<= (car a) (car b))
  5.                          (> (cadr a) (cadr b))
  6.                      )
  7.                      )
  8.                      )
  9.            )
  10.   )
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 13:09 , Processed in 0.258226 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表