移动文字并旋转指定方向的程序

;该程序是从别处抄过来的~
;当然程序不见得就好用
;觉得大家有时候会用的着这个程序
;比如给不是水平或者垂直的直线注管径时候
;估计要用这样的功能~
;如果有时间
;把程序优化一下在传到下面

(vl-load-com)
;(getstr str1)取得文字
(defun getstr(str1 / e obj col )
(initget 1 )
(setq e (entsel (strcat "\n" str1 ":")))
(setq obj (vlax-ename->vla-object (car e)))
(if (>= (vla-get-color obj ) 256)
(setq col 1)
(setq col (+ 1 (vla-get-color obj )))
);end if
(vla-put-color obj col )
(princ (vla-get-textstring obj))
)
(defun rtd (angg)
(/ (* angg 180.0) pi))

(defun movejxbz( pt1 pangle str )
(command "color" "6")
(setvar "TEXTSIZE" 25)
(command "style" "" "" 25 "" "" "" "" nil)
(IF (> (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETvar "TEXTSTYLE")))) 0.0)
(VL-CMDF "TEXT" PT1 (rtd pangle) str)
(VL-CMDF "TEXT" PT1 25 (rtd pangle) str)
)
(command "color" "BYLAYER")
(princ)
)
(defun c:222( / pangle pt1 str)
(setq str (getstr "选取要移动的文本"))
(setq pt1 (getpoint "\n新的放置点"))
(setq pangle (getangle pt1 "\n方向"))
(movejxbz pt1 pangle str)
)