[LISP函数]：旋转所有属性(除在#NoFix列表外)到0度(相对于UCS)

whp5924

旋转所有属性(除在#NoFix列表外)到0度(相对于UCS)
(defun I:AutoFixAtts
(BlkEntN                        ; 插入的图元名称
  #NoFix                         ; 非固定属性的列表
  /
  EntN                           ; 图元名称
  Ent                            ; 图元信息
) ;_ closes variable declare
(if (not #NoFix)                ; 如列表不存在
  (setq #NoFix '())              ; 则设置一个空白列表
) ;_ closes if
(cond
  ((/= (cdr (assoc 50 (entget BlkEntN))) 0) ; 如图块不为0
   (setq EntN BlkEntN)           ; 读取图块中的第一个图元
   (while EntN                   ; 图元处理过程
    (setq Ent (entget EntN))     ; 读取图元数据
    (if
     (and
      (= (cdr (assoc 0 Ent)) "ATTRIB")      ; 如为属性
      (not (member (cdr (assoc 2 Ent)) #NoFix)) ; to fix
     ) ;_ closes and
     (setq Ent                   ; then fix to current UCS
           (entmod
            (subst
             (cons 50
              (angle (getvar "UCSOrg") (getvar "UCSXDir")))
             (assoc 50 Ent)
             Ent
            ) ;_ closes subst
           ) ;_ closes entmod
     ) ;_ closes setq
    ) ;_ closes if
    (setq EntN (entnext EntN))   ; get next entity name
   ) ;_ closes while
   (entupd BlkEntN)              ; regen insert entity
  ) ;_ closes condition
) ;_ closes cond
) ;_ closes defun I:AutoFixAtts