liminnet 发表于 2008-7-4 12:28:00

ZZXXQQ 发表于 2008-7-4 13:55:00

<p>形心？是文字框的中心吗？</p>

liminnet 发表于 2008-7-4 14:50:00

liminnet 发表于 2008-7-4 14:59:00

ZZXXQQ 发表于 2008-7-4 21:36:00

本帖最后由 作者 于 2008-7-5 18:44:06 编辑

仅对TEXT有效。


(defun ROTEXT (AN)
(while (setq SS (ssget ":s" '((0 . "TEXT"))))
    (repeat (setq N (sslength SS))
      (setq en (ssname ss (setq n (1- n)))
               ent (entget en))
      (setq temp (cadr(textbox(list(assoc 1 ent))))
               pt (cdr(assoc 10 ent))
               ang (cdr(assoc 50 ent))
               textw (cdr(assoc 41 ent))
               tmp_w (* (car temp) textw)
               tmp_h (cadr temp)
               pc (polar (polar pt ang (* tmp_w 0.5)) (+ (/ pi 2) ang) (* tmp_h 0.5))
               ent (subst '(71 . 0) (assoc 71 ent) ent))
      (entmod ent)
      (command ".rotate" en "" pc (- (atof an) (/ (* ang 180) pi)))
    )
)
(princ)
)
(defun c:d1 ()
(ROTEXT "0")
)
(defun c:d2 ()
(ROTEXT "30")
)
(defun c:d3 ()
(ROTEXT "45")
)
(defun c:d4 ()
(ROTEXT "60")
)

liminnet 发表于 2008-7-5 15:59:00

liminnet 发表于 2008-7-5 16:28:00

sfjlx 发表于 2008-7-5 17:27:00

<p>仅对TEXT有效。</p><hr size="1"/><font color="#ff0000">以下内容需要帖子数达到<b>5</b>才可以浏览<br/><br/>努力回帖！<br/></font>

ZZXXQQ 发表于 2008-7-5 17:53:00

liminnet发表于2008-7-5 16:28:00static/image/common/back.gifZZXXQQ大哥，可以让这种炸开后文字（做建筑总图方案时，要把一条PL加粗与文字做成一个块然后复制摆不同的朝向来布置整个小区，有时要镜像这种块来定义另一边对称的楼，所以就有了块被镜像后的这

<p>能用图样说明吗？最好给个DWG调试。</p>

liminnet 发表于 2008-7-5 18:16:00

页: [1] 2 3 4
查看完整版本: 这个程序可以用文字的形心来旋转吗？