十字光标角度调整

chenjian1

;;;********************************************************************1
;十字光标角度调整 Command:AC
;;;Version 1.0
(defun c:AC (/ en ang entyp pt10 pt11)
  (setq en (entsel "\n选取线、文字或图块 <0>: "))
  (if en
    (progn
      (setq endata (entget (car en)))
      (setq entyp (cdr (assoc 0 endata)))
      (cond ((= entyp "LINE") (line-ang))
            ((= entyp "TEXT") (text-ang))
            ((= entyp "INSERT") (text-ang))
            (t (2p-ang))
      )
    )
    (setq ang 0)
  )
  (setvar "snapang" ang)
  (princ
    "\n---Bye c:Ac 光标角度调整!---"
  )
  (prin1)
)

(defun line-ang        ()
  (setq pt10 (cdr (assoc 10 endata)))
  (setq pt11 (cdr (assoc 11 endata)))
  (setq ang (angle pt10 pt11))
)

(defun text-ang        ()
  (setq ang (cdr (assoc 50 endata)))
)

(defun 2p-ang ()
  (setq ang (getangle "\n输入角度值: "))
)

jionpla