浩辰暖通4-Int4的lisp程序21

crtrccrt

(defun c:hx_cbtz(/ ssl1 len i ent ed ang mark shu)
(setq mark 1)
(setq shu 0)
(while mark
  (princ "\n请选择须调整角度的层标<回车结束>: ")
  (setq ssl1 (ssget (list (cons 0 "INSERT") (cons 2 "HX_CB") (cons 8 "HX_CB") (cons -3 (list (list "HX_LGBH"))))))
  (if ssl1 (progn
        (setq len (sslength ssl1) i 0)
        (while (< i len)
                (setq ent (ssname ssl1 i))
                (setq i (1+ i))
                (setq ed (entget ent (list "*")))
                (setq ang (cdr (assoc 50 ed)))
                (cond ((= ang 0.0)
                        (setq ed (subst (cons 50 (/ pi 4.0)) (assoc 50 ed) ed))
                        )
                        (t (setq ed (subst (cons 50 0.0) (assoc 50 ed) ed)))
                )
                (entmod ed)
                (entupd ent)
        )
        (setq shu (1+ shu))
        (setq ssl1 nil)

        )
        (progn
           (setq mark nil)
           (if (/= shu 0)
                   (princ "*** 层标调整完毕 ***")
           )
        )
  )
)
  (princ)
)
(princ "已加载.")