如何修改旋轉lisp

ponww

請求高手修改旋轉lisp如圖:圖塊文字旋轉與銀幕成垂直
(defun c:ro( )
   
    (prompt "\n<旋轉物件>")
    (prompt "\n選取物件:")
    (command "osnap" "NODe");"NODe"指鎖單點
    (command "select" pause)
    (setq pb (getpoint "\n指定基準點:"))
    (setq ang (getangle "\n請輸入旋轉角度:"))
    (setq ang (/ (* ang 180) pi))
    (command "rotate" "p" "" pb ang);"p"指前次選擇,""指Enter,pb指基準點,ang角度
    (princ)
)

Gu_xl

1. (defun c:tt ()
   
2.   (While
   
3.     (setq ss (ssget ":L" '((0 . "insert"))))
   
4.      (repeat (setq n (sslength ss))
   
5.        (setq O (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
   
6.        (setq a (vla-get-Rotation o))
   
7.        (VLA-ROTATE o (vla-get-InsertionPoint o) (- (* 0.5 pi) a))
   
8.      )
   
9.   )
   
10.   (princ)
    
11. )

(defun c:tt ()<br />   (While<br />     (setq ss (ssget ":L" '((0 . "insert"))))<br />      (repeat (setq n (sslength ss))<br />        (setq O (vlax-ename->vla-object (ssname ss (setq n (1- n)))))<br />        (setq a (vla-get-Rotation o))<br />        (VLA-ROTATE o (vla-get-InsertionPoint o) (- (* 0.5 pi) a))<br />      )<br />   )<br />   (princ)<br /> )

ponww

謝謝Gu_xl版主
有你的出手使得苦思三個多月的程式總算搞定了
再次謝謝版主