求助

happlau

如何返回文本的旋转角度。谢谢

Andyhon

组码 50
(50 . 0.523599)

happlau

(defun c:ww(/ M_text dlang M_x M_y)
        (setq M_text (ssget))
        (setq dlang ???.rotation)        ;获取图元旋转角度
        (setq M_x sin(dlang)*5)                ;移动图元x
        (setq M_y cos(dlang)*5)                ;移动图元y
                        (command "move" M_text "" '(0 0 0) '(M_x M_y 0))
        (prin1)
)

happlau

求大神帮助修改下

血司

1. (defun c:lxy (/ ent rad)
   
2.   (setvar "OSMODE" 0)
   
3.   (setq ent (car (entsel)))
   
4.   (setq rad (Vlax-Get (Vlax-Ename->Vla-Object ent) 'Rotation ))            
   
5.   (command "_move" ent "" (list 0 0) (list (* (sin rad) 5) (* (cos rad) 5)))
   
6.   (princ)
   
7. )

(defun c:lxy (/ ent rad)<br />   (setvar "OSMODE" 0)<br />   (setq ent (car (entsel)))<br />   (setq rad (Vlax-Get (Vlax-Ename->Vla-Object ent) 'Rotation ))            <br />   (command "_move" ent "" (list 0 0) (list (* (sin rad) 5) (* (cos rad) 5)))<br />   (princ)<br /> )

happlau

有效。谢谢