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

janekou

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

1. (defun C:15()
   ! ~2 V5 `# z9 o* d3 l
2. (setq pa (getpoint "请输入三角形左下的点:"
   + I+ h6 J7 r8 g2 C9 U
3. (setq ww (getreal "\n 输入底边长度:"
   * I2 ^( V5 [" X
4. (setq kk (getreal "\n 输入斜边长度:"
   4 T, e6 z% o) w
5. (setq pb (polar pa 0 ww))
   
6. (setq hh (sqrt (- (* kk kk) (* ww ww))))
   4 ?- m4 f5 {! W( C
7. 
   
8. (command "pline" pa pb pc "c"
   
9. (princ "\n 另一边hh的长度=" (princ hh)
   
10. (setq ang_pb (atan (/ hh ww)))
    
11. (setq ang_pb (* atan_pb (/ 180 pi)))
      g. b& \3 h/ n7 _3 {
12. (setq ang_pc (- 90 ang_pb))
    
13. (princ "\n pb的夹角="
    ' s4 d' ]* k6 o3 x  M
14. (princ ang-pb)
    
15. (princ "度"
    
16. (princ "\n pc的夹角="
    4 g. x( y. N8 B" y9 C
17. (princ ang-pc)
    " e& c( r) ]: @! o
18. (princ "度"
    ) m6 H6 d8 n# J. ^# i( g
19. )
    
20. (prompt "\n 自动完成 "
    4 o9 v( {0 P1 A' u
21. (prin1)
    

复制代码

SunVei

(setq ang_pb (* atan_pb (/ 180 pi)))
0 J8 a* G, P+ q  P8 U(princ ang-pb)
& d4 U' I" z( W' T6 _) x. I; L(princ ang-pc)
' j3 b9 g' a1 Z% r==============

1. 
   ! J! y/ T% {. J6 E
2. (defun C:15 ()
   6 b! Y2 c' H; w, Z* k
3.   (setq pa (getpoint "请输入三角形左下的点:"))
   
4.   (setq ww (getreal "\n 输入底边长度:"))
   / v2 L$ N- r0 Q* B! o
5.   (setq kk (getreal "\n 输入斜边长度:"))
   
6.   (setq pb (polar pa 0 ww))
   
7.   (setq hh (sqrt (- (* kk kk) (* ww ww))))
   ! \% l8 S9 H- Q9 ]1 t% b
8.   (setq pc (polar pa (/ pi 2) hh))
   ) s/ g  X" z: ]+ ?* S! [1 N: q, o  M
9.   
   , n: b& I1 t8 z& l6 o% X9 z- w" S
10.   ;; (setvar "OsMode" 0)  ;捕捉
    
11.   (command "pline" pa pb pc "c")
    
12.   (princ "\n 另一边hh的长度=")
    % B1 d" {/ n1 F; P+ B* E
13.   (princ hh)
    * l* G5 a& f* b; B: ?
14.   (setq ang_pb (atan (/ hh ww)))
    
15.   (setq ang_pb (* ang_pb (/ 180 pi)))
    
16.   (setq ang_pc (- 90 ang_pb))
    ; J# ^! R, e1 S) @
17.   (princ "\n pb的夹角=")
    
18.   (princ ang_pb)  (princ "度")
    
19.   (princ "\n pc的夹角=")  (princ ang_pc)
    
20.   (princ "度")
    7 p" w! S( n; S& {
21. )
    
22. (prompt "\n 自动完成 ")
    
23. (prin1)
    0 h' U5 i4 V- r8 H9 O7 T8 q

复制代码

janekou

2# SunVei
# i- v- r" Z& h6 e, b5 F( y0 \4 q谢谢啦，确实可行啊，麻烦可以指点下出现什么问题了么？

SunVei

請比對您的代碼....
( k7 e; C* B. u) h: ixxxxxxxxxxxxxxxxxxxxxxxxxxxxx
(setq ang_pb (* atan_pb (/ 180 pi)))
(princ ang-pb)
(princ ang-pc)
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2 n. C# d0 \( Q; J

woaishuijia

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

janekou

5# woaishuijia

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

janekou

5# woaishuijia
/ j9 f. G  S5 S; h, u+ }& }, m3 N再弱弱的问一下，怎么最后的一行有两个“度”的呢？
pb的夹角=41.4096度
% \9 [$ i# g% t0 Q# l  |' s pc的夹角=48.5904度"度"

woaishuijia

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

1. (defun C:15 ()
   
2.   (setq pa (getpoint "请输入三角形左下的点:"))
   
3.   (setq ww (getreal "\n 输入底边长度:"))
   
4.   (setq kk (getreal "\n 输入斜边长度:"))
   : I3 Z2 E0 `+ M2 {; ~, i/ z
5.   (setq pb (polar pa 0 ww))
   1 g1 p' M/ X: ?$ h" y& s: a$ L5 K
6.   (setq hh (sqrt (- (* kk kk) (* ww ww))))
   * t0 \$ c: J& J# y+ A% E# m6 z
7.   (setq pc (polar pa (/ pi 2) hh))
   
8.   
   
9.   ;; (setvar "OsMode" 0)  ;捕捉
   2 L. y% }) Q7 u: L+ U' j
