再请教一个矩形问题

kqqt6236

请问，在矩形上任意选择一个点，如何判断这个点是在矩形的上边、下边、左边还是右边呢？

zyhandw

看不懂，不如传上个图来说明下。
要做什么用啊？

kqqt6236

zyhandw 发表于 2013-5-23 14:30
看不懂，不如传上个图来说明下。
要做什么用啊？

您好，已经说的很明白了，在矩形上面任选一点，如何判断这个点属于矩形哪条边？

HORSE_XU

使用MAX和MIN函数取得矩形的四个点，然后用COND来进行条件判断即可实现！

kqqt6236

HORSE_XU 发表于 2013-5-23 14:39
使用MAX和MIN函数取得矩形的四个点，然后用COND来进行条件判断即可实现！

贴段代码上来学习一下好吗？

牢固

如果矩形平行于UCS,则直接用点的X和Y坐标来判断即可！即先计算出矩形的包围框，然后再进行判断！
如果矩形是任意角度放置，楼主的命题就是伪命题？如何定义矩形的上边、下边、左边还是右边呢？

kqqt6236

牢固 发表于 2013-5-23 21:44
如果矩形平行于UCS,则直接用点的X和Y坐标来判断即可！即先计算出矩形的包围框，然后再进行判断！
如果矩形 ...

不带角度的矩形。

zxq0220

2. ;判断点在矩形的哪边
   
3. (defun nside (en pt)
   
4. (if (and en (= (type en) 'PICKSET)) (progn
   
5.   (setq ent (entget(ssname en 0)))
   
6.   (if (and (= (cdr(assoc 0 ent)) "LWPOLYLINE")
   
7.               (> (rem (cdr(assoc 70 ent)) 2) 0)
   
8.               (= (cdr(assoc 90 ent)) 4)) (progn
   
9.    (setq ptlst (list))
   
10.    (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
    
11.    (setq xmin (apply 'min (mapcar 'car ptlst)))
    
12.    (setq xmax (apply 'max (mapcar 'car ptlst)))
    
13.    (setq ymin (apply 'min (mapcar 'cadr ptlst)))
    
14.    (setq ymax (apply 'max (mapcar 'cadr ptlst)))
    
15.    (cond
    
16.     ((equal (car pt) xmin 1e-5) "左")
    
17.     ((equal (car pt) xmax 1e-5) "右")
    
18.     ((equal (cadr pt) ymax 1e-5) "上")
    
19.     ((equal (cadr pt) ymin 1e-5) "下")
    
20.     (T nil)
    
21.    )
    
22.   )
    
23.    nil
    
24.   )
    
25. )
    
26.   nil
    
27. )
    
28. )
    

;判断点在矩形的哪边<br /> (defun nside (en pt)<br /> (if (and en (= (type en) 'PICKSET)) (progn<br />   (setq ent (entget(ssname en 0)))<br />   (if (and (= (cdr(assoc 0 ent)) "LWPOLYLINE")<br />               (> (rem (cdr(assoc 70 ent)) 2) 0)<br />               (= (cdr(assoc 90 ent)) 4)) (progn<br />    (setq ptlst (list))<br />    (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))<br />    (setq xmin (apply 'min (mapcar 'car ptlst)))<br />    (setq xmax (apply 'max (mapcar 'car ptlst)))<br />    (setq ymin (apply 'min (mapcar 'cadr ptlst)))<br />    (setq ymax (apply 'max (mapcar 'cadr ptlst)))<br />    (cond<br />     ((equal (car pt) xmin 1e-5) "左")<br />     ((equal (car pt) xmax 1e-5) "右")<br />     ((equal (cadr pt) ymax 1e-5) "上")<br />     ((equal (cadr pt) ymin 1e-5) "下")<br />     (T nil)<br />    )<br />   )<br />    nil<br />   )<br /> )<br />   nil<br /> )<br /> )<br />

ysq101

高手出招了...学习一下!!!