判断一个点是否在绘图屏幕区域外

XDSoft

[sell=20]

1. ;|
   
2.    判断一个点是否在绘图屏幕区域外
   
3. 
   
4.    参数：
   
5.       PNT ---- 测试点
   
6. 
   
7.    返回值：T --- 成立
   
8.            NIL - 否
   
9. |;
   
10. (defun XD::DOC:IsPntOutView(pnt / )
    
11.    (setq pts (XD::DOC:GetView4Pnt)
    
12.          pts (XD::List:SnakePair (XD::PnTs:Close pts))
    
13.          pts (mapcar '(lambda(x)(apply 'XD::Geom:P2L-Dist (cons pnt x))) pts)
    
14.    )
    
15.    (and (minusp (* (car pts)(caddr pts)))
    
16.            (minusp (* (cadr pts)(last pts)))
    
17.    )
    
18. )
    
19. 
    

;|<br />    判断一个点是否在绘图屏幕区域外<br /> <br />    参数：<br />       PNT ---- 测试点<br /> <br />    返回值：T --- 成立<br />            NIL - 否<br /> |;<br /> (defun XD::DOC:IsPntOutView(pnt / )<br />    (setq pts (XD::DOC:GetView4Pnt)<br />          pts (XD::List:SnakePair (XD::PnTs:Close pts))<br />          pts (mapcar '(lambda(x)(apply 'XD::Geom:P2L-Dist (cons pnt x))) pts)<br />    )<br />    (and (minusp (* (car pts)(caddr pts)))<br />            (minusp (* (cadr pts)(last pts)))<br />    )<br /> )<br /> <br />

[/sell]

通用函数请到 “函数发布”下载。

ll_j

marting 发表于 2013-6-15 09:25
这种人家都辛苦的写到函数发布里面，免费提供大家用的，只是因为自己懒的去找， 讨论什么 源代码，伪源码 ...

不好意思，我一般只收集思想，不收集函数和程序，函数到需要用的时候再下载会更好。

ll_j

本来只想知道函数是否能在各种视口（http://bbs.xdcad.net/thread-668581-1-1.html）下正常，结果付了“钱”以后还是无法判断，虽然提示到“函数发布”下载，但众多的函数，到底下载哪一个。
还是那个建议，在函数调用其它函数的时候，请注明被调用函数的链接，否则只能视作“伪源码”。

marting

ll_j 发表于 2013-6-15 08:59
本来只想知道函数是否能在各种视口（http://bbs.xdcad.net/thread-668581-1-1.html）下正常，结果付了“钱 ...

这种人家都辛苦的写到函数发布里面，免费提供大家用的，只是因为自己懒的去找， 讨论什么 源代码，伪源码，伪代码什么的都没什么意义了。

学习不是这样学的。

但众多的函数，到底下载哪一个。

函数还分好坏吗，还要挑挑拣捡，反正我是见到一个，就自己粘贴下来放一个文件里面了。

newer

ll_j 发表于 2013-6-15 08:59
本来只想知道函数是否能在各种视口（http://bbs.xdcad.net/thread-668581-1-1.html）下正常，结果付了“钱 ...

长老，有一个东西叫“谷鸽”
还有一种东西叫“度娘”

在晓东这，不用鸽娘，直接用论坛的搜索，功能还是很强的，输入函数名，直接就唯一的找到了。{:soso_e113:}

wowan1314

newer 发表于 2013-6-15 09:45
长老，有一个东西叫“谷鸽”
还有一种东西叫“度娘”

这个情况怎么破？！！XD::Geom:P2L-Dist也搜索不到(函数发布-XD发的帖子里也没找到)！

XDSoft

wowan1314 发表于 2013-6-15 10:29
这个情况怎么破？！！XD::Geom2L-Dist也搜索不到！

帖子进搜索引擎是有个时间的，现在利用的SOSO搜索对论坛帖子引用是很快的，有的帖子15分钟后就能进，当然也有例外，一般1.2天肯定能搜索到的。

这个函数发布的日期太新了，一般搜索不到的，在论坛首页里面就能找到。

wowan1314

XDSoft 发表于 2013-6-15 11:05
帖子进搜索引擎是有个时间的，现在利用的SOSO搜索对论坛帖子引用是很快的，有的帖子15分钟后就能进，当然 ...

XD::Geom:P2L-Dist这个函数呢？？  请直接给个链接！ 实在找不到啊

很想测试看看！ 因为我刚也写了个！ 但是很多情况下都判断不正确。

XDSoft

wowan1314 发表于 2013-6-15 11:08
XD::Geom2L-Dist这个函数呢？？  请直接给个链接！ 实在找不到啊

很想测试看看！ 因为我刚也写了个 ...

首先，这个名字你就写错了，是 XD::Geom:P2L-Dist

这个你也别搜了，也还没录入呢，都是很新的函数。






你们是不是不知道怎么快速的进入“函数发布”？

wowan1314

XDSoft 发表于 2013-6-15 11:23
首先，这个名字你就写错了，是 XD::Geom2L-Dist

这个你也别搜了，也还没录入呢，都是很新的函数。

已经做了测试！ 函数有些情况下不正确！

原来XD老大也会犯错！ 哈哈！ 这次测试很满意（什么心态）。 呵呵

XDSoft

wowan1314 发表于 2013-6-15 11:31
已经做了测试！ 函数有些情况下不正确！

谢谢，知道了，抽空修改适合下旋转的UCS

wowan1314

XDSoft 发表于 2013-6-15 11:43
谢谢，知道了，抽空修改适合下UCS

  难道是我方法不对1！！！ 还是错的

XDSoft

wowan1314 发表于 2013-6-15 11:49
难道是我方法不对1！！！ 还是错的

你回帖太快了哦。

XDSoft

wowan1314 发表于 2013-6-15 11:31
已经做了测试！ 函数有些情况下不正确！

原来XD老大也会犯错！ 哈哈！ 这次测试很满意（什么心态）。  ...

函数修改了，不过不是这个，是 XD::DOC:GetView4Pnt

到这个帖子重新下载下： http://bbs.xdcad.net/thread-668860-1-1.html

然后再测试下，谢谢！

wowan1314

XDSoft 发表于 2013-6-15 12:18
函数修改了，不过不是这个，是 XD:OC:GetView4Pnt

到这个帖子重新下载下： http://bbs.xdcad.net/th ...

更新函数后！还是错的
(XD::DOC:IsPntOutView (trans (getpoint) 1 0))
(XD::DOC:IsPntOutView (getpoint)) 两个都不对！

XDSoft

wowan1314 发表于 2013-6-15 12:31
更新函数后！还是错的
(XD:OC:IsPntOutView (trans (getpoint) 1 0))
(XD:OC:IsPntOutView (getpoi ...

1、以后发帖如果发现有表情符，编辑帖子，打开最下面的 附加选项，勾上禁用表情。

2、 函数要求点是UCS下的点

3、我这里测试没问题呢？ 你试验下函数 (setq pts (XD::DOC:GetView4Pnt)), 画出多边形，看看这个多边形是不是你当前坐标系屏幕四个角点？