旋转TEXT、MTEXT实体

Lisphk · 发表于 2016-10-13 10:50:52

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

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

×

本帖最后由 Lisphk 于 2016-10-13 10:55 编辑

;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2012 JTB World, All Rights Reserved
;;; rotate selected text objects to specified angle
(defun c:txtrot (/ sset i ed ang)
(if (setq sset (ssget '((-4 . "<OR")
(0 . "MTEXT")
(0 . "TEXT")
(-4 . "OR>")
)
)
)
(progn
(setq ang (getangle "Specify rotation angle <0>: "))
(if (null ang)
(setq ang 0)
)
(repeat (setq i (sslength sset))
(setq ed (entget (ssname sset (setq i (1- i)))))
(entmod (subst (cons 50 ang)
(assoc 50 ed)
ed
)
)
)
)
)
(setq sset nil)
(princ)
)

zhangq_cai1 · 发表于 2016-10-13 13:05:46

看过~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

lj524917100 · 发表于 2016-10-13 13:36:53

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

sicky111 · 发表于 2016-12-3 21:50:53

源码必须支持

yoyoho · 发表于 2016-12-4 07:47:29

支持源码,感谢分享!!!!

adc · 发表于 2016-12-5 11:46:29

(defun c:textmtextangle_beyondutmost (/ count layername ss textangle)
  (vl-load-com)
  (print "启动文字角度命令（支持回车代选） >>>>>> ")
  (if (= (setq ss (ssget '((-4 . "<or") (0 . "TEXT")
   (0 . "MTEXT")
   (-4 . "or>")
   )
   )
   )
   nil
   )
(setq ss (ssget "P"))
  )
  (setq textangle (getangle "拾取两点，确定文字角度或输入角度值："))
  (princ "\n")
  (setq count 0)
  (repeat (sslength ss)
(vla-put-Rotation (vlax-ename->vla-object (ssname ss count)) textangle)
(setq count (1+ count))
  )
  (princ "\n")
  (print (strcat "共" (itoa (sslength ss)) "个实体角度设置为:"
   (angtos textangle) "度。"
   )
  )
  (princ)
)

lixiaolin1974 · 发表于 2017-10-6 10:21:33

谢谢楼主

evayleung · 发表于 2017-10-6 10:29:35

支持一下，谢谢分享、、、、、

liunian0524 · 发表于 2017-10-7 08:34:52

adc 发表于 2016-12-5 11:46

感谢分享..

kqqt6236 · 发表于 2017-10-10 00:04:05

谢谢分享。

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

[每日一码] 旋转TEXT、MTEXT实体

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