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

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

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

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

x

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

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

(defun C:15()
! O* E# @; \3 i7 x; z2 O$ b* i
(setq pa (getpoint "请输入三角形左下的点:"9 g9 B# f3 H0 \% i5 \) y! r8 E
(setq ww (getreal "\n 输入底边长度:"
* i$ ^8 A. H* J6 x% e: g' t
(setq kk (getreal "\n 输入斜边长度:"
6 b- Y; U8 X# j3 s3 o/ k
(setq pb (polar pa 0 ww))# O! R, \0 C; R5 p/ r2 w
(setq hh (sqrt (- (* kk kk) (* ww ww))))/ k- M7 k0 w0 g5 b2 X, [. u
5 @" g/ s; s5 H" R
(command "pline" pa pb pc "c"* w/ d/ x2 A, \" ?! f- q) `
(princ "\n 另一边hh的长度=" (princ hh)
& i) d! @& F" U
(setq ang_pb (atan (/ hh ww)))7 F7 b: L) Q# f6 f! N+ J1 L- X6 k
(setq ang_pb (* atan_pb (/ 180 pi)))
, b0 ?% \4 ^6 @3 u% j) ~2 J
(setq ang_pc (- 90 ang_pb))! Z' ~- ?4 Q, c, P, S+ X8 a; ?' v; M
(princ "\n pb的夹角="
: d: u! F$ u3 M) Q
(princ ang-pb) 4 p. h8 b5 ?) H! r3 i
(princ "度" w7 W g% o+ _& U0 E% N+ t7 T2 j
(princ "\n pc的夹角=" % D( B: l, |+ O5 l# v) W, ?
(princ ang-pc)
) p4 u6 P$ t6 g( c( }7 T" S! B
(princ "度"
& \2 C. X9 I3 D" o: a
)2 U- K: s4 G5 e% x e
(prompt "\n 自动完成 "
8 u% G1 K5 b0 p9 n. h3 t
(prin1)
. j( p, j% R$ f) Y

复制代码

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

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

9 [7 e# p$ |( r- {6 z' n
(defun C:15 (): T% G( h( y/ p. N
(setq pa (getpoint "请输入三角形左下的点:"))9 F: O# z+ {# n9 p
(setq ww (getreal "\n 输入底边长度:"))
0 q/ h- o" p8 U
(setq kk (getreal "\n 输入斜边长度:"))" P/ Z- q5 T; R e7 J/ \+ X; v
(setq pb (polar pa 0 ww))
9 e. N6 d) D0 a- g$ v7 h
(setq hh (sqrt (- (* kk kk) (* ww ww))))
- H+ ]" _) v8 q4 j9 g
(setq pc (polar pa (/ pi 2) hh))
5 `0 x R! \$ b: |8 }
" ^9 j! R/ o6 ^$ v9 G# d5 I) Q
;; (setvar "OsMode" 0) ;捕捉2 r" w- X0 ~1 c- J6 A7 F
(command "pline" pa pb pc "c")7 P- C: x/ k" T5 S" y& w: e$ K
(princ "\n 另一边hh的长度=")
, f+ {" E: |3 @2 |! F9 a" u$ S
(princ hh); c7 @! y4 ?4 a* X- n
(setq ang_pb (atan (/ hh ww)))' w2 d) j+ m, m* k) g0 u/ Y
(setq ang_pb (* ang_pb (/ 180 pi))); b+ ]3 S% G+ F$ U6 W
(setq ang_pc (- 90 ang_pb))
- c3 a7 C2 `$ i* R) Q; a' y; |
(princ "\n pb的夹角=")
/ P9 y1 ?* R% l. u1 d
(princ ang_pb) (princ "度")( X- z5 [. L% }8 q3 q4 {& r
(princ "\n pc的夹角=") (princ ang_pc)" }/ t8 L7 d0 y. v
(princ "度")
/ \9 R, f# i- Y1 t7 V/ E
)
* d, V7 N+ b. B; S
(prompt "\n 自动完成 ")# l: Y% @# U b- ^. m* e* `
(prin1)+ K ?8 I+ [8 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 ()0 D7 j B4 S( N* Y% L; n
(setq pa (getpoint "请输入三角形左下的点:"))
* @% U$ ^& s# E
(setq ww (getreal "\n 输入底边长度:"))
- T8 \" T. H3 ] v( w# K+ ^! Z
(setq kk (getreal "\n 输入斜边长度:"))/ i1 b7 Z8 i8 X
(setq pb (polar pa 0 ww))
1 u# |9 t& u2 F0 H+ i0 B
(setq hh (sqrt (- (* kk kk) (* ww ww))))
+ ~& G s" B+ Z5 S) |2 k
(setq pc (polar pa (/ pi 2) hh))
7 F0 u$ z: T% q: T0 S0 U
' n4 J* j9 ^5 _4 H( ~ }+ F
;; (setvar "OsMode" 0) ;捕捉" \! d8 t; @0 D1 @# r- F
(command "pline" pa pb pc "c")
& W& s3 M H% l2 ~
(princ "\n 另一边hh的长度=")) J, Q2 o; P. c8 K
(princ hh)2 Q, D- m8 T& z; R# P' w V
(setq ang_pb (atan (/ hh ww)))2 v; K+ j& `! E
(setq ang_pb (* ang_pb (/ 180 pi)))0 p$ J2 V( b* Q0 P8 H6 X9 A
(setq ang_pc (- 90 ang_pb))
O0 d8 {% _. w& _7 ^
(princ "\n pb的夹角="). w2 A) }2 j0 [: n- b7 U/ n$ ?3 Q3 j
(princ ang_pb) (princ "度")
+ Z N; g7 H A; ]( q% a) ^
(princ "\n pc的夹角=") (princ ang_pc)7 Y4 E/ I5 `0 P0 J: `! G
(princ "度")' T e2 n' X0 n- I _2 J- h
(princ) b) W ]$ R7 P2 N9 j! v/ x2 A
)
7 o. w: ^+ c: ^! C5 q0 b# N
(prompt "\n 自动完成 ")
4 A8 E" L" W$ v! G: o
(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: ~: Y. p9 H: \+ N8 M
. Q' Z' d) {6 _1 S. F( u
(setq Osnapmode (getvar "OSMODE") ;获得当前捕捉模式
" d; \( R; V$ k- t
(setvar "OSMODE" 703 ) ;设置程序中需要的模式
3 T; r/ W3 H. B" c6 w
# b& b4 j( e5 @. g' w9 g8 O
5 `0 d3 C( V1 h6 V; Y% r
(setq aa (getpoint "选取左下角点:")- D2 b) u2 l h' V( T* S H
(setq la (getreal "\n 输入底边A的长度:")3 |) Z1 Q% R6 ?. ~8 G1 }* I
(setq lb (getreal "\n 输入B的长度:")
4 G; U4 t/ d2 f4 \
(setq lc (getreal "\n 输入C的长度:")
; ~# B9 d" r- }. L2 d5 N3 h3 R
;貌似下面的叫海伦公式
& Q) K( Z1 \) H( J" e
(setq sz (/ (+ la lb lc) 2))
/ Y7 I) K$ a, N5 v. D
(setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
* U f4 q7 k' \( E, N0 X. A
(setq lh (/ (* 2 area) la))
7 ~. e/ q$ z. k) h6 |" _% `6 t3 Z
4 d/ t! J* @% J: M( J
(setq bb (polar aa 0 la))
. n% A8 h, S, d7 x1 D- r' @4 p
(setq ah (sqrt (- (* lc lc) (* lh lh)))) ' p6 T1 a2 e# _
(setq ang1 (atan (/ lh ah))) ;ang1弧度值5 `: m& P" z# ^% A' V c( v
(setq cc (polar aa ang1 lc))0 e4 n8 a9 Q. K* r. `
(command "pline" aa bb cc "c"7 ]- o* w" X2 \8 @: |: y
;显示相关信息,可省略# @" @ ~, x0 L b) {0 S
(setq ang1 (* ang1 (/ 180 pi))) ;ang1弧度值转换为十进制角度值' y9 P0 X" Z" r& t* u/ H
(princ (strcat "底角度数=" (rtos ang1) "度")
/ X+ q- Y. m' E: ]7 Y- Y+ ~. z z0 N
;上一步或者可用(princ "底角度数=" (princ ang1) (princ "度"- O3 Y0 {; h) y
! `: ?, @4 p; f- w O' I
(setvar "OSMODE" Osnapmode) ;恢复初始状态
. i. h* n2 e8 s
" e- {& r; L. M" V! h8 k- f
(prin1)3 F" Y4 M. u: l6 z9 J
)
# H* \. e% u8 G) E0 m% Z5 @" A
(prompt "哈哈，入门级的水平啊，见笑了"
/ o$ S4 x; @4 g# h' X M
(prin1)

复制代码

貌似这样插入有问题~~

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

通知

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

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

评分