幻覺，全是幻覺 发表于 2013-9-28 11:16:16

十字坐标任意改变角度

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

hihand2000 发表于 2013-10-3 11:16:37

(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 发表于 2014-11-22 23:55:00

cad自带的UCS也能实现吧

m122631985 发表于 2014-12-5 23:07:44

对啊 cad ucs可以实现
页: [1]
查看完整版本: 十字坐标任意改变角度