【已解决】矩形的中心点怎么获取及长边的旋转角度

wbf424069638

求矩形的中心点怎么获取及长边的旋转角度，大神帮哈忙解答下，求代码

/db_自贡黄明儒_

对角点的中点就是中心。

Lisphk

问问题最好配个截图，你说的矩形，就是四条边的多段线吧，你已知的是什么呢？ 多段线实体？ 那你求出四个顶点， 对角线顶点的中点就是中心，

边长，你根据顶点间的长度，判断哪条边最长。

wbf424069638

Lisphk 发表于 2017-8-5 14:50

你的思路我大概知道了 ，但是我用COMMAND : (SETQ TEMP (ENTGET (CAR (ENTSEL))))，查看矩形的像素数据时，四个顶点DXF码都是10，我不知道这四个点怎么调用和区分，

newer

wbf424069638 发表于 2017-8-5 18:51

每个10点都是一个顶点， 你用 顶点 搜索论坛，一大推求多段线顶点的代码。

试试

1. (mapcar        'cdr
   
2.         (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel))))
   
3. )
   
4. 
   

(mapcar        'cdr<br />         (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel))))<br /> )<br /> <br />

ll_j

wbf424069638 发表于 2017-8-5 18:51

使用vl-remove-if-not提取组码10的值，闭合的矩形应该是是个点，1、3或2、4点求中点（平均坐标）就是你要的点。

fan_zh

(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))

Lisphk

1. (defun c:tt ()
   
2.   (if
   
3.     (and (setq
   
4.            ss (ssget ":N:S" '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1)))
   
5.          )
   
6.          (setq e (ssname ss 0))
   
7.          (setq pts (mapcar 'cdr
   
8.                            (vl-remove-if
   
9.                              '(lambda (x) (/= (car x) 10))
   
10.                              (entget e)
    
11.                            )
    
12.                    )
    
13.          )
    
14.          (or (= (setq len (length pts)) 4)
    
15.              (and (= len 5)
    
16.                   (equal (last pts) (car pts) 1e-3)
    
17.              )
    
18.          )
    
19.     )
    
20.      (progn
    
21.        (setq p1          (car pts)
    
22.              p2          (nth 1 pts)
    
23.              p3          (nth 2 pts)
    
24.              an          (angle p1 p3)
    
25.              cen  (polar p1 an (/ (distance p1 p3) 2.0))
    
26.              dis1 (distance p1 p2)
    
27.              dis2 (distance p2 p3)
    
28.        )
    
29.        (princ "\n中心点:")
    
30.        (princ cen)
    
31.        (princ "\n长边长度:")
    
32.        (princ (max dis1 dis2))
    
33.      )
    
34.   )
    
35.   (princ)
    
36. )
    

(defun c:tt ()<br />   (if<br />     (and (setq<br />            ss (ssget ":N:S" '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1)))<br />          )<br />          (setq e (ssname ss 0))<br />          (setq pts (mapcar 'cdr<br />                            (vl-remove-if<br />                              '(lambda (x) (/= (car x) 10))<br />                              (entget e)<br />                            )<br />                    )<br />          )<br />          (or (= (setq len (length pts)) 4)<br />              (and (= len 5)<br />                   (equal (last pts) (car pts) 1e-3)<br />              )<br />          )<br />     )<br />      (progn<br />        (setq p1          (car pts)<br />              p2          (nth 1 pts)<br />              p3          (nth 2 pts)<br />              an          (angle p1 p3)<br />              cen  (polar p1 an (/ (distance p1 p3) 2.0))<br />              dis1 (distance p1 p2)<br />              dis2 (distance p2 p3)<br />        )<br />        (princ "\n中心点:")<br />        (princ cen)<br />        (princ "\n长边长度:")<br />        (princ (max dis1 dis2))<br />      )<br />   )<br />   (princ)<br /> )<br />

wbf424069638

谢谢这么多大神解答，感谢！！！