修改标注实体的文字旋转角度

newer · 发表于 2016-9-5 08:05:00

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

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

×

下面代码能修改标注的文字按照输入的角度（度），并且鼠标点左右会自动按输入的度数旋转文字。

修改标注实体的文字旋转角度

[it618postdisplay>0]

(defun c:tt (/ *error* ss ang key rot e *degrees*) ; hanhphuc 24/09/2014
(defun *error* (msg)
(if (not (wcmatch (strcase msg) "*CANCEL*,*EXIT*"))
(princ (strcat "\nError: " msg))
) ; _ end of if
(princ)
) ; _ end of defun
(if (not (setq *degrees* (getreal "\nPlase Input Angle<90>:")))
(setq *degrees* 90.) ; <--- try change settings here eg:
; 30. 45. 90. 180. etc..
)
(prompt "\nSelect Dimension, then [ENTER]..")
(if (and
(not (zerop *degrees*))
(setq ss (ssget "_:L" '((0 . "DIMENSION"))))
) ; _ end of and
(setq key t)
(setq key nil)
) ; _ end of if
(prompt "\nMouse click [L] & [R] to rotate.\n")
(while key
(if (and
(setq key (grread nil 10 0))
(setq rot (eval (cons 'cond (reverse (vl-list* '(t
(setq key nil)
) (mapcar
''
((a b)
(list
(list 'equal
(car key)
a
)
(/ pi
(b
(/ 180. *degrees*)
)
)
)
)
'(3 25)
(list + -)
) ; _ end of
; mapcar
) ; _ end of cons
) ; _ end of reverse
) ; _ end of cons
) ; _ end of eval
) ; _ end of setq
) ; _ end of and
(foreach e (vl-remove-if 'listp (mapcar
'cadr
(ssnamex ss)
)
)
(setq e (vlax-ename->vla-object e))
(vla-put-textrotation e (+ (vla-get-textrotation e) rot))
) ; _ end of foreach
) ; _ end of while
) ; _ end of while
(princ)
)

(defun c:tt (/ *error* ss ang key rot e *degrees*) ; hanhphuc 24/09/2014 
  (defun *error* (msg) 
    (if (not (wcmatch (strcase msg) "*CANCEL*,*EXIT*")) 
      (princ (strcat "\nError: " msg)) 
    )                                       ; _ end of if 
    (princ) 
  )                                       ; _ end of defun 
  (if (not (setq *degrees* (getreal "\nPlase Input Angle<90>:"))) 
 
    (setq *degrees* 90.)               ; <--- try change settings here eg: 
                                       ; 30. 45. 90. 180. etc.. 
  ) 
  (prompt "\nSelect Dimension, then [ENTER]..") 
  (if (and 
        (not (zerop *degrees*)) 
        (setq ss (ssget "_:L" '((0 . "DIMENSION")))) 
      )                                       ; _ end of and 
    (setq key t) 
    (setq key nil) 
  )                                       ; _ end of if 
  (prompt "\nMouse click [L] & [R] to rotate.\n") 
  (while key 
    (if (and 
          (setq key (grread nil 10 0)) 
          (setq rot (eval (cons 'cond (reverse (vl-list* '(t 
                                                           (setq key nil) 
                                                         ) (mapcar 
                                                             '' 
                                                             ((a b) 
                                                              (list 
                                                                    (list 'equal 
                                                                          (car key) 
                                                                          a 
                                                                    ) 
                                                                    (/ pi 
                                                                       (b 
                                                                          (/ 180. *degrees*) 
                                                                       ) 
                                                                    ) 
                                                              ) 
                                                             ) 
                                                             '(3 25) 
                                                             (list + -) 
                                                           ) ; _ end of 
                                       ; mapcar 
                                               ) ; _ end of cons 
                                      )        ; _ end of reverse 
                          )               ; _ end of cons 
                    )                       ; _ end of eval 
          )                               ; _ end of setq 
        )                               ; _ end of and 
      (foreach e (vl-remove-if 'listp (mapcar 
                                        'cadr 
                                        (ssnamex ss) 
                                      ) 
                 ) 
        (setq e (vlax-ename->vla-object e)) 
        (vla-put-textrotation e (+ (vla-get-textrotation e) rot)) 
      )                                       ; _ end of foreach 
    )                                       ; _ end of while 
  )                                       ; _ end of while 
  (princ) 
)

[/it618postdisplay]

819534890 · 发表于 2016-9-5 08:56:19

ggood good.

lucas3 · 发表于 2016-9-5 10:02:59

看看，向大师学习

adc · 发表于 2016-9-6 16:58:33

看看怎样~~~~

czb203 · 发表于 2016-9-6 19:42:01

ggood good.

ming1789 · 发表于 2017-1-29 23:08:58

啥也不说了，感谢楼主分享哇！

508000096 · 发表于 2017-2-16 20:06:44

不知道多行文字能不能行.

ll_j · 发表于 2017-2-17 09:08:55

(defun C:DTR()(command "dim1""trotate"))

sachindkini · 发表于 2017-2-18 13:49:28

see this post hidden content

zdqwy19 · 发表于 2017-2-18 20:29:39

不想动。。。。。。

yoyoho · 发表于 2017-2-18 23:29:08

学习 N版程序!!!!

508000096 · 发表于 2017-3-11 21:28:37

这个要支持一下，在标注斜坡应该有用。

qjcpj · 发表于 2017-3-20 17:01:29

路过，看看，学习了。

ξPipposky · 发表于 2017-5-14 01:32:03

我来测试一下，行不行

yjch · 发表于 2017-5-14 01:35:23

好好学习天天向上，好

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

[每日一码] 修改标注实体的文字旋转角度

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

点评