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

lei6699 · 发表于 2004-4-1 16:56:00

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

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

bipbxwdg30h.JPG

lei6699 · 发表于 2004-4-1 17:46:00

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

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:xdquieq0zrf.lsp
下载次数:0 文件大小:10.98 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

meflying · 发表于 2004-4-1 17:52:00

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

meflying · 发表于 2004-4-1 17:59:00

在程序中是用弧度制的，即使是command，除非command中使用字符串，如：(command "_.line" '(0 0) "@12

5euxoni1gfs.JPG

lei6699 · 发表于 2004-4-1 18:01:00

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

lei6699 · 发表于 2004-4-1 18:12:00

(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 "")
以前我也遇到过这样的问题,这是我解决的办法,不知道对你有没有班帮助...

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

发表回复

精选推荐