阵列加旋转

st788796 · 发表于 2013-9-27 17:08:35

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

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

×

(defun c:tt (/ p ss p1 n mat0 an0 an mat1)
(if (and (setq p (getpoint "\n中心点: "))
(progn
(princ "\n选择阵列物体和基点....")
(setq ss (ssget))
(setq p1 (getpoint "\n基点: "))
)
(setq n (getint "\n阵列个数:　"))
)
(progn
(setq mat0 (xdrx_matrix_identity 3)
p (trans p 1 0)
p1 (trans p1 1 0)
an0 0.
an (/ (* pi 2) n)
mat1 (xdrx_matrix_setrotation
mat0
(* an 2)
'(0. 0. 1.)
'(0. 0. 0.)
)
)
(repeat (1- n)
(setq an0 (+ an0 an))
(xdrx_entity_transformedcopy
ss
(xdrx_matrix_product
(xdrx_matrix_setrotation
mat0
(* an 2)
'(0. 0. 1.)
(polar p (+ an0 (angle p p1)) (distance p p1))
)
(xdrx_matrix_setrotation
mat0
an0
'(0. 0. 1.)
(trans p 1 0)
)
)
)
)
)
)
(princ)
)

(defun c:tt (/ p ss p1 n mat0 an0 an mat1) 
  (if (and (setq p (getpoint "\n中心点: ")) 
    (progn 
      (princ "\n选择阵列物体和基点....") 
      (setq ss (ssget)) 
      (setq p1 (getpoint "\n基点: ")) 
    ) 
    (setq n (getint "\n阵列个数:　")) 
      ) 
    (progn 
      (setq mat0 (xdrx_matrix_identity 3) 
     p  (trans p 1 0) 
     p1  (trans p1 1 0) 
     an0  0. 
     an  (/ (* pi 2) n) 
     mat1 (xdrx_matrix_setrotation 
     mat0 
     (* an 2) 
     '(0. 0. 1.) 
     '(0. 0. 0.) 
   ) 
      ) 
      (repeat (1- n) 
 (setq an0 (+ an0 an)) 
 (xdrx_entity_transformedcopy 
   ss 
   (xdrx_matrix_product 
     (xdrx_matrix_setrotation 
       mat0 
       (* an 2) 
       '(0. 0. 1.) 
       (polar p (+ an0 (angle p p1)) (distance p p1)) 
     ) 
     (xdrx_matrix_setrotation 
       mat0 
       an0 
       '(0. 0. 1.) 
       (trans p 1 0) 
     ) 
   ) 
 ) 
      ) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2013-9-27 17:47:25

这就是传说中的连滚带爬吧。

q3_2006 · 发表于 2013-9-27 18:03:11

;P连滚带爬。。我叫公转自转。。

st788796 · 发表于 2013-9-27 18:46:39

这个是360度转，有指定夹角的吗？

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

[每日一码] 阵列加旋转

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