[求助]text角度问题。。。

lei6699

我画了一条直线pt1 pt2，然后用 (command "ucs" "n" "ob" ss1)建立该直线的坐标系，
这是我想写 “世界”坐标系的text，角度用(setq ang (- (* (/ ang pi) 180)))
可同样三个图，完全copy过去，（改了4个别的参数）


可是只有第一个图是正确的，已经一下午了。。。。
感觉要去复习初中的几何知识了。。。

不多说了，感谢多多~~
飞哥~~

lei6699

对不起，忘记了，下面是程序。。。。

meflying

好象看不出你说的问题是什么，从头到尾没见你说怎样是不对的，要怎样才对？（是文字倒了不对吗？）

meflying

在程序中是用弧度制的，即使是command，除非command中使用字符串，如：(command "_.line" '(0 0) "@12<30")这样才用角度制，因为这相当于在命令行中输入此字符串，否则就是要通过LISP求值的，而LISP求值采用的就是弧度制


将


(setq ang (- (* (/ ang pi) 180)))改为


(setq ang (- ang pi))


看看是不是你要的结果

lei6699

就是想要在世界坐标系下看到正的文字。。。

可是下面的两个，一个画剪力，一个画轴力，
好比最左边的那根杆，应该是从下往上画的，角度应该是90度，ang=pi/2
在它的坐标系下，我的文字写出来是转了90度的，如果按照我写的(setq ang (- (* (/ ang pi) 180)))，是-90度，text顺时针转90度，应该是水平的文字。。。。
我真的想不出办法 把text改成ang，
(command "_.text"
(list len (* (cadr pt4) 1.4))
(* ww 4)
ang
ang
)
打出来的角度，也是-90度，可就是倒的。。。
可第一个图，是正的。。。

lei6699

飞哥，你的方法，只是把文字翻了个180，效果跟不转换是差不多的。。。

ljcgq

(if (or (and (> qdx zdx) (= qdy zdy )) 起点---(qdx,qdy),终点---(zdx,zdy)
(and (> qdy zdy) (> qdx zdx))
(and (> qdy zdy) (= qdx zdx ))
(and (> qdx zdx) (> zdy qdy))
)
(setq zd (cdr qd1) qd(cdr zd1) )
)
(setq ang (angle qd zd ))
(setq a (+ a 1))
;(command "text" "j" "bc" md zg (/ (* ang 180) pi) a "")
(setq md1(polar md (- ang (/ pi 2)) (/ zg 4)))
(command "text" "j" "tc" md1 zg (/ (* ang 180) pi) cd "") 以前我也遇到过这样的问题,这是我解决的办法,不知道对你有没有班帮助...