10.   (command "pline" pa pb pc "c")
    
11.   (princ "\n 另一边hh的长度=")
    
12.   (princ hh)
    ) s2 G9 s0 ^7 b* f. a% y, B$ L+ @
13.   (setq ang_pb (atan (/ hh ww)))
    
14.   (setq ang_pb (* ang_pb (/ 180 pi)))
    
15.   (setq ang_pc (- 90 ang_pb))
    0 U2 A5 g- z5 M8 f5 T4 c$ g
16.   (princ "\n pb的夹角=")
    * G0 c9 l. i. d8 B
17.   (princ ang_pb)  (princ "度")
    
18.   (princ "\n pc的夹角=")  (princ ang_pc)
    2 i; e1 E( r, }
19.   (princ "度")
    ( G3 z0 S+ ^& Q: Q
20.   (princ)
    / S5 r4 a* u# k9 L3 e% S
21. )
    ( I1 ^9 f* f! W8 r" j, N
22. (prompt "\n 自动完成 ")
    
23. (prin1)

复制代码

janekou

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

janekou

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

SunVei

Lisp .....
" i, W' a* i3 A4 a* M3 V列首见 ; ---> 跳过这一列
' V: G, P/ C3 Q6 C4 }, I7 D: E  C
) ]! [7 o8 x# [) I6 p本例 暂不关闭捕捉
实务上建议 关闭捕捉

janekou

11# SunVei
! H! C1 W: G. t- j5 \% `! m那请问有没有方法可以临时关闭捕捉呢，就是在这个程序运行的时候关闭，如果运行后就恢复？

SunVei

现成的参考
2 H) P' I1 u: fhttp://www.google.com/search?as_ ... +%E6%90%9C%E5%B0%8B

janekou

0 [2 v* G/ m: ]$ d2 K- _, h. H看了后，还是有点不懂，请问两个分号也是注释？
而那个703  (setvar "osmode" 703)是什么意思呢？（如果是0的话应该就是取消全部捕捉了吧）
" {/ ^& V# H1 [( c! \还有是怎么设置只临时捕捉的呢？

1. (defun c:an (/ aa la lb lc sz area lh bb ah ang1 cc )     ;将命令定义为an
   : @4 N- }6 c3 T3 W3 W9 v
2. 
   
3. (setq Osnapmode (getvar "OSMODE")                       ;获得当前捕捉模式
   & ~: F8 {5 Y' }4 q4 e+ H, w' V% L
4. (setvar "OSMODE" 703 )                                    ;设置程序中需要的模式
   
5.      
   
6.          
   
7. (setq aa (getpoint "选取左下角点:")
   : P, \3 c$ G+ J$ c% i
8. (setq la (getreal "\n 输入底边A的长度:")
   ) P( X+ i/ o# k5 T
9. (setq lb (getreal "\n 输入B的长度:")
   
10. (setq lc (getreal "\n 输入C的长度:")
    ) |' ^) A; o% j" C( \8 H
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))
    # i; r5 c9 V+ _, b* h9 N
15. 
    # a2 F. L0 o' H; Y
16. (setq bb (polar aa 0 la))
    . ?4 o* v; W. y( W( M. v5 E
17. (setq ah  (sqrt (- (* lc lc) (* lh lh))))
    - x/ s& |0 K% ^9 \3 E/ d
18. (setq ang1 (atan (/ lh ah)))       ;ang1弧度值
    
19. (setq cc (polar aa ang1 lc))
    
20. (command "pline" aa bb cc "c"
    
21. ;显示相关信息,可省略
    8 r# L; R7 U# V
22. (setq ang1 (* ang1 (/ 180 pi)))    ;ang1弧度值转换为十进制角度值
    9 r& N$ U) Z+ u
23. (princ (strcat "底角度数=" (rtos ang1) "度")
    
24. ;上一步或者可用(princ "底角度数=" (princ ang1) (princ "度"
    
25. 
    
26. (setvar "OSMODE" Osnapmode)                                ;恢复初始状态  
    % {* l7 _8 O9 S, k
27. 
    1 W/ p0 b: I! d9 w- K
28. (prin1)
    . [9 e8 E% ~6 U( B( N. e, n
29. )
    0 r* V& x4 i4 N- X6 g
30. (prompt "哈哈，入门级的水平啊，见笑了"
    / k+ D8 v% K. d, k
31. (prin1)

复制代码

貌似这样插入有问题~~