skyahai 发表于 2013-7-10 09:10:03

如何让对齐标注的数字字头向西、向北？

如题，谢谢

ll_j 发表于 2013-7-10 09:26:46

先顺时针旋转一下UCS再标注，标注完成后再转回UCS。

springwillow 发表于 2013-7-10 09:40:30

修改组码51的值，使之介于0-0.5pi之间

skyahai 发表于 2013-7-10 14:37:35

springwillow 发表于 2013-7-10 09:40 static/image/common/back.gif
修改组码51的值，使之介于0-0.5pi之间

组码51的值在哪里修改，谢谢！

springwillow 发表于 2013-7-10 18:35:06

本帖最后由 springwillow 于 2013-7-10 18:49 编辑

skyahai 发表于 2013-7-10 14:37 static/image/common/back.gif
组码51的值在哪里修改，谢谢！
不知道你对lisp理解到什么程度了，编辑组码应该是最基本的吧，一两句也说不太清楚，你还是找些资料去学一下吧。
提供一个参考(defun c:bzzl ( / a en1 ent len n newang oldang s ss)
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "DIMENSION"))))
    (progn
      (setq len (sslength ss))
      (setq n 1
      s 1
      )
      (while (<= n len)
(setq en1 (ssname ss (1- n)))
(setq a (entget en1))
(setq oldang (cdr (assoc 51 a)))
(cond ((>= oldang (/ pi 2))
         (setq newang (- oldang pi))
         (setq ent (subst (cons 51 newang) (assoc 51 a) a))
      )
      ((<= oldang (/ pi -2))
         (setq newang (+ oldang pi))
         (setq ent (subst (cons 51 newang) (assoc 51 a) a))
      )
)
(entmod ent)
(setq n (1+ n))
      )
    )
)
)

lty 发表于 2013-7-10 20:12:54

知识啊！我顶
页: [1]
查看完整版本: 如何让对齐标注的数字字头向西、向北？