查找远距离对象

lucas_3333

如题，如何查找远距离的对象并显示到该处？
谢谢各位大师的帮忙！

菜卷鱼

你说的远距离对象时什么？

lucas_3333

菜卷鱼 发表于 2014-3-25 08:12
你说的远距离对象时什么？

就是离CAD当前屏幕（中心位置）最远处的对象，谢谢

菜卷鱼

搞了一中午，结果跟我想的不一样，不知道有没有高手出来指点

1. --
   
2. ;在楼下

--<br /> ;在楼下

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
   
3. (defun c:tt ()
   
4.   (setq p0  (getvar 'viewctr)
   
5.         lst (xyp-ss2list (ssget "x"))
   
6.         lst (vl-remove-if '(lambda (x) (xyp-etype x "VIEWPORT")) lst)
   
7.         lst (mapcar '(lambda (x) (list (distance p0 (xyp-9pt x 5)) x)) lst)
   
8.         lst (vl-sort lst '(lambda (x y) (> (car x) (car y))))
   
9.   )
   
10.   (redraw (cadar lst) 3)
    
11. )

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt ()<br />   (setq p0  (getvar 'viewctr)<br />         lst (xyp-ss2list (ssget "x"))<br />         lst (vl-remove-if '(lambda (x) (xyp-etype x "VIEWPORT")) lst)<br />         lst (mapcar '(lambda (x) (list (distance p0 (xyp-9pt x 5)) x)) lst)<br />         lst (vl-sort lst '(lambda (x y) (> (car x) (car y))))<br />   )<br />   (redraw (cadar lst) 3)<br /> )

菜卷鱼

搞定了，自己来试！

1. (defun c:test ( / ltc cenpt info sth)
   
2. (setq cenpt (getvar 'viewctr))
   
3. (setq ss (ssget "x"))
   
4. (setq i 0)
   
5. (repeat (sslength ss)
   
6. (setq info (ssname ss i))
   
7. (setq ltc(cons info ltc))
   
8. (setq i(1+ i))
   
9. )
   
10. (setq ltc(mapcar '(lambda (x) (entget x)) ltc ))
    
11. (setq ns (vl-sort ltc (function
    
12. (lambda (e1 e2 )
    
13. (>
    
14. (sqrt(apply '+ (mapcar '* (mapcar '- (cdr(assoc 10 e1)) cenpt) (mapcar '- (cdr(assoc 10 e1)) cenpt))))
    
15. (sqrt(apply '+ (mapcar '* (mapcar '- (cdr(assoc 10 e2)) cenpt) (mapcar '- (cdr(assoc 10 e2)) cenpt))))
    
16. )))))
    
17. (setq sth(cdr(assoc -1 (car ns))))
    
18. (setvar 'cmdecho 0)
    
19. (command "zoom" "o" sth "")
    
20. (setvar 'cmdecho 1)
    
21. (princ "\已缩放至最远对象")
    
22. (prin1))
    

(defun c:test ( / ltc cenpt info sth)<br /> (setq cenpt (getvar 'viewctr))<br /> (setq ss (ssget "x"))<br /> (setq i 0)<br /> (repeat (sslength ss)<br /> (setq info (ssname ss i))<br /> (setq ltc(cons info ltc))<br /> (setq i(1+ i))<br /> )<br /> (setq ltc(mapcar '(lambda (x) (entget x)) ltc ))<br /> (setq ns (vl-sort ltc (function <br /> (lambda (e1 e2 )<br /> (><br /> (sqrt(apply '+ (mapcar '* (mapcar '- (cdr(assoc 10 e1)) cenpt) (mapcar '- (cdr(assoc 10 e1)) cenpt))))<br /> (sqrt(apply '+ (mapcar '* (mapcar '- (cdr(assoc 10 e2)) cenpt) (mapcar '- (cdr(assoc 10 e2)) cenpt))))<br /> )))))<br /> (setq sth(cdr(assoc -1 (car ns))))<br /> (setvar 'cmdecho 0)<br /> (command "zoom" "o" sth "")<br /> (setvar 'cmdecho 1)<br /> (princ "\已缩放至最远对象")<br /> (prin1))<br />

清风明月名字

谢谢楼主代码分享！