;;;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)
) taoyi0727 发表于 2019-5-19 22:01
不用那么复杂这就行
;调整光标角度
(defun c:tt (/ 2p-ang ang en endata entyp line-ang text-ang)
...
使用我的方法更便捷
输入角度更本就是鸡肋，很少会输入的，两点定角度还是可以的
你测试过，pline线？
最好能对块内的“线”点选，因为块的“角度”是不可靠的 alexmai 发表于 2019-5-20 09:31
使用我的方法更便捷
输入角度更本就是鸡肋，很少会输入的，两点定角度还是可以的
不支持多线段
块内的直线和文字都可以用
页:
1
[2]