QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
11天前
查看: 1683|回复: 1
收起左侧

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

[复制链接]
发表于 2011-11-11 11:00:55 | 显示全部楼层 |阅读模式 来自: 中国江苏泰州

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

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

x
本帖最后由 476966986 于 2011-11-11 11:18 编辑
3 W; p, ^! c3 h" o! G* w. G& L, g. ?. N9 P, v7 h* Q
(defun c:62-12()
# M3 G5 l7 w, ]! i4 ]  (setq cen (getpoint "\n请输入中心点的位置")) " k& P) F3 |) ?& m
(setq rr1 (getdist cen "\n大圆半径: "))) w$ i; W. \5 _7 i5 A
(setq rr2 (getdist cen "\n小圆半径: "))# `1 P9 _% |' Y3 j. ?
(setq nn (getint "\n重复几次 <8>: ")); I/ a7 u' H% U& ^2 Z
(if (null nn) (setq nn 8))
" Q! Q2 ^+ b4 n  (setq p4 (polar cen 0 rr1))1 E# N! I5 {$ B/ ?
  (setq ang (/ pi 0.5 nn))6 D  \8 ]$ i+ `  A+ W; b
  (setq rr3 (/ rr2 2))3 a4 L+ e* {1 X$ g
  (setq hh (sqrt (- (* rr1 rr1)(* rr3 rr3))))
* N; |' b6 ~; E6 T3 i0 I. C& c  (setq ang1 (* 2 (atan (/ rr3 hh))))2 Y, p: c& E9 ]) d7 W* B, d0 d0 }
  (setq p1 (polar cen -ang1 rr1))/ w9 C7 O* y1 @- g
  (setq p2 (polar cen ang1 rr1))
& i) }3 @. k! c* Y2 f$ g; [  (setq p3 (polar cen (- ang ang1) rr1))
& T- A3 _/ ~7 s: F+ ~  (command "pline" p1 "a" "ce" p4 p2 "ce" cen p3 "")
  f: u2 W* u- D# z" x$ s9 C& W  (command "array" (entlast) "" "p" cen nn 360 "y")6 Z* X9 u6 z, T0 g
  (prin1)
7 y& p6 d& H! |5 F1 d" P  )
 楼主| 发表于 2011-11-11 11:08:21 | 显示全部楼层 来自: 中国江苏泰州
1# 476966986 . R* x: _0 t& ^3 N- z, ]4 r
刚才这个程序是出了点小问题,就是-ang1身上,我重新改变了一下格式就可以正常运行了,不好意思,低级错误希望大家也不要犯哦
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表