注册 登录
明经CAD社区 返回首页

skg123的个人空间 http://www.mjtd.com/?334888 [收藏] [复制] [分享] [RSS]

日志

关于 点与封闭线的关系

已有 1092 次阅读2015-9-10 22:49 |系统分类:应用

byghbcx的 关于 点与封闭线的关系

 

 


(defun c:TT2 (/ EN pt pt1 en1 intpnt tmppnt ang k)
 (if (and (setq en (car (entsel)))
          (or (vlax-curve-isClosed en)
              (progn(princ"\n曲线未封闭")nil)
          )
          (setq pt (getpoint"\n拾取点: "))
     )
 (progn
   (setq pt1 (vlax-curve-getClosestPointTo en pt))
   (command "_.line" pt pt1 "")
   (setq en1 (entlast))
   (setq INTPNT (vla-intersectwith (vlax-ename->vla-object en1) (vlax-ename->vla-object en) acextendThisEntity)
         TMPPNT (vlax-variant-value INTPNT)
   )
   (cond ((safearray-value TMPPNT)
         (setq TMPLST (vlax-safearray->list TMPPNT))
         (repeat        (/ (length TMPLST) 3)
           (setq        PNTLST  (cons (list (car TMPLST) (cadr TMPLST) (caddr TMPLST)) PNTLST)
                 TMPLST (cdddr TMPLST)
           )
         )
         (reverse PNTLST)
        )
        (t NIL)
   )
   (command "_.erase" en1 "")
   (setq ang (angle pt pt1) k 1)
   (mapcar '(lambda(x) (setq k (* k (if (equal (angle pt x) ang 0.0001) 1 -1)))) PNTLST)
   (cond ((= k -1)(alert "点在曲线内"))
         ((= k 1)(alert "点在曲线外"))
   )
 )
 )
 )


路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 19:07 , Processed in 0.141064 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部