[求助]：字都保持一致方向

szx025 · 发表于 2007-3-20 08:24:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:szx (/ l1 l2 ku)
   (setq olderr *error*
         *error* at_err)
   (setq l1 (getpoint "\nPick point:"))
   (setq l2 (getpoint l1 "\nPick point:"))
   (setq ku (angtos (angle l1 l2)))
   (setvar "osmode" 0)
(command "text" "j" "bc" l1 300 ku "GGG" )
   (setvar "osmode" 33)
   (setq *error* olderr)
   (princ)
   )
这是一个画线并写字的程序,线条从右向左画和线条从左向右画,写出的字刚好相反(上下也是),我想让写出的字都保持一致方向,该如何修改?请高手指导,不胜感激

Underway · 发表于 2007-3-20 09:14:01

我的方式 ....
(setq ku (angle l1 l2))
(if (> ku (/ Pi 2))
(setq ku (- ku Pi))
)
(setq ku (angtos ku))

szx025 · 发表于 2007-3-20 09:36:36

谢谢楼上的,问题解决

TLHMQH · 发表于 2007-3-21 00:15:45

从左上往右下画，写出的字还是反相。

Underway · 发表于 2007-3-21 08:15:58

您試試這樣合用嗎?
(cond
((< ku (/ Pi 2)))
((> ku (* Pi 1.5)))
(T (setq ku (- ku Pi)))
)

zml84 · 发表于 2007-3-21 10:43:22

下面地址第28楼的代码可以解决这个问题。
http://p4.xdcad.net/forum/showth ... y=&pagenumber=3

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：字都保持一致方向

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子