导出圆心坐标

wzc1985

我也需要，十分感谢

啊业_48384

如果大小圆孔分出更好

wmz

啊业_48384 发表于 2014-10-21 13:50
如果大小圆孔分出更好

那就导出圆半径，再按其半径大小排序！

iszc

不知能用一条多义线连接所有圆心坐标么，这样导出的坐标好像不是按照上下左右顺序排列的

啊业_48384

以这样就更好，老师们改下
D2.00
N1,54.92,-2.62
N2,131.76,-2.62
N3,83.49,-28.74
N4,142.67,-28.74
N5,114.62,-52.02
N6,59.37,-52.02
N7,77.79,-52.02
D3.00
N8,96.20,-52.02
N9,133.03,-52.02
N10,38.16,-55.20
D4.0
N11,123.88,-76.57
N12,34.73,-78.86

啊业_48384

以这样就更好，老师们改下

wmz

2. (defun c:tt(/ e e1 e2 f n m p pp p0 pt y x r r0)
   
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  y (car pt) x (cadr pt))
    
14.          (setq  r (cdr (assoc 40 e1)))
    
15.           (setq pp (cons (list r y x) pp))
    
16.         )
    
17.     )
    
18.    )
    
19.     (setq pp (sort_pList pp))
    
20.     (setq m 0 r0 nil)
    
21.   (repeat (length pp)
    
22.     (setq p (nth m pp) m (1+ m))
    
23.     (setq r (car p))
    
24.     (setq p0 (strcat "N" (rtos m 2 0) "," (rtos (cadr p) 2 2) "," (rtos (caddr p) 2 2)))
    
25.     (if (/= r r0)
    
26.       (progn
    
27.           (write-line (strcat "D" (rtos r 2 2)) f)
    
28.           (write-line p0 f)
    
29.           (setq r0 r)
    
30.       )
    
31.       (progn
    
32.             (write-line p0 f)
    
33.       )
    
34.     )  
    
35.   )
    
36.    (close f)
    
37.     (princ)
    
38. )
    
39. 
    
40. ;;;对点表按xyz排序
    
41. (defun sort_pList (plist / fp pt)
    
42.   (setq plist (vl-sort plist
    
43.          '(lambda (p1 p2)
    
44.           (cond ((< (car p1) (car p2)) T)
    
45.           ((and (= (car p1) (car p2))
    
46.           (> (caddr p1) (caddr p2))
    
47.      )
    
48.      T
    
49.     )
    
50.     ((and (= (car p1) (car p2))
    
51.           (= (caddr p1) (caddr p2))
    
52.           (< (cadr p1) (cadr p2))
    
53.      )
    
54.      T
    
55.     )
    
56.     (T nil)
    
57.      )
    
58.    )
    
59.        )
    
60.    )
    
61.   )

(defun c:tt(/ e e1 e2 f n m p pp p0 pt y x r r0)<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  y (car pt) x (cadr pt))<br />          (setq  r (cdr (assoc 40 e1)))<br />           (setq pp (cons (list r y x) pp))<br />         )<br />     )<br />    )<br />     (setq pp (sort_pList pp))<br />     (setq m 0 r0 nil)<br />   (repeat (length pp)<br />     (setq p (nth m pp) m (1+ m))<br />     (setq r (car p))<br />     (setq p0 (strcat "N" (rtos m 2 0) "," (rtos (cadr p) 2 2) "," (rtos (caddr p) 2 2)))<br />     (if (/= r r0)<br />       (progn<br />           (write-line (strcat "D" (rtos r 2 2)) f)<br />           (write-line p0 f)<br />           (setq r0 r)<br />       )<br />       (progn<br />             (write-line p0 f)<br />       )<br />     )  <br />   )<br />    (close f)<br />     (princ)<br /> )<br /> <br /> ;;;对点表按xyz排序<br /> (defun sort_pList (plist / fp pt)<br />   (setq plist (vl-sort plist<br />          '(lambda (p1 p2)<br />           (cond ((< (car p1) (car p2)) T)<br />           ((and (= (car p1) (car p2))<br />           (> (caddr p1) (caddr p2))<br />      )<br />      T<br />     )<br />     ((and (= (car p1) (car p2))<br />           (= (caddr p1) (caddr p2))<br />           (< (cadr p1) (cadr p2))<br />      )<br />      T<br />     )<br />     (T nil)<br />      )<br />    )<br />        )<br />    )<br />   )

wmz

啊业_48384 发表于 2014-10-24 21:29
以这样就更好，老师们改下

要的那么厉害，不见人了。

啊业_48384

D不是直径吗，是半径的呀。还是谢谢！！！

wmz

啊业_48384 发表于 2014-10-29 10:43
D不是直径吗，是半径的呀。还是谢谢！！！

你是要直径还是要半径？
若是要直径，改这一句： (setq  r (cdr (assoc 40 e1))) 改为： (setq  r (*(cdr (assoc 40 e1))2.0))