请问下我的角度设错了吗？

janekou · 发表于 2011-5-31 13:18:21

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

x

本帖最后由 janekou 于 2011-5-31 22:12 编辑

要达到如图所示的效果，我这样的这个程序是不是p5的点出错了呢？应该怎样改回来，谢谢指点。
4PX_HRJ1ZW[OZ1_NB@RA44W.jpg

(defun c:ttt ()
% \2 l& w8 `6 {7 H# z
(setq Osnap (getvar "osmode")
+ a, y0 s4 z+ X* S$ ^3 x
(setvar "osmode" 0)7 m6 O1 [5 m' ?/ ^6 v
(setq basept '(50 50)) ;(getpoint"输入基准点:" )
. r7 ]8 f, E* C8 W2 s0 t9 g* M
(setq D 10) ;(getreal"输入D的长度:" )3 \! d9 U+ H! |- |
(setq w1 20) ;(getreal"输入w1的长度:" )
7 Z; [+ Q* ^" w/ C# q
(setq w2 22) ;(getreal"输入w2的长度:" )$ ]' t' j' K: z: Q/ |3 m: P
(setq B 8) ;(getreal"输入B的长度:" )
. a3 B# Y d) I" {0 C' p
(setq A 15) ;(getreal"输入A的角度:" )- O: B# m, _! ^+ i+ y7 ]
8 ?& o% u8 c; w5 b4 O) B$ @* S
(setq p4 (polar basept (/ pi 2) (/ B 2 )))
6 j1 l. U/ B8 c6 t t
(setq p3 (polar p4 0 w2 ))+ H% j1 o1 L3 l( @( i* l
(setq p2 (polar basept 0 w2 ))7 a: [ ]1 W5 |) d
(setq p7 (polar basept pi w1 ))' S$ [% N7 T0 `+ f% u( O
(setq p6 (polar p7 (/ pi 2) (/ D 2 )))
- N- N' `' ~1 A, H! c
(setq p5 (polar p6 (* pi (/ A 180)) (/ w1 (cos A))))
- Z' ]* N% S8 W$ |# P; ]- V
; O( [) D: v6 A0 v3 k
(command "pline" p7 p6 p5 p4 p3 p2 "". y7 o* R0 `* W% K) v
(setvar "osmode" osnap)
" E) S1 l; j- B7 `; L; h# d: t' y
)

复制代码

SunVei · 发表于 2011-5-31 15:06:01

本帖最后由 SunVei 于 2011-5-31 15:07 编辑

复制代码

janekou · 发表于 2011-5-31 22:12:36

2# SunVei

谢谢，大概知道问题出在什么地方了。

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

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

通知