请指教一下这个程序的数据类型为何出现错误

476966986 · 发表于 2011-11-11 11:00:55

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

本帖最后由 476966986 于 2011-11-11 11:18 编辑

(defun c:62-12()
  (setq cen (getpoint "\n请输入中心点的位置"))
(setq rr1 (getdist cen "\n大圆半径: "))
(setq rr2 (getdist cen "\n小圆半径: "))
(setq nn (getint "\n重复几次 <8>: "))
(if (null nn) (setq nn 8))
  (setq p4 (polar cen 0 rr1))
  (setq ang (/ pi 0.5 nn))
  (setq rr3 (/ rr2 2))
  (setq hh (sqrt (- (* rr1 rr1)(* rr3 rr3))))
  (setq ang1 (* 2 (atan (/ rr3 hh))))
  (setq p1 (polar cen -ang1 rr1))
  (setq p2 (polar cen ang1 rr1))
  (setq p3 (polar cen (- ang ang1) rr1))
  (command "pline" p1 "a" "ce" p4 p2 "ce" cen p3 "")
  (command "array" (entlast) "" "p" cen nn 360 "y")
  (prin1)
  )

476966986 · 发表于 2011-11-11 11:08:21

1# 476966986
刚才这个程序是出了点小问题，就是-ang1身上，我重新改变了一下格式就可以正常运行了，不好意思，低级错误希望大家也不要犯哦

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

[已解决] 请指教一下这个程序的数据类型为何出现错误

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。