[讨论]：怎样快速获得图中的点的坐标

它山之石

11楼的兄弟程序贴了一半

俺帮他补全了
只是得到了坐标值
当然可以继续完善

[php]

(defun c:test (/ data ent long num p1 p2 ty xxx yyy zzz)
  (setq p1 (getpoint "选择左下角: "))
  (setq p2 (getcorner p1 "\n选择右上角: "))
  (setq ent (ssget "c" p1 p2 '((0 . "point"))))
  (if ent
    (progn
      (setq long (sslength ent))        ;计算选择集个数
      (setq num 0)
      (repeat long
        (setq ty (ssname ent num))        ;ssname 选择集索引值
        ;;根据索引值取出选择集中的对象名称
        (setq data (entget ty))
        (setq zzz (cadddr (assoc 10 data)))
        (setq xxx (car (cdr (assoc 10 data))))
        (setq yyy (cadr (cdr (assoc 10 data))))
        (setq num (1+ num))
        (princ "\n")
        (princ (list xxx yyy zzz))
      ) ;_ 结束repeat
    ) ;_ 结束progn
  ) ;_ 结束if
  (princ)
)
[/php]

程序运行结果如下

1. 
   
2. 命令: test
   
3. 选择左下角:
   
4. 选择右上角:
   
5. (202.939 136.996 0.0)
   
6. (220.304 136.996 0.0)
   
7. (215.067 130.112 0.0)
   
8. (197.703 130.112 0.0)
   
9. 
   
10. 命令:
    
11. 
    

复制代码

qq899

输入的列表有错误,,,值得推敲哦!!

zml84

试一试这个：

2. 
   
3. (defun c:test (/ p1 p2 s1 num pt)
   
4.         (if        (setq p1 (getpoint "选择左下角: "))
   
5.                 (if        (setq p2 (getcorner p1 "\n选择右上角: "))
   
6.                         (if        (setq s1 (ssget "c" p1 p2 '((0 . "point"))))
   
7.                                 (progn
   
8.                                         (setq num 0)
   
9.                                         (repeat (sslength s1)
   
10.                                                 (setq        pt   (cdr(assoc 10(entget (ssname s1 num)))))
    
11.                                                         num  (1+ num))
    
12.                                                 )
    
13.                                                 (princ "\n")
    
14.                                                 (princ pt)
    
15.                                         ) ;_ 结束repeat
    
16.                                 ) ;_ 结束progn
    
17.                         )
    
18.                 )       
    
19.         ) ;_ 结束if
    
20.         (princ)
    
21. )
    

<br /> (defun c:test (/ p1 p2 s1 num pt) <br />         (if        (setq p1 (getpoint "选择左下角: ")) <br />                 (if        (setq p2 (getcorner p1 "\n选择右上角: "))<br />                         (if        (setq s1 (ssget "c" p1 p2 '((0 . "point")))) <br />                                 (progn<br />                                         (setq num 0)<br />                                         (repeat (sslength s1)<br />                                                 (setq        pt   (cdr(assoc 10(entget (ssname s1 num)))))<br />                                                         num  (1+ num))<br />                                                 )<br />                                                 (princ "\n") <br />                                                 (princ pt) <br />                                         ) ;_ 结束repeat <br />                                 ) ;_ 结束progn <br />                         )<br />                 )        <br />         ) ;_ 结束if <br />         (princ) <br /> )<br />