[功能] 点在多边形，圆，椭圆内返回T;线上0;外nil(offset法)

自贡黄明儒

1. ;;164.41.1 [功能] 点在多边形，圆，椭圆内返回T;线上0;外nil
   
2. ;;  By 自贡黄明儒(offset法)
   
3. ;;(defun C:w1 ()  (PtInorOut3 (car (entsel)) (getpoint)))
   
4. ;;对于带凸度的多段线，不明确
   
5. (defun PtInorOut3 (en p / D1 D2 ENAME P2 PP)
   
6.   (setq pp (vlax-curve-getclosestpointto en (trans p 1 0)))
   
7.   (if (equal pp p 0.00001)
   
8.     0
   
9.     (progn
   
10.       (setq d1 (distance p pp))
    
11.       (vla-offset (vlax-ename->vla-object en) -0.00001)
    
12.       (setq p2 (vlax-curve-getclosestpointto (entlast) (trans p 1 0)))
    
13.       (setq d2 (distance p p2))
    
14.       (entdel (entlast))
    
15.       ;;(setq ename (cdr (assoc 0 (entget (car (entsel))))))
    
16.       (setq ename (cdr (assoc 0 (entget en))))
    
17.       (cond ((wcmatch ename "CIRCLE,ELLIPSE")(> d1 d2))
    
18.             ((equal ename "LWPOLYLINE")(> d2 d1))
    
19.             (T (princ "不能判断")))
    
20.     )
    
21.   )
    
22. )
    

;;164.41.1 [功能] 点在多边形，圆，椭圆内返回T;线上0;外nil<br /> ;;  By 自贡黄明儒(offset法)<br /> ;;(defun C:w1 ()  (PtInorOut3 (car (entsel)) (getpoint)))<br /> ;;对于带凸度的多段线，不明确<br /> (defun PtInorOut3 (en p / D1 D2 ENAME P2 PP)<br />   (setq pp (vlax-curve-getclosestpointto en (trans p 1 0)))<br />   (if (equal pp p 0.00001)<br />     0<br />     (progn<br />       (setq d1 (distance p pp))<br />       (vla-offset (vlax-ename->vla-object en) -0.00001)<br />       (setq p2 (vlax-curve-getclosestpointto (entlast) (trans p 1 0)))<br />       (setq d2 (distance p p2))<br />       (entdel (entlast))<br />       ;;(setq ename (cdr (assoc 0 (entget (car (entsel))))))<br />       (setq ename (cdr (assoc 0 (entget en))))<br />       (cond ((wcmatch ename "CIRCLE,ELLIPSE")(> d1 d2))<br />             ((equal ename "LWPOLYLINE")(> d2 d1))<br />             (T (princ "不能判断")))<br />     )<br />   )<br /> )<br />

阿霸jun

赞一个！

yoyoho

感谢 "自贡黄明儒" 分享程序!

emk

这个函数有用，感谢黄兄

ynhh

黄工的思想很先进，写程序很快又好

陈亚娣

这个函数有用，感谢楼主！我测试了一下，好像如果是纯多段线没有曲线那种返回的值跟圆的值是反过来的~
测试纯多段线：点在线内返回nil,点在线外返回的是T，点在线上返回正常是0

434939575

功能挺好的。

skg123

黄大师，运行出现错误     选择对象: ; 错误: ActiveX 服务器返回错误: 未知名称: Offset
Offset 在函数里找不到