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

wowan1314

XDSoft 发表于 2013-6-15 12:37
1、以后发帖如果发现有表情符，编辑帖子，打开最下面的 附加选项，勾上禁用表情。

2、 函数要求点是UC ...

屏幕四个交点就出错了！
主要是测试如图情况！

wowan1314

这个函数测试！ 就要像http://bbs.xdcad.net/thread-668581-1-1.html这个帖子一样！

将四种坐标系的情况都考虑进去。

ll_j

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

到底是老大，我一攻击，立即有自身难保的感觉。:lol
就你这个函数而言，点的获得是函数套函数，没有一个引用的函数给出链接，我到“函数发布”去找，又不知对应哪个帖子，函数以后会更多，一个个打开显然不现实，难道都要去搜索？
实际上我想要的测试也就是woman1314所做的测试，就是UCS和非正视口，既然找不到，也就只好不测试。
我想，Lispboy的汇总帖http://bbs.xdcad.net/thread-668839-1-1.html也应该在每个连接标题后面加上函数名，以备查询。

ll_j

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

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

wowan1314

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

    我把我写的又修正了下！ XD老大不妨测试看看！这个函数XD老大套的函数太多了！

2. ;;==========================判断点是否在屏幕内,在T,不在nil.
   
3. ;;测试:(YY-ptinview (GETPOINT))
   
4. (defun YY-ptinview (pt / a b c d x)
   
5.   (setq b (getvar "viewsize")
   
6.         c (car (getvar "screensize"))
   
7.         d (cadr (getvar "screensize"))
   
8.         a (* b (/ c d))
   
9.         x (trans (getvar "viewctr") 1 2)
   
10.         c (list (- (car x)  (* a 0.5)) (- (cadr x) (* b 0.5)) 0.0)
    
11.         d (list (+ (car x) (* a 0.5)) (+ (cadr x) (* b 0.5)) 0.0)
    
12.   )
    
13.   (setq a (MAPCAR '(LAMBDA(A B C)(<= A B C)) C (TRANS PT 1 2) D))
    
14.   (IF(AND(CAR A)(CADR A))T NIL)
    
15. )

;;==========================判断点是否在屏幕内,在T,不在nil.<br /> ;;测试:(YY-ptinview (GETPOINT))<br /> (defun YY-ptinview (pt / a b c d x)<br />   (setq b (getvar "viewsize")<br />         c (car (getvar "screensize"))<br />         d (cadr (getvar "screensize"))<br />         a (* b (/ c d))<br />         x (trans (getvar "viewctr") 1 2)<br />         c (list (- (car x)  (* a 0.5)) (- (cadr x) (* b 0.5)) 0.0)<br />         d (list (+ (car x) (* a 0.5)) (+ (cadr x) (* b 0.5)) 0.0)<br />   )<br />   (setq a (MAPCAR '(LAMBDA(A B C)(<= A B C)) C (TRANS PT 1 2) D))<br />   (IF(AND(CAR A)(CADR A))T NIL)<br /> )

wowan1314

ll_j 发表于 2013-6-15 13:03
不好意思，我一般只收集思想，不收集函数和程序，函数到需要用的时候再下载会更好。

长老帮忙测试下我写的这个函数！看各种情况是否都正确。

XDSoft

ll_j 发表于 2013-6-15 13:00
到底是老大，我一攻击，立即有自身难保的感觉。
就你这个函数而言，点的获得是函数套函数，没有一个 ...

朋友们在给大家写函数，人家还义务写了导航的链接，人家有没有时间，接受不接受，愿不愿意添加上，别人无权干涉吧。

论坛是众人拾菜，填瓦。 如果哪个朋友能每天都在跟踪新函数，愿意从另外一个角度帮助论坛，希望多发帖导航导航。好在现在函数还不多，才2页不到。

搜索函数最快的方式，还是NEWER斑竹介绍的，大部分函数都可以一下找到。今天这个函数写出来还不到24小时，所有函数帖子都在第一页。纵横搜索还没录入，大家可以在第一页就找到新函数，试试过明天后再搜索看看。

函数发布现在都是在测试中，最终会整理起来，一起发布。

还要说的是，人家愿意义务写，大家就是辛苦点，去找找人家以前写的东西，然后做个链接啥的方便后来人，也是对论坛另外一种贡献。

XDSoft

wowan1314 发表于 2013-6-15 13:36
长老帮忙测试下我写的这个函数！看各种情况是否都正确。

该打{:soso_e113:}，完成一种，又搞出来一个坐标系。不一起都说出来。你测试下你的，如果都可以满足，做个函数发布吧。

q3_2006

点[函数发布]是今天才发现的，好用，方便！

q3_2006

我的20D呀！:'(