任意调整十字光标角度！！！（好用）

taoyi0727

alexmai 发表于 2019-5-19 19:12
;;;UCS
(defun c:y(/ ent)
  (command "ucs" "")

不用那么复杂  这就行
;调整光标角度
(defun c:tt (/ 2p-ang ang en endata entyp line-ang text-ang)
        (defun line-ang (/ ang pt10 pt11)
                (setq pt10 (cdr (assoc 10 endata)))
                (setq pt11 (cdr (assoc 11 endata)))
                (setq ang (angle pt10 pt11))
        )
        (defun text-ang (/ ang)
                (setq ang (cdr (assoc 50 endata)))
        )
        (defun 2p-ang (/ ang)
                (setq ang (getangle "\n输入角度值<0>："))
        )
        (setq en (nentselp "\n选取线文字或图块<输入角度>:"))
        (if (/= en nil)
                (progn
                        (setq endata (entget (car en)))
                        (setq entyp (cdr (assoc 0 endata)))
                        (cond
                                ((= entyp "LINE") (setq ang (line-ang)))
                                ((= entyp "TEXT") (setq ang (text-ang)))
                                ((= entyp "MTEXT") (setq ang (text-ang)))
                                (t (setq ang (2p-ang)))
                        )
                )
                (setq ang (2p-ang))
  )
        (if ang
                (setvar "snapang" ang)
                (setvar "snapang" 0)
        )
        (princ)
)

alexmai

taoyi0727 发表于 2019-5-19 22:01
不用那么复杂  这就行
;调整光标角度
(defun c:tt (/ 2p-ang ang en endata entyp line-ang text-ang)
...

使用我的方法更便捷

输入角度更本就是鸡肋，很少会输入的，两点定角度还是可以的
你测试过，pline线？

最好能对块内的“线”点选，因为块的“角度”是不可靠的

taoyi0727

alexmai 发表于 2019-5-20 09:31
使用我的方法更便捷

输入角度更本就是鸡肋，很少会输入的，两点定角度还是可以的

不支持多线段
块内的直线和文字都可以用