API应用 实体中心旋转

st788796

1. (defun c:tt (/ an ss mat)
   
2.   (if (and (setq an (getangle "\n旋转角度: "))
   
3.            (setq ss (ssget))
   
4.       )
   
5.     (progn
   
6.       (setq mat (xdrx_matrix_identity 3))
   
7.       ;;(xd::begin)
   
8.       (xdrx_document_ucsoff)
   
9.       (mapcar '(lambda (x / box)
   
10.                  (setq box (xdrx_entity_box x))
    
11.                  (xdrx_entity_transform
    
12.                    x
    
13.                    (xdrx_matrix_setrotation
    
14.                      mat
    
15.                      an
    
16.                      '(0 0 1)
    
17.                      (xdrx_line_midp (car box) (caddr box))
    
18.                    )
    
19.                  )
    
20.                )
    
21.               (xdrx_pickset->ents ss)
    
22.       )
    
23.       (xdrx_document_ucson)
    
24.       ;;(xd::end)
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

(defun c:tt (/ an ss mat)<br />   (if (and (setq an (getangle "\n旋转角度: "))<br />            (setq ss (ssget))<br />       )<br />     (progn<br />       (setq mat (xdrx_matrix_identity 3))<br />       ;;(xd::begin)<br />       (xdrx_document_ucsoff)<br />       (mapcar '(lambda (x / box)<br />                  (setq box (xdrx_entity_box x))<br />                  (xdrx_entity_transform<br />                    x<br />                    (xdrx_matrix_setrotation<br />                      mat<br />                      an<br />                      '(0 0 1)<br />                      (xdrx_line_midp (car box) (caddr box))<br />                    )<br />                  )<br />                )<br />               (xdrx_pickset->ents ss)<br />       )<br />       (xdrx_document_ucson)<br />       ;;(xd::end)<br />     )<br />   )<br />   (princ)<br /> )

zinah

沙发，顶一个。。。。。。。。。

shengmiren

好用，谢谢