旋转点表函数

hubeiwdlue

xiaocainiao网友提出的按方向点排序的问题，黄大师提出可以旋转点表，然后按照x排序。
http://bbs.mjtd.com/forum.php?mo ... hlight=%C5%C5%D0%F2
我试着写一个简单的点表旋转函数，水平很差，大家不要笑话。
期待大神写出效率更高，更精简的函数。

2. ;;旋转点表函数，(ptlst-rot ptlst pt ang),ptlst为点表，pt为旋转基点,ang为角度，单位是弧度
   
3. (defun ptlst-rot(ptlst pt ang / ang1 ang2 dis p2 plst v)
   
4.   (foreach p ptlst
   
5.     (setq dis (distance pt p)
   
6.       ang1 (angle pt p)
   
7.       ang2 (+ ang1 ang)
   
8.       v (polar '(0 0 0) ang2 dis)
   
9.     )
   
10.     (setq p2 (mapcar '+ pt v)
    
11.       plst (cons p2 plst)
    
12.     )
    
13.   )
    
14.   (reverse plst)
    
15. )
    
16. ;;测试
    
17. (defun c:tt()
    
18.   (setq en (car(entsel)))
    
19.   (setq plst (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10))(entget en))))
    
20.   (setq pt (car plst))
    
21.   (setq plst2 (ptlst-rot plst pt (* (/ -50 180.0) pi)))
    
22.   (command ".PLINE")
    
23.   (foreach p plst2
    
24.     (command "non" p)
    
25.   )
    
26.   (command)
    
27.   (princ)  
    
28. )

;;旋转点表函数，(ptlst-rot ptlst pt ang),ptlst为点表，pt为旋转基点,ang为角度，单位是弧度<br /> (defun ptlst-rot(ptlst pt ang / ang1 ang2 dis p2 plst v)<br />   (foreach p ptlst <br />     (setq dis (distance pt p)<br />       ang1 (angle pt p)<br />       ang2 (+ ang1 ang)<br />       v (polar '(0 0 0) ang2 dis)<br />     )<br />     (setq p2 (mapcar '+ pt v)<br />       plst (cons p2 plst)<br />     )<br />   )<br />   (reverse plst)<br /> )<br /> ;;测试<br /> (defun c:tt()<br />   (setq en (car(entsel)))<br />   (setq plst (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10))(entget en))))<br />   (setq pt (car plst))<br />   (setq plst2 (ptlst-rot plst pt (* (/ -50 180.0) pi)))<br />   (command ".PLINE")<br />   (foreach p plst2<br />     (command "non" p)<br />   )<br />   (command)<br />   (princ)  <br /> )

tryhi

建议化整为零，不要上来直接整表，拆解为两步更简单

1. ;;pt点围绕p0点旋转ang弧度
   
2. (defun try-pt-rotate (pt p0 ang)(polar p0 (+ (angle p0 pt) ang) (distance pt p0)))
   
3. ;;点表围绕p0点旋转ang弧度
   
4. (defun try-pts-rotate(lst p0 ang)(mapcar '(lambda(x)(try-pt-rotate x p0 ang))lst))

;;pt点围绕p0点旋转ang弧度<br /> (defun try-pt-rotate (pt p0 ang)(polar p0 (+ (angle p0 pt) ang) (distance pt p0)))<br /> ;;点表围绕p0点旋转ang弧度<br /> (defun try-pts-rotate(lst p0 ang)(mapcar '(lambda(x)(try-pt-rotate x p0 ang))lst))

hubeiwdlue

tryhi 发表于 2024-6-23 19:15
建议化整为零，不要上来直接整表，拆解为两步更简单

谢谢大海老师的指导。这样逻辑确实更清晰一些。谢谢。

自贡黄明儒

我喜欢找Matrix-Lib.LSP

1. ;;-----------------------------------------------------------;;
   
2. ;; 二维旋转变换矩阵                                              ;;
   
3. ;; 参数:                                                      ;;
   
4. ;; Cen - 基点                                                ;;
   
5. ;; ang - 旋转角度                                            ;;
   
6. ;;-----------------------------------------------------------;;
   
7. ;;-----------------=={ Rotate by Matrix }==------------------;;
   
8. ;;                                                           ;;
   
9. ;; Rotation Matrix                                           ;;
   
10. ;;-----------------------------------------------------------;;
    
11. ;; Author: highflybird, Copyright ? 2012                     ;;
    
12. ;;-----------------------------------------------------------;;
    
13. ;; Arguments:                                                ;;
    
14. ;; Cen    - Base Point for Rotation Transformation           ;;
    
15. ;; ang    - Angle through which to rotate object             ;;
    
16. ;;-----------------------------------------------------------;;
    
17. (defun MAT:Rotation ( Cen ang / c s x y)
    
18.   (setq c (cos ang) s (sin ang))
    
19.   (setq x (car Cen) y (cadr Cen))
    
20.   (list
    
21.     (list c (- s) 0. (- x (- (* c x) (* s y))))
    
22.     (list s    c  0. (- y (+ (* s x) (* c y))))
    
23.     '(0. 0. 1. 0.)
    
24.     '(0. 0. 0. 1.)
    
25.   )
    
26. )
    

;;-----------------------------------------------------------;;<br /> ;; 二维旋转变换矩阵                                              ;;<br /> ;; 参数:                                                      ;;<br /> ;; Cen - 基点                                                ;;<br /> ;; ang - 旋转角度                                            ;;<br /> ;;-----------------------------------------------------------;;<br /> ;;-----------------=={ Rotate by Matrix }==------------------;;<br /> ;;                                                           ;;<br /> ;; Rotation Matrix                                           ;;<br /> ;;-----------------------------------------------------------;;<br /> ;; Author: highflybird, Copyright ? 2012                     ;;<br /> ;;-----------------------------------------------------------;;<br /> ;; Arguments:                                                ;;<br /> ;; Cen    - Base Point for Rotation Transformation           ;;<br /> ;; ang    - Angle through which to rotate object             ;;<br /> ;;-----------------------------------------------------------;;<br /> (defun MAT:Rotation ( Cen ang / c s x y)<br />   (setq c (cos ang) s (sin ang))<br />   (setq x (car Cen) y (cadr Cen))<br />   (list<br />     (list c (- s) 0. (- x (- (* c x) (* s y))))<br />     (list s    c  0. (- y (+ (* s x) (* c y))))<br />     '(0. 0. 1. 0.)<br />     '(0. 0. 0. 1.)<br />   )<br /> )<br />

hubeiwdlue

自贡黄明儒 发表于 2024-6-24 08:20
我喜欢找Matrix-Lib.LSP

谢谢黄大师。这个矩阵变换，已经忘得干干净净了，完全看不懂了。