导出圆心坐标

iszc

有什么方法能导出框选区域内所有圆的圆心坐标,大约框选100个左右,位置按照上下左右的顺序提取

依然小小鸟

不错的帖子 顶一下

bori

ssget 过滤圆

iszc

框选的已经是所有的圆，没有其他，求导出或列出所有圆心坐标，能帮忙写一个lsp么

iszc

未能搜到                 

wmz

2. (defun c:tt()
   
3.   (setq f (open "D:/test.txt" "w"))
   
4.   (setq s (ssget))
   
5.   (setq n (sslength s) m 0 pp '())
   
6.   (repeat n
   
7.     (setq e (ssname s m) m (1+ m))
   
8.     (setq e1 (entget e))
   
9.     (setq e2 (cdr(assoc 0 e1)))
   
10.     (if (= e2 "CIRCLE")
    
11.         (progn
    
12.           (setq pt (cdr (assoc 10 e1)))
    
13.           (setq pp (cons pt pp))
    
14.         )
    
15.     )
    
16.    )
    
17.   (setq pp (vl-sort pp
    
18.      (function (lambda (a b)
    
19.                      (if (= (car a) (car b))
    
20.                          (<= (car a) (car b))
    
21.                          (> (cadr a) (cadr b))
    
22.                      )
    
23.                      )
    
24.                      )
    
25.            )
    
26.   )
    
27.   (setq m 0)
    
28.   (repeat (length pp)
    
29.     (setq p (nth m pp) m (1+ m))
    
30.     (setq y (car p) x (cadr p))
    
31.     (setq b (strcat (rtos m 2 0) "," (rtos y 2 2) "," (rtos x 2 2)))
    
32.     (write-line b f)
    
33.   )  
    
34.    (close f)
    
35.     (princ)
    
36. )  

(defun c:tt()<br />   (setq f (open "D:/test.txt" "w"))<br />   (setq s (ssget))<br />   (setq n (sslength s) m 0 pp '())<br />   (repeat n<br />     (setq e (ssname s m) m (1+ m))<br />     (setq e1 (entget e))<br />     (setq e2 (cdr(assoc 0 e1)))<br />     (if (= e2 "CIRCLE")<br />         (progn<br />           (setq pt (cdr (assoc 10 e1)))<br />           (setq pp (cons pt pp))<br />         )<br />     )<br />    )<br />   (setq pp (vl-sort pp<br />      (function (lambda (a b)<br />                      (if (= (car a) (car b))<br />                          (<= (car a) (car b))<br />                          (> (cadr a) (cadr b))<br />                      )<br />                      )<br />                      )<br />            )<br />   )<br />   (setq m 0)<br />   (repeat (length pp)<br />     (setq p (nth m pp) m (1+ m))<br />     (setq y (car p) x (cadr p))<br />     (setq b (strcat (rtos m 2 0) "," (rtos y 2 2) "," (rtos x 2 2)))<br />     (write-line b f)<br />   )  <br />    (close f)<br />     (princ)<br /> )  

iszc

只能选中，不能导出坐标

iszc

非常感谢 ZZXXQQ 能帮忙
很满意，不知怎么改精度为小数点后4位，如果要累加在D:\test.txt能做到么

Andyhon

Ref Rtos 的帮助

sicky111

排序有点问题，测试结果：
-------------------------------------
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

wmz

sicky111 发表于 2014-10-19 12:56
排序有点问题，测试结果：
-------------------------------------
1,54.92,-2.62

2.   (setq pp (vl-sort pp
   
3.      (function (lambda (a b)
   
4.                      (if (= (cadr a) (cadr b))
   
5.                          (<= (car a) (car b))
   
6.                          (> (cadr a) (cadr b))
   
7.                      )
   
8.                      )
   
9.                      )
   
10.            )
    
11.   )

  (setq pp (vl-sort pp<br />      (function (lambda (a b)<br />                      (if (= (cadr a) (cadr b))<br />                          (<= (car a) (car b))<br />                          (> (cadr a) (cadr b))<br />                      )<br />                      )<br />                      )<br />            )<br />   )