判断点在曲线内上外

434939575

2. (defun c:ttt () ;2016-7-21 冯蔡路口  判断点在曲线的位置，曲线可以相交
   
3.   (setq na (car (entsel "pick")))
   
4.   (setq pt (getpoint "point"))
   
5.   (setq p (vlax-curve-getClosestPointTo na pt))
   
6.        (setq p5 (mid na))
   
7.   (setq cur_p5 (distance p5 p))
   
8.   (setq pt_p5 (distance p5 pt))
   
9.   (if (equal cur_p5 pt_p5 0.00001)
   
10.     (progn (setq pt_site 0) (princ "在曲线上"))
    
11.     (progn (if (> cur_p5 pt_p5)
    
12.      (progn (princ "在曲线内部") (setq pt_site -1))
    
13.      (progn (princ "在曲线外部") (setq pt_site 1))
    
14.    )
    
15.     )
    
16.   )  ;if
    
17.      
    
18. )
    
19. (defun mid (ss0 / ptmi ptma)
    
20.   (vla-getboundingbox
    
21.     (vlax-ename->vla-object ss0)
    
22.     'ptmi
    
23.     'ptma
    
24.   )
    
25.   (setq 2pts (mapcar 'vlax-safearray->list (list ptmi ptma)))
    
26.   (mapcar '(lambda (X Y) (/ (+ X Y) 2.0))
    
27.   (car 2pts)
    
28.   (cadr 2pts)
    
29.   )
    
30. )
    

(defun c:ttt () ;2016-7-21 冯蔡路口  判断点在曲线的位置，曲线可以相交<br />   (setq na (car (entsel "pick")))<br />   (setq pt (getpoint "point"))<br />   (setq p (vlax-curve-getClosestPointTo na pt))<br />        (setq p5 (mid na))<br />   (setq cur_p5 (distance p5 p))<br />   (setq pt_p5 (distance p5 pt))<br />   (if (equal cur_p5 pt_p5 0.00001)<br />     (progn (setq pt_site 0) (princ "在曲线上"))<br />     (progn (if (> cur_p5 pt_p5)<br />      (progn (princ "在曲线内部") (setq pt_site -1))<br />      (progn (princ "在曲线外部") (setq pt_site 1))<br />    )<br />     )<br />   )  ;if<br />      <br /> )<br /> (defun mid (ss0 / ptmi ptma)<br />   (vla-getboundingbox<br />     (vlax-ename->vla-object ss0)<br />     'ptmi<br />     'ptma<br />   )<br />   (setq 2pts (mapcar 'vlax-safearray->list (list ptmi ptma)))<br />   (mapcar '(lambda (X Y) (/ (+ X Y) 2.0))<br />   (car 2pts)<br />   (cadr 2pts)<br />   )<br /> )<br />

xyp1964

1. (defun PtInPtn (p pt / aa)
   
2.   "PtInPtn 点在点集内 (PtInPtn pt点 ptn点集)"
   
3.   (setq aa (mapcar '(lambda (x y) (rem (- (angle x p) (angle y p)) pi)) pt (cons (last pt) pt))
   
4.         aa (abs (apply '+ aa))
   
5.   )
   
6.   (equal aa pi 1e-8)
   
7. )

(defun PtInPtn (p pt / aa)<br />   "PtInPtn 点在点集内 (PtInPtn pt点 ptn点集)"<br />   (setq aa (mapcar '(lambda (x y) (rem (- (angle x p) (angle y p)) pi)) pt (cons (last pt) pt))<br />         aa (abs (apply '+ aa))<br />   )<br />   (equal aa pi 1e-8)<br /> )

ysq101

楼主都这么厉害了？？ 我记得一年前你没这么厉害啊

陈进佳

.....扯......

陨落

.....扯......局限性太大

preone

用ssget选择后获取图元名，在传给这个函数，会出现：  错误: 参数类型错误: 二维/三维点: nil@434939575