请问下这个程序出什么问题了

janekou · 发表于 2011-5-21 21:43:17

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

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

x

本帖最后由 janekou 于 2011-5-23 07:32 编辑

程序怎么出来是一条直线呢？书本也是这样的，谢谢各位指点一下

(defun C:15()5 o+ o: ^3 n: N" F& O# A) ?/ I
(setq pa (getpoint "请输入三角形左下的点:"
) v3 {7 V, p% D5 y6 y0 I
(setq ww (getreal "\n 输入底边长度:"% o; M1 O( x w" b/ Y. e6 l4 V
(setq kk (getreal "\n 输入斜边长度:"
' g& R+ ^+ n" M6 F N1 o
(setq pb (polar pa 0 ww))% D P0 u& m" H5 m$ O
(setq hh (sqrt (- (* kk kk) (* ww ww))))8 k: U/ g( \5 l& h# X
2 r" f, G2 m4 d, O: R, j
(command "pline" pa pb pc "c"
" |% _! A! T/ n3 o9 m' w9 S% {
(princ "\n 另一边hh的长度=" (princ hh)
* Y3 {9 Y0 b1 A# p+ X8 z
(setq ang_pb (atan (/ hh ww)))
# u F3 ~$ ^7 u- h$ j
(setq ang_pb (* atan_pb (/ 180 pi))) 1 q& G' x9 C! @, d* H+ Y i( c; D
(setq ang_pc (- 90 ang_pb))
( Q0 }3 u* P# s' n v6 @, o
(princ "\n pb的夹角="
' q- r& o7 Q/ s/ Q* K
(princ ang-pb)
; M! A! F! _5 f, x+ q G$ P
(princ "度"! q3 R2 s6 T8 c8 y# ]$ K* y
(princ "\n pc的夹角=" + D2 }) H+ x: A$ D) D7 u* Z' y) }9 e
(princ ang-pc) / k0 B+ c8 ]6 @ J, N9 O8 ^' l) J
(princ "度"
# i, h6 K/ ?+ K4 K2 R* u( z: Z5 W
)' J4 Y) r: P; F1 E8 z0 ^) V+ k
(prompt "\n 自动完成 "
/ m1 I6 R" ?0 t2 O; B
(prin1)
7 e8 Y1 P; I0 I8 R

复制代码

SunVei · 发表于 2011-5-21 22:26:43

(setq ang_pb (* atan_pb (/ 180 pi)))
(princ ang-pb)
(princ ang-pc)
==============

- b" z/ o. @1 A% ]: h9 Y- @
(defun C:15 ()
5 n9 V" |5 E7 S' E" B6 J" G
(setq pa (getpoint "请输入三角形左下的点:"))
6 Y7 K& n9 H, k9 d
(setq ww (getreal "\n 输入底边长度:"))6 X0 W3 c) d. _- ?, f
(setq kk (getreal "\n 输入斜边长度:"))
: ?7 F& L9 V: t& j
(setq pb (polar pa 0 ww))
* |" q7 L- U: j; F5 [- C
(setq hh (sqrt (- (* kk kk) (* ww ww))))
7 C( [$ @3 J( C
(setq pc (polar pa (/ pi 2) hh))9 z! B3 |6 U1 `( o6 q4 M& c
: ^/ U( z# o* I4 ^# R
;; (setvar "OsMode" 0) ;捕捉5 Y- y; c4 q1 r: v2 B
(command "pline" pa pb pc "c")
9 c! J# y A9 d8 l- }9 v4 G8 t
(princ "\n 另一边hh的长度=")
' l) b1 w! C) q( a) y
(princ hh), A3 {: L7 V9 ?# d0 p# n( x# c% x
(setq ang_pb (atan (/ hh ww)))6 p; S+ U1 f4 X# s
(setq ang_pb (* ang_pb (/ 180 pi)))' k8 V( l; t! U w& N
(setq ang_pc (- 90 ang_pb)) v7 B6 Y! `' m& F8 Y8 D3 q" m4 q
(princ "\n pb的夹角="), s; c8 t$ [, V9 C
(princ ang_pb) (princ "度") o' |! U: X) o
(princ "\n pc的夹角=") (princ ang_pc)% q4 v6 e8 Z$ [7 q7 b, Q$ @# n' ~
(princ "度")' g7 y. F$ k0 _" \( Y. m+ v
)( }: f# b8 |; u
(prompt "\n 自动完成 ")
6 g0 Y }4 h. N9 T: o2 v
(prin1)0 o" a5 D3 S$ [/ X

复制代码

janekou · 发表于 2011-5-22 14:24:01

2# SunVei
谢谢啦，确实可行啊，麻烦可以指点下出现什么问题了么？

SunVei · 发表于 2011-5-22 14:50:56

請比對您的代碼....
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
(setq ang_pb (* atan_pb (/ 180 pi)))
(princ ang-pb)
(princ ang-pc)
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

woaishuijia · 发表于 2011-5-22 18:06:25

缺少第7行(计算pc的那一行)

janekou · 发表于 2011-5-22 20:35:25

5# woaishuijia

呃。太粗心了，谢谢两位高人啦。

janekou · 发表于 2011-5-22 23:53:16

5# woaishuijia
再弱弱的问一下，怎么最后的一行有两个“度”的呢？
pb的夹角=41.4096度
pc的夹角=48.5904度"度"

woaishuijia · 发表于 2011-5-23 02:55:58

按lisp的规矩,函数运行结束后会显示函数的返回值,也就是最后的结果.具体到这个例程,就是最后一行(princ "度")的结果:显示一个字符"度"
在自定义函数的最后一个右括号之前添加一行(princ),函数的返回值就成为空值了,就不会有多余的显示.

(defun C:15 ()
% _" h( h3 t2 u9 y9 m8 c
(setq pa (getpoint "请输入三角形左下的点:"))
; |& u& v) w3 b
(setq ww (getreal "\n 输入底边长度:"))2 m! }+ i( @" [# L D! R( r
(setq kk (getreal "\n 输入斜边长度:")), T2 W* D5 k$ E4 W
(setq pb (polar pa 0 ww))# x) T' b5 _8 b$ \
(setq hh (sqrt (- (* kk kk) (* ww ww)))). b% q) Z# H) n! b& u8 N" y$ Z7 o
(setq pc (polar pa (/ pi 2) hh)) J1 |6 |( \) Z" k* F1 X6 J
1 f3 v, q3 A4 J( F
;; (setvar "OsMode" 0) ;捕捉& Q3 l+ u7 c. g8 N+ {4 h* U' ~
(command "pline" pa pb pc "c")
2 |5 N2 w( e w6 J9 u3 ^& a
(princ "\n 另一边hh的长度=")
" T/ J5 P. A+ u$ H A& v6 c/ W
(princ hh)
$ t& M. v, A0 U9 j+ Q
(setq ang_pb (atan (/ hh ww)))
" r) O1 J& f- M0 e# W6 u
(setq ang_pb (* ang_pb (/ 180 pi)))8 ]) K* Z% E8 }5 ~
(setq ang_pc (- 90 ang_pb))" k: m) I, |$ Z6 Z
(princ "\n pb的夹角=")
$ m4 v4 z/ q6 D4 a$ m, d. w
(princ ang_pb) (princ "度")- _2 K9 j6 K5 [1 \: F
(princ "\n pc的夹角=") (princ ang_pc)5 A. l+ _$ i& i
(princ "度"). ~+ d3 _: L; L- T1 x1 N
(princ)
s) [) W$ L6 r3 L
)
B% G. y" n W7 \, ~& U- t
(prompt "\n 自动完成 ")% L% m+ z; Z: Y
(prin1)

复制代码

janekou · 发表于 2011-5-23 07:31:56

8# woaishuijia
都这么晚了，版主不睡啊，辛苦了，问题解决

janekou · 发表于 2011-5-27 13:19:34

2# SunVei
;; (setvar "OsMode" 0) ;捕捉
请问下一开始的两个分号起什么作用呢？应该可以去掉吧？

SunVei · 发表于 2011-5-27 13:49:56

Lisp .....
列首见 ; ---> 跳过这一列

本例暂不关闭捕捉
实务上建议关闭捕捉

janekou · 发表于 2011-5-27 14:05:50

11# SunVei
那请问有没有方法可以临时关闭捕捉呢，就是在这个程序运行的时候关闭，如果运行后就恢复？

SunVei · 发表于 2011-5-27 14:11:18

现成的参考
http://www.google.com/search?as_ ... +%E6%90%9C%E5%B0%8B

janekou · 发表于 2011-5-27 16:49:23

本帖最后由 janekou 于 2011-5-27 16:52 编辑

看了后，还是有点不懂，请问两个分号也是注释？
而那个703 (setvar "osmode" 703)是什么意思呢？（如果是0的话应该就是取消全部捕捉了吧）
还有是怎么设置只临时捕捉的呢？

(defun c:an (/ aa la lb lc sz area lh bb ah ang1 cc ) ;将命令定义为an/ ]$ f( N+ E, x2 u' G
1 r* o- `* P! H8 d `5 l
(setq Osnapmode (getvar "OSMODE") ;获得当前捕捉模式% O0 F- a. E: }# O
(setvar "OSMODE" 703 ) ;设置程序中需要的模式
, w9 N- l* C* p9 |9 Z$ i
- a8 J7 L) p5 u, z
+ K& z" N# F' O) f3 J
(setq aa (getpoint "选取左下角点:")& W* K3 X* a7 q3 \
(setq la (getreal "\n 输入底边A的长度:")9 ~; w# g2 ^+ U- W
(setq lb (getreal "\n 输入B的长度:")1 B3 o; ?8 e- j- X! L
(setq lc (getreal "\n 输入C的长度:")8 ]2 `# @8 K; G6 D4 E8 e
;貌似下面的叫海伦公式# P; [8 U6 K! ]: F) l
(setq sz (/ (+ la lb lc) 2))
( J( ^% r$ G) K4 }# T+ c
(setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))& L: W* t0 F: T2 s
(setq lh (/ (* 2 area) la))& ?% g: b) w8 s5 D$ H' h
6 |. m& d: H- E( I
(setq bb (polar aa 0 la))
$ O0 }0 M$ l4 g9 H9 [4 t. k9 T3 S
(setq ah (sqrt (- (* lc lc) (* lh lh)))) 9 v( b! ~' `' }$ N5 z
(setq ang1 (atan (/ lh ah))) ;ang1弧度值# {- ~" \- ~5 O0 q& h% q3 m% _7 m
(setq cc (polar aa ang1 lc))* u2 o8 ~$ t% Z- P8 ]6 G
(command "pline" aa bb cc "c"
, H9 x- g3 X9 Q
;显示相关信息,可省略
8 T3 f M' ~" G5 O7 r, L7 X
(setq ang1 (* ang1 (/ 180 pi))) ;ang1弧度值转换为十进制角度值. v1 s e n/ {# J1 s' Z0 d- u
(princ (strcat "底角度数=" (rtos ang1) "度")
( C& \/ V- ^/ E+ @
;上一步或者可用(princ "底角度数=" (princ ang1) (princ "度"( f0 I/ U, ^1 `& P+ S* S+ A
% j3 T' S% c. N, R
(setvar "OSMODE" Osnapmode) ;恢复初始状态 `& V* f/ `. Q; q
0 @7 S& Q, u( a6 }, t9 g
(prin1)7 z) z f6 p" v$ x
)
4 l+ U! k1 R2 H' c; C# I
(prompt "哈哈，入门级的水平啊，见笑了"* S5 |" V- G5 q6 {; Y
(prin1)

复制代码

貌似这样插入有问题~~

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

通知

[已解决] 请问下这个程序出什么问题了

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

评分

浏览过的版块