[讨论]：两点求角度程序

三健 · 发表于 2003-3-16 23:46:32

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

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

×

(defun c:jd ()
  (setq pt1 (getpoint "\nselect a point"))
  (setq pt2 (getpoint pt1 "\nselect the next point"))
  (setq a1  (angle pt1 pt2))
  (setq a2  (angtos a1 0 4))
  (print "两点间角度为")
  (print a2)
)
怎么能使返回的角度值为一个，现在出来的返回值为两个

snsj · 发表于 2003-3-17 01:32:10

(defun c:jd ()
(setq pt1 (getpoint "\nselect a point"))
(setq pt2 (getpoint pt1 "\nselect the next point"))
(setq a1 (angle pt1 pt2))
(setq a2 (angtos a1 0 4))
(print "两点间角度为")
(print a2)
(print)
)
即可

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

[讨论]：两点求角度程序

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

相关帖子