十字坐标任意改变角度

幻覺，全是幻覺

求lisp   程序，把十字光标任意改换角度

hihand2000

(defun c:cca()
    (setq en(entsel))
    (setq pt(cadr en))
    (setq e1(entget (car en)))
    (if(=(cdr (assoc 0 e1)) "POLYLINE")
       (progn
             (command "explode" pt)
             (setq e1 nil)
             (setq e1 (entget(entlast)))
       )
    )
    (setq pt1(cdr (assoc 10 e1)))
    (setq pt2(cdr (assoc 11 e1)))
    (setvar "snapang" (angle pt1 pt2))
    (setvar "orthomode" 1)
    )
  
(defun c:rca()
    (setvar "snapang" 0)
    (setvar "orthomode" 0 )
    )

CCA变换坐标为你选的线坐标，rca为还原。

lengyan

cad自带的UCS也能实现吧

m122631985

对啊 cad ucs可以实现