[求助]：怎样判断某点是否在某个多段线封闭范围内

laoxie_1983 · 发表于 2006-9-5 17:01:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想提取一个封闭多段线内注记的内容.请问高手怎样判断我的注记是否在我这个范围内?

Underway · 发表于 2006-9-5 19:03:46

http://www.bugman123.com/Programs/Functions.html

;Function to determine whether a point is inside a region.
(defun inside (p plist / n vp1 p1 p2 thetasum theta)
(if (vl-some 'numberp plist)
(progn
(setq n 0
p1 (car plist)
) ; intersection test vector, this code was adapted from: [url]http://www.autocode.com/lisp/inout.zip[/url]
(setq vp1 (pt (+ (car p) (* 3 (- (xmax plist) (xmin plist))))
(cadr p)
)
) ; virtual point (assumes this point is outside)
(foreach p2 (cdr plist)
(if (numberp p2)
(setq theta p2)
(progn
(if theta
(setq n (+ n (length (inters-arc p vp1 p1 p2 theta T))))
(if (inters p vp1 p1 p2)
(setq n (1+ n))
)
)
(setq p1 p2
theta nil
)
)
)
) ;f
(/= (rem n 2) 0) ; oneofeach
);p
(progn (setq thetasum 0
theta2 (if plist
(angle p (last plist))
)
) ; no buldges (faster)
(foreach p2 plist
(setq theta1 (angle p p2)
theta (- theta2 theta1)
)
(if (> (abs theta) pi)
(setq theta (+ theta
(* (if (minusp theta)
-1
1
)
2pi
)
)
)
)
(setq thetasum (+ thetasum theta)
theta2 theta1
)
) ;f
(/=~ thetasum 0)
) ;p
)
) ;d

;Function to determine whether a point is inside a region. 
(defun inside (p plist / n vp1 p1 p2 thetasum theta) 
  (if (vl-some 'numberp plist) 
    (progn 
      (setq n  0 
            p1 (car plist) 
      )        ; intersection test vector, this code was adapted from: [url]http://www.autocode.com/lisp/inout.zip[/url] 
      (setq vp1        (pt (+ (car p) (* 3 (- (xmax plist) (xmin plist)))) 
                    (cadr p) 
                ) 
      )        ; virtual point (assumes this point is outside) 
      (foreach p2 (cdr plist) 
        (if (numberp p2) 
          (setq theta p2) 
          (progn 
            (if        theta 
              (setq n (+ n (length (inters-arc p vp1 p1 p2 theta T)))) 
              (if (inters p vp1 p1 p2) 
                (setq n (1+ n)) 
              ) 
            ) 
            (setq p1 p2 
                  theta        nil 
            ) 
          ) 
        ) 
      )        ;f 
      (/= (rem n 2) 0)                        ; oneofeach 
    );p 
    (progn (setq thetasum 0 
                 theta2          (if plist 
                            (angle p (last plist)) 
                          ) 
           ) ; no buldges (faster) 
           (foreach p2 plist 
             (setq theta1 (angle p p2) 
                   theta  (- theta2 theta1) 
             ) 
             (if (> (abs theta) pi) 
               (setq theta (+ theta 
                              (* (if (minusp theta) 
                                   -1 
                                   1 
                                 ) 
                                 2pi 
                              ) 
                           ) 
               ) 
             ) 
             (setq thetasum (+ thetasum theta) 
                   theta2   theta1 
             ) 
           )                                ;f 
           (/=~ thetasum 0) 
    )                                        ;p 
  ) 
)                                        ;d

or
http://discussion.autodesk.com/thread.jspa?messageID=4116930
http://discussion.autodesk.com/thread.jspa?messageID=1217519

aeo · 发表于 2006-9-5 22:25:02

多段线用点模拟出来-->pts
(ssget "wp" pts)
如果选到你的标记,说明在里面.

laoxie_1983 · 发表于 2006-9-6 08:03:38

斑竹:我用把多段线用点表pts存储,然后用(ssget "wp" pts) 当我的点表很复杂的时候选择集就nill不知怎么回事

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：怎样判断某点是否在某个多段线封闭范围内

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子