[求助]：取点时同时取得圆心坐标怎么实现呢？

zhengguoyun

我想在取点（如一个圆上的点）时取得圆心的坐标，同时取得鼠标点的坐标（此点在圆周上），请问怎么实现呢。

wuzz

id-->center获取圆心坐标；
鼠标点的坐标在你拾取(entsel)实体时就有dxf码返回，检索一下就可以得到！

zxq0220

......
(SETQ S1 (ENTSEL "\nSelect a Circle :"))
(SETQ PT (OSNAP (CADR S1) "NEA"))  ;圆上最近点
(SETQ PC (OSNAP PT "CEN"))              ;圆的中心点
......

qjcpj

2. 
   
3. ;;;变量说明：
   
4. ;;;pick_pt  拾取点坐标
   
5. ;;;center_pt  圆心坐标
   
6. (defun c:test        (/ ent pt)
   
7.         (setq ent (entsel))
   
8.         (if        ent
   
9.                 (progn
   
10.                         (if        (or        (= (cdr (assoc '0 (entget (car ent)))) "CIRCLE")
    
11.                                                         (= (cdr (assoc '0 (entget (car ent)))) "ARC")
    
12.                                         )
    
13.                                 (progn
    
14.                                         (setq pt (cdr ent))
    
15.                                         (setq pick_pt (osnap (list (caar pt) (cadar pt)) "_nea"))
    
16.                                         (setq center_pt (cdr (assoc '10 (entget (car ent)))))
    
17.                                 )
    
18.                         )
    
19.                 )
    
20.         )
    
21.         (princ)
    
22. )
    

<br /> ;;;变量说明：<br /> ;;;pick_pt  拾取点坐标<br /> ;;;center_pt  圆心坐标<br /> (defun c:test        (/ ent pt)<br />         (setq ent (entsel))<br />         (if        ent<br />                 (progn<br />                         (if        (or        (= (cdr (assoc '0 (entget (car ent)))) "CIRCLE")<br />                                                         (= (cdr (assoc '0 (entget (car ent)))) "ARC")<br />                                         )<br />                                 (progn<br />                                         (setq pt (cdr ent))<br />                                         (setq pick_pt (osnap (list (caar pt) (cadar pt)) "_nea"))<br />                                         (setq center_pt (cdr (assoc '10 (entget (car ent)))))<br />                                 )<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )<br />

测试：
; 1 表格 从test.lsp 文件正在加载...加载
_$ (c:test)
_$ pick_pt
(108.447 104.591 0.0)
_$ center_pt
(188.301 129.528 0.0)
_$

zhengguoyun

谢谢各位的回复！非常谢谢

nnqinj

4楼，写得不错。最好还能规范一些

qjcpj

最初由 nnqinj 发布
[B]4楼，写得不错。最好还能规范一些 [/B]

怎样才算规范，楼主能说说你的建议吗？

nnqinj

我想这样会比较容易判读。

2. 
   
3. (defun c:test (/ ent pt)
   
4.     (setq ent (entsel))
   
5.     (if ent
   
6.         (progn
   
7.           (if (or (= (cdr (assoc '0 (entget (car ent)))) "CIRCLE")
   
8.                   (= (cdr (assoc '0 (entget (car ent)))) "ARC")
   
9.               )
   
10.               (progn
    
11.                  (setq pt (cdr ent))
    
12.                  (setq pick_pt (osnap (list (caar pt) (cadar pt)) "_nea"))
    
13.                  (setq center_pt (cdr (assoc '10 (entget (car ent)))))
    
14.               )
    
15.            )
    
16.          )
    
17.      )
    
18.      (princ)
    
19. )

<br /> (defun c:test (/ ent pt)<br />     (setq ent (entsel))<br />     (if ent<br />         (progn<br />           (if (or (= (cdr (assoc '0 (entget (car ent)))) "CIRCLE")<br />                   (= (cdr (assoc '0 (entget (car ent)))) "ARC")<br />               )<br />               (progn<br />                  (setq pt (cdr ent))<br />                  (setq pick_pt (osnap (list (caar pt) (cadar pt)) "_nea"))<br />                  (setq center_pt (cdr (assoc '10 (entget (car ent)))))<br />               )<br />            )<br />          )<br />      )<br />      (princ)<br /> )

qjcpj

未看出9楼改写后的程序与我随手写得程序有何区别。
其实程序还存在一小问题，最主要的是未考虑容错处理...

xyp1964

最初由 qjcpj 发布
[B]
怎样才算规范，楼主能说说你的建议吗？ [/B]

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (if (setq ent (entsel))
   
5.     (setq et (entget (car ent)))
   
6.   )
   
7.   (if (or (= (cdr (assoc 0 et)) "CIRCLE")
   
8.           (= (cdr (assoc 0 et)) "ARC")
   
9.       )
   
10.     (progn
    
11.       (setq pt0        (cadr ent)
    
12.             ppt        (osnap pt0 "_nea")
    
13.             cpt        (cdr (assoc 10 et))
    
14.       )
    
15.       (princ "\n拾取点坐标 : ")
    
16.       (princ ppt)
    
17.       (princ "\n圆心坐标 : ")
    
18.       (princ cpt)
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (if (setq ent (entsel))<br />     (setq et (entget (car ent)))<br />   )<br />   (if (or (= (cdr (assoc 0 et)) "CIRCLE")<br />           (= (cdr (assoc 0 et)) "ARC")<br />       )<br />     (progn<br />       (setq pt0        (cadr ent)<br />             ppt        (osnap pt0 "_nea")<br />             cpt        (cdr (assoc 10 et))<br />       )<br />       (princ "\n拾取点坐标 : ")<br />       (princ ppt)<br />       (princ "\n圆心坐标 : ")<br />       (princ cpt)<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

qjcpj

说来惭愧，不知如何在上传中(主要是论坛板块)保持文字缩进，10楼斑竹能搞个文字缩进的演示吗？

taner

最初由 qjcpj 发布
[B]说来惭愧，不知如何在上传中(主要是论坛板块)保持文字缩进，10楼斑竹能搞个文字缩进的演示吗？ [/B]

.

用PHP代碼!方法:

(PHP)代碼(/PHP),實際過程中將圓括號改爲方括號

eachy

[ code ] 代码 [ /code ]

使用时中间没有空格，如果使用 ssget 中 < 过滤时就要使用  [ php ]  CODE [ / php ] 显示。另外代码最好用 Vlisp 编辑器格式化一下，这样阅读方便。

2. 
   
3. (defun c:test (/ ent pt)
   
4.   (if (and (setq ent (entsel))
   
5.            (or (= (cdr (assoc '0 (entget (car ent)))) "CIRCLE")
   
6.                (= (cdr (assoc '0 (entget (car ent)))) "ARC")
   
7.            )
   
8.       )
   
9.     (setq pt            (cdr ent)
   
10.           pick_pt   (osnap (list (caar pt) (cadar pt)) "_nea")
    
11.           center_pt (cdr (assoc '10 (entget (car ent))))
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

<br /> (defun c:test (/ ent pt)<br />   (if (and (setq ent (entsel))<br />            (or (= (cdr (assoc '0 (entget (car ent)))) "CIRCLE")<br />                (= (cdr (assoc '0 (entget (car ent)))) "ARC")<br />            )<br />       )<br />     (setq pt            (cdr ent)<br />           pick_pt   (osnap (list (caar pt) (cadar pt)) "_nea")<br />           center_pt (cdr (assoc '10 (entget (car ent))))<br />     )<br />   )<br />   (princ)<br /> )

qjcpj

多谢，我试试看。