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

janekou

) H# ~5 D6 k# I* }, V6 H# c  ?1 C
程序怎么出来是一条直线呢？书本也是这样的，谢谢各位指点一下

1. (defun C:15()
   
2. (setq pa (getpoint "请输入三角形左下的点:"
   
3. (setq ww (getreal "\n 输入底边长度:"
   " ^0 }: y$ d. ?/ a! j' |! U+ A( i
4. (setq kk (getreal "\n 输入斜边长度:"
   
5. (setq pb (polar pa 0 ww))
   / Q. c; A9 Z2 q- r9 e5 h) q
6. (setq hh (sqrt (- (* kk kk) (* ww ww))))
   
7. 
   9 u: p/ k1 [3 b3 l4 C0 [# \
8. (command "pline" pa pb pc "c"
   
9. (princ "\n 另一边hh的长度=" (princ hh)
     f! q& W, T& w! r* \# D( g
10. (setq ang_pb (atan (/ hh ww)))
    + k: R! U) Q+ S8 L
11. (setq ang_pb (* atan_pb (/ 180 pi)))
    : Z" w2 Y. }# W
12. (setq ang_pc (- 90 ang_pb))
    
13. (princ "\n pb的夹角="
    
14. (princ ang-pb)
    " W- e) D& ~: `! W7 q$ d2 D
15. (princ "度"
    
16. (princ "\n pc的夹角="
    
17. (princ ang-pc)
    
18. (princ "度"
    + M' \/ R3 A  d0 p# q& o+ k
19. )
    
20. (prompt "\n 自动完成 "
    
21. (prin1)
    

复制代码

SunVei

(setq ang_pb (* atan_pb (/ 180 pi)))
- T; m- a/ i9 A" |(princ ang-pb)
(princ ang-pc)
==============

1. 
   + S  \7 Q) V3 ^0 P8 g
2. (defun C:15 ()
   
3.   (setq pa (getpoint "请输入三角形左下的点:"))
   
4.   (setq ww (getreal "\n 输入底边长度:"))
   6 o" ?$ o) p6 F, c2 Q
5.   (setq kk (getreal "\n 输入斜边长度:"))
   
6.   (setq pb (polar pa 0 ww))
   3 f0 A$ K. b& g/ n
7.   (setq hh (sqrt (- (* kk kk) (* ww ww))))
   6 E' _( Y# O4 }: G% J) N; t
8.   (setq pc (polar pa (/ pi 2) hh))
   
9.   
   
10.   ;; (setvar "OsMode" 0)  ;捕捉
    4 F4 ^4 g/ O) ]7 \1 i+ G% ]# I
11.   (command "pline" pa pb pc "c")
    1 E( ^, g) ~( {1 |# C' v7 g
12.   (princ "\n 另一边hh的长度=")
    * g: S& M( ]! E5 a+ c
13.   (princ hh)
    ' g- p" J% O: Z) c. t$ _
14.   (setq ang_pb (atan (/ hh ww)))
    
15.   (setq ang_pb (* ang_pb (/ 180 pi)))
    
16.   (setq ang_pc (- 90 ang_pb))
    
17.   (princ "\n pb的夹角=")
    + D7 q& M1 i% |5 i6 u+ A- M; R
18.   (princ ang_pb)  (princ "度")
    
19.   (princ "\n pc的夹角=")  (princ ang_pc)
    8 ?$ u( @8 G; V, O2 W- e
20.   (princ "度")
    
21. )
    
22. (prompt "\n 自动完成 ")
    
23. (prin1)
    4 m! j* e" q+ A

复制代码

janekou

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

SunVei

請比對您的代碼....
9 |5 B3 ~2 P  o9 I+ B9 V1 Pxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
(setq ang_pb (* atan_pb (/ 180 pi)))
1 }4 P9 D& O3 ?. s9 \$ i(princ ang-pb)
(princ ang-pc)
! e( n; q5 c, I6 g3 z4 ?1 k( F8 @xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
: z% j1 m9 C  L- s

woaishuijia

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

janekou

5# woaishuijia

- D* S7 p! p2 y' _0 u4 R- H呃。太粗心了，谢谢两位高人啦。

janekou

5# woaishuijia
$ C" b. }; ~1 ^$ P5 Q/ l6 _再弱弱的问一下，怎么最后的一行有两个“度”的呢？
& X; P2 c: k" \3 w: c pb的夹角=41.4096度
pc的夹角=48.5904度"度"

woaishuijia

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

1. (defun C:15 ()
   
2.   (setq pa (getpoint "请输入三角形左下的点:"))
   - n2 l! C# \9 Q3 i! V8 u
3.   (setq ww (getreal "\n 输入底边长度:"))
   + F& J0 h; r" H  Y- B9 ~
4.   (setq kk (getreal "\n 输入斜边长度:"))
   : o$ p7 q: `+ h0 `9 K5 s' ]% t
5.   (setq pb (polar pa 0 ww))
   
6.   (setq hh (sqrt (- (* kk kk) (* ww ww))))
   
7.   (setq pc (polar pa (/ pi 2) hh))
   . H5 {2 `5 K. P
8.   
   ) q5 H7 D6 N! K6 t9 H% P) H; f
9.   ;; (setvar "OsMode" 0)  ;捕捉
   
10.   (command "pline" pa pb pc "c")
    / [) U. ]- V/ f% [' {& ^  K* H) E
11.   (princ "\n 另一边hh的长度=")
    
12.   (princ hh)
    : l% U7 x, ~1 i5 [, G: \$ |
13.   (setq ang_pb (atan (/ hh ww)))
    
14.   (setq ang_pb (* ang_pb (/ 180 pi)))
    - Q% `* M! ?! N- {4 z! t" M! P- P
15.   (setq ang_pc (- 90 ang_pb))
    . s) n, e) Y$ T. {( \1 K* r$ _" ^. k% w
16.   (princ "\n pb的夹角=")
    0 v8 }9 r' J1 _8 }: d% A
17.   (princ ang_pb)  (princ "度")
    
18.   (princ "\n pc的夹角=")  (princ ang_pc)
    / s) Z, C; R% G3 l4 A; {; V
19.   (princ "度")
    7 w; B' \/ R" V+ g& K8 g$ ]
20.   (princ)
    
21. )
    
22. (prompt "\n 自动完成 ")
    
23. (prin1)

复制代码

janekou

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

janekou

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

SunVei

Lisp .....
1 f: X* G' P  ^4 _# A+ F( G- x列首见 ; ---> 跳过这一列

本例 暂不关闭捕捉
2 B, I* ~7 e" R7 J$ C实务上建议 关闭捕捉

janekou

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

SunVei

现成的参考
! Y/ l6 [3 b5 p* ?* S: G: Xhttp://www.google.com/search?as_ ... +%E6%90%9C%E5%B0%8B

janekou

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

1. (defun c:an (/ aa la lb lc sz area lh bb ah ang1 cc )     ;将命令定义为an
   * A! P, W. |. _+ f* E; M! y; X
2. 
   
3. (setq Osnapmode (getvar "OSMODE")                       ;获得当前捕捉模式
   
4. (setvar "OSMODE" 703 )                                    ;设置程序中需要的模式
   7 M9 s0 p9 D; n
5.      
   
6.          
   8 Q) F6 Q# ^7 @# z- Q1 d
7. (setq aa (getpoint "选取左下角点:")
   0 P5 n/ n/ J7 c% ?" z& G& ?
8. (setq la (getreal "\n 输入底边A的长度:")
   
9. (setq lb (getreal "\n 输入B的长度:")
   
10. (setq lc (getreal "\n 输入C的长度:")
      q& Z5 U+ S- Y+ T: T) a
11. ;貌似下面的叫海伦公式
    : r+ X0 Z. B* Y1 X4 T8 s* N
12. (setq sz (/ (+ la lb lc) 2))
    
13. (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
    
14. (setq lh (/ (* 2 area) la))
    $ ?  _7 ^- l0 t$ L- M; m) s
15. 
    
16. (setq bb (polar aa 0 la))
    
17. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    
18. (setq ang1 (atan (/ lh ah)))       ;ang1弧度值
    
19. (setq cc (polar aa ang1 lc))
    3 L9 a7 g( R; U' Q. W7 Q( s% q8 a
20. (command "pline" aa bb cc "c"
    
21. ;显示相关信息,可省略
    
22. (setq ang1 (* ang1 (/ 180 pi)))    ;ang1弧度值转换为十进制角度值
    
23. (princ (strcat "底角度数=" (rtos ang1) "度")
    
24. ;上一步或者可用(princ "底角度数=" (princ ang1) (princ "度"
    
25. 
    3 k6 L+ |& h! B; [0 @
26. (setvar "OSMODE" Osnapmode)                                ;恢复初始状态  
    & p5 E- S# j0 e# ~
27. 
    
28. (prin1)
    $ a5 c5 N5 |: C) y$ n3 k9 B
29. )
    * ~& T8 H& P) U7 a( m8 E0 s1 h
30. (prompt "哈哈，入门级的水平啊，见笑了"
    # \# v$ x& d8 P5 d1 q* ~  [
31. (prin1)

复制代码

貌似这样插入有问题~~