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

janekou

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

1. (defun C:15()
   , _' X' d5 a9 V* a: ^) U/ b
2. (setq pa (getpoint "请输入三角形左下的点:"
   
3. (setq ww (getreal "\n 输入底边长度:"
   
4. (setq kk (getreal "\n 输入斜边长度:"
   
5. (setq pb (polar pa 0 ww))
   4 V& t9 {' P7 j- u' i( t: [
6. (setq hh (sqrt (- (* kk kk) (* ww ww))))
   ( R9 J7 G' q0 y, O. `
7. 
   
8. (command "pline" pa pb pc "c"
   
9. (princ "\n 另一边hh的长度=" (princ hh)
   $ z# ~; j0 y4 j& \0 q5 W
10. (setq ang_pb (atan (/ hh ww)))
    
11. (setq ang_pb (* atan_pb (/ 180 pi)))
    5 C. y. y- }1 d2 q
12. (setq ang_pc (- 90 ang_pb))
    9 y3 B# m* U! @4 w4 A& J
13. (princ "\n pb的夹角="
    
14. (princ ang-pb)
    " q. [9 ]! f+ x) d" W/ g
15. (princ "度"
    
16. (princ "\n pc的夹角="
    * H/ D6 Q# \( r
17. (princ ang-pc)
    
18. (princ "度"
    : y, U9 D! m  d) H, T* W# y# {
19. )
    / p, G0 l2 h8 E4 G$ E
20. (prompt "\n 自动完成 "
    
21. (prin1)
    

复制代码

SunVei

(setq ang_pb (* atan_pb (/ 180 pi)))
% M3 N2 b' o  \(princ ang-pb)
(princ ang-pc)
9 W1 j- c$ }+ c0 b==============

1. 
   , Y  x! M1 d+ F9 c, N0 p6 K! a! l
2. (defun C:15 ()
   
3.   (setq pa (getpoint "请输入三角形左下的点:"))
   
4.   (setq ww (getreal "\n 输入底边长度:"))
   
5.   (setq kk (getreal "\n 输入斜边长度:"))
   
6.   (setq pb (polar pa 0 ww))
   
7.   (setq hh (sqrt (- (* kk kk) (* ww ww))))
   3 \1 i- g0 u9 h
8.   (setq pc (polar pa (/ pi 2) hh))
     }; D3 E" k8 }2 K+ L8 r
9.   
   - @% K+ O* ~! f0 D. Q9 E( M! a2 {
10.   ;; (setvar "OsMode" 0)  ;捕捉
    
11.   (command "pline" pa pb pc "c")
    
12.   (princ "\n 另一边hh的长度=")
    + L  t& [- E6 ]% X3 N
13.   (princ hh)
    
14.   (setq ang_pb (atan (/ hh ww)))
    
15.   (setq ang_pb (* ang_pb (/ 180 pi)))
    0 e& V2 v; ]; _0 y* @
16.   (setq ang_pc (- 90 ang_pb))
    
17.   (princ "\n pb的夹角=")
    
18.   (princ ang_pb)  (princ "度")
    ; P1 K* e2 Y0 X, H. g
19.   (princ "\n pc的夹角=")  (princ ang_pc)
    1 x2 L. ]* @9 t2 b
20.   (princ "度")
    1 W1 i' h) c6 G, R( O- ~) p  j
21. )
    $ O2 q" M% K* ^
22. (prompt "\n 自动完成 ")
    * `$ A3 ]/ W  K) d! N7 H7 o6 \4 I  f
23. (prin1)
    7 A# g$ }+ y: o  m( A8 n& q7 ]

复制代码

janekou

2# SunVei
2 ~- k* ^, R( ?$ r谢谢啦，确实可行啊，麻烦可以指点下出现什么问题了么？

SunVei

請比對您的代碼....
6 l# |& f# B1 ?% [) nxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
( U, y, c5 L: r2 |% ~, u/ L(setq ang_pb (* atan_pb (/ 180 pi)))
(princ ang-pb)
8 N- v$ H: M$ F, j6 m(princ ang-pc)
- A. C3 g, ~' Q6 }4 T, hxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
8 Q5 r9 ]! L3 N2 O2 T) F+ }0 z* T9 u
  j, J4 Q1 Z+ o2 p* G

woaishuijia

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

janekou

5# woaishuijia

4 K7 O2 L3 Y* K+ c呃。太粗心了，谢谢两位高人啦。

janekou

5# woaishuijia
再弱弱的问一下，怎么最后的一行有两个“度”的呢？
) N9 O- G& o7 ]! G& ~9 X% ?6 t pb的夹角=41.4096度
* m. ^- b" R; E8 o  _ pc的夹角=48.5904度"度"

woaishuijia

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

1. (defun C:15 ()
   
2.   (setq pa (getpoint "请输入三角形左下的点:"))
   
3.   (setq ww (getreal "\n 输入底边长度:"))
   & r' I5 O- @1 p: \' P& b$ K( u
4.   (setq kk (getreal "\n 输入斜边长度:"))
   
5.   (setq pb (polar pa 0 ww))
   ( d% g0 R1 n; r+ p/ Q
6.   (setq hh (sqrt (- (* kk kk) (* ww ww))))
   " X4 V7 W9 |" B$ f5 u
7.   (setq pc (polar pa (/ pi 2) hh))
   2 v5 S' j- h8 v
8.   
   4 J8 g! [% q5 |3 j% V
9.   ;; (setvar "OsMode" 0)  ;捕捉
   4 ?! ^4 l, Y7 B( O2 J
10.   (command "pline" pa pb pc "c")
    
11.   (princ "\n 另一边hh的长度=")
    
12.   (princ hh)
    
13.   (setq ang_pb (atan (/ hh ww)))
    + Q9 ?1 c) c7 L- ~
14.   (setq ang_pb (* ang_pb (/ 180 pi)))
    # H5 }3 h) ~4 M0 k  C4 S" S
15.   (setq ang_pc (- 90 ang_pb))
      e& Q6 o( ?3 ^; @7 O  M3 u" ?, y
16.   (princ "\n pb的夹角=")
    4 o) Q" T5 X% m/ ~7 F& v- N, i
17.   (princ ang_pb)  (princ "度")
    4 P& Y% U6 T8 N
18.   (princ "\n pc的夹角=")  (princ ang_pc)
      G: S9 V9 Q* i
19.   (princ "度")
    
20.   (princ)
    
21. )
    
22. (prompt "\n 自动完成 ")
    9 k0 _7 j1 }4 G) J
23. (prin1)

复制代码

janekou

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

janekou

2# SunVei   
9 Y( c; Z( g1 }! |  ?5 j7 P, ^;; (setvar "OsMode" 0)  ;捕捉
$ ^+ `, Y, _$ a请问下一开始的两个分号起什么作用呢？应该可以去掉吧？

SunVei

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

  A- \" w6 n% O9 {& u/ l本例 暂不关闭捕捉
实务上建议 关闭捕捉

janekou

11# SunVei
0 n: \7 y3 p6 ~- U那请问有没有方法可以临时关闭捕捉呢，就是在这个程序运行的时候关闭，如果运行后就恢复？

SunVei

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

janekou

6 f  c# z; L3 {, a- ]) K
: c! s% b3 s) J! b# O2 G+ N: ?看了后，还是有点不懂，请问两个分号也是注释？
而那个703  (setvar "osmode" 703)是什么意思呢？（如果是0的话应该就是取消全部捕捉了吧）
还有是怎么设置只临时捕捉的呢？

1. (defun c:an (/ aa la lb lc sz area lh bb ah ang1 cc )     ;将命令定义为an
   " M5 ^1 f7 `3 G) b
2. 
   
3. (setq Osnapmode (getvar "OSMODE")                       ;获得当前捕捉模式
   
4. (setvar "OSMODE" 703 )                                    ;设置程序中需要的模式
   - L6 }: F- {% M8 _8 r
5.      
   
6.          
   ; k: y+ W, L/ w( o: e( A' V
7. (setq aa (getpoint "选取左下角点:")
   / F; w, O' H2 w% ^- \
8. (setq la (getreal "\n 输入底边A的长度:")
   ' I4 i* [) k$ \
9. (setq lb (getreal "\n 输入B的长度:")
   ' p7 f: Q4 C5 r& n
10. (setq lc (getreal "\n 输入C的长度:")
    
11. ;貌似下面的叫海伦公式
    
12. (setq sz (/ (+ la lb lc) 2))
    
13. (setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
    
14. (setq lh (/ (* 2 area) la))
    
15. 
    $ A9 f! v% s* S
16. (setq bb (polar aa 0 la))
    
17. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    / _* P% E+ y+ N9 ^0 ~- k" X  k
18. (setq ang1 (atan (/ lh ah)))       ;ang1弧度值
    # X+ o; [2 T0 o- q; L
19. (setq cc (polar aa ang1 lc))
    
20. (command "pline" aa bb cc "c"
    8 Z! v1 s8 n3 Z
21. ;显示相关信息,可省略
    
22. (setq ang1 (* ang1 (/ 180 pi)))    ;ang1弧度值转换为十进制角度值
    ! H+ Z& L, }0 f% B5 G* W" c0 S
23. (princ (strcat "底角度数=" (rtos ang1) "度")
    
24. ;上一步或者可用(princ "底角度数=" (princ ang1) (princ "度"
    - Y0 n. S% j8 K( X) G* g: K, y1 m
25. 
    ! K  C6 I2 K! R7 O! `& B4 H; u8 C' M
26. (setvar "OSMODE" Osnapmode)                                ;恢复初始状态  
    
27. 
    # {5 \9 c2 E- A. G6 q8 ~
28. (prin1)
    ) w0 U" v3 u3 |( h8 N. r  p8 d3 a
29. )
    7 }* L6 _: X( G  S1 ~0 ~' P' g
30. (prompt "哈哈，入门级的水平啊，见笑了"
    % Q5 R1 M9 |/ o7 O
31. (prin1)

复制代码

貌似这样插入有问题~~