查找远距离对象

lucas3 · 发表于 2014-3-25 00:16:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

st788796 · 发表于 2014-3-25 06:12:52

怎么算远距离？

lucas3 · 发表于 2014-3-25 08:20:11

st788796 发表于 2014-3-25 06:12
怎么算远距离？

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

/db_自贡黄明儒_ · 发表于 2014-3-25 08:28:18

lucas3 发表于 2014-3-25 08:20
回大师，就是离CAD当前屏幕（中心位置）最远处的对象，谢谢

最远的对象也在屏幕上吗？

st788796 · 发表于 2014-3-25 09:39:17

lucas3 发表于 2014-3-25 08:20
回大师，就是离CAD当前屏幕（中心位置）最远处的对象，谢谢

距离一般用两点量取，有屏幕中心了，还差一点，对象上的点有多种描述，端点、中心……？你要哪个？实体类型确定还是不确定？

ll_j · 发表于 2014-3-25 10:13:34

st788796 发表于 2014-3-25 09:39
距离一般用两点量取，有屏幕中心了，还差一点，对象上的点有多种描述，端点、中心……？你要哪个？实体类 ...

我理解他遇到的问题是，画图时，zoome一下，就找不到自己的图形了，随后发现是很远很远的地方有一个实体，所以想删掉。
这种情况多数是画图不规范造成的，画图时不注意布图位置，坐标特大，而使用有些命令（如copy、move）命令误操作时，会在很小坐标产生实体，这样，再zoome时，就出现楼主所说的情况了。
如果是我所说的情况，写程序是不必要的，一般可以采用“反选删除”来操作，即删除时选择all，然后已取可见的、需要保留的实体。
当然，规范绘图方法，同时熟悉绘图命令才是正解。

lucas3 · 发表于 2014-3-25 10:33:54

/db_自贡黄明儒_ 发表于 2014-3-25 08:28
最远的对象也在屏幕上吗？

回黄大师：有可能再，有可能不再，有时需要zoom_all 才能看到

st788796 · 发表于 2014-3-25 10:34:02

ll_j 发表于 2014-3-25 10:13
我理解他遇到的问题是，画图时，zoome一下，就找不到自己的图形了，随后发现是很远很远的地方有一个实体 ...

长老所言极是，zoom e找不到图时，zoom p实时缩放至全部可见，erase all r 掉可见部分，极个别情况有dim那个点非常远情况，删除重标

lucas3 · 发表于 2014-3-25 10:39:17

st788796 发表于 2014-3-25 09:39
距离一般用两点量取，有屏幕中心了，还差一点，对象上的点有多种描述，端点、中心……？你要哪个？实体类 ...

回大师：实体类型可能不确定，有可能是点，有可能是线，有可能是块,另一点就以对象的形心，不知可行？

st788796 · 发表于 2014-3-25 10:50:23

lucas3 发表于 2014-3-25 10:39
回大师：实体类型可能不确定，有可能是点，有可能是线，有可能是块,另一点就以对象的形心，不知可行？

不可行，是不是ll_j长老所说情况，是的话按上面所述操作

lucas3 · 发表于 2014-3-25 10:53:29

st788796 发表于 2014-3-25 10:50
不可行，是不是ll_j长老所说情况，是的话按上面所述操作

谢谢各位大师的讲解！

lucas3 · 发表于 2014-3-25 14:08:41

st788796 发表于 2014-3-25 10:50
不可行，是不是ll_j长老所说情况，是的话按上面所述操作

院长给出了伪代码，能不能用lisp写出来？

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

st788796 · 发表于 2014-3-25 14:40:01

本帖最后由 st788796 于 2014-3-25 14:50 编辑

lucas3 发表于 2014-3-25 14:08
院长给出了伪代码，能不能用lisp写出来？

这种代码随手就可以写出来，给你说了不可行就有不可行的道理，按说明操作

/db_自贡黄明儒_ · 发表于 2014-3-25 15:14:22

元老ll_j所说的情况我也遇到过，是不是可以换一种方法。先选择屏上所以可见对象，（ssget "X"),删除它们的差集。

st788796 · 发表于 2014-3-25 15:32:19

/db_自贡黄明儒_ 发表于 2014-3-25 15:14
元老ll_j所说的情况我也遇到过，是不是可以换一种方法。先选择屏上所以可见对象，（ssget "X"),删除它们的 ...

这样可行
(if (setq ss (ssget))
(vl-cmdf ".erase" "all" "r" ss "" "")
)

账号		自动登录	找回密码
密码			立即注册

[求助] 查找远距离对象

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评