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

skyahai

如题，谢谢

ll_j

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

springwillow

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

skyahai

springwillow 发表于 2013-7-10 09:40
修改组码51的值，使之介于0-0.5pi之间

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

springwillow

skyahai 发表于 2013-7-10 14:37
组码51的值在哪里修改，谢谢！

不知道你对lisp理解到什么程度了，编辑组码应该是最基本的吧，一两句也说不太清楚，你还是找些资料去学一下吧。
提供一个参考

2. (defun c:bzzl ( / a en1 ent len n newang oldang s ss)
   
3.   (setvar "CMDECHO" 0)
   
4.   (if (setq ss (ssget '((0 . "DIMENSION"))))
   
5.     (progn
   
6.       (setq len (sslength ss))
   
7.       (setq n 1
   
8.       s 1
   
9.       )
   
10.       (while (<= n len)
    
11.   (setq en1 (ssname ss (1- n)))
    
12.   (setq a (entget en1))
    
13.   (setq oldang (cdr (assoc 51 a)))
    
14.   (cond ((>= oldang (/ pi 2))
    
15.          (setq newang (- oldang pi))
    
16.          (setq ent (subst (cons 51 newang) (assoc 51 a) a))
    
17.         )
    
18.         ((<= oldang (/ pi -2))
    
19.          (setq newang (+ oldang pi))
    
20.          (setq ent (subst (cons 51 newang) (assoc 51 a) a))
    
21.         )
    
22.   )
    
23.   (entmod ent)
    
24.   (setq n (1+ n))
    
25.       )
    
26.     )
    
27.   )
    
28. )

(defun c:bzzl ( / a en1 ent len n newang oldang s ss)<br />   (setvar "CMDECHO" 0)<br />   (if (setq ss (ssget '((0 . "DIMENSION"))))<br />     (progn<br />       (setq len (sslength ss))<br />       (setq n 1<br />       s 1<br />       )<br />       (while (<= n len)<br />   (setq en1 (ssname ss (1- n)))<br />   (setq a (entget en1))<br />   (setq oldang (cdr (assoc 51 a)))<br />   (cond ((>= oldang (/ pi 2))<br />          (setq newang (- oldang pi))<br />          (setq ent (subst (cons 51 newang) (assoc 51 a) a))<br />         )<br />         ((<= oldang (/ pi -2))<br />          (setq newang (+ oldang pi))<br />          (setq ent (subst (cons 51 newang) (assoc 51 a) a))<br />         )<br />   )<br />   (entmod ent)<br />   (setq n (1+ n))<br />       )<br />     )<br />   )<br /> )

lty

知识啊！我顶