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

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

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

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

x

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

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

(defun C:15()5 G3 y& a7 x1 x5 j. }- g
(setq pa (getpoint "请输入三角形左下的点:"* F% [" A1 m* `1 H: A+ \- h$ F
(setq ww (getreal "\n 输入底边长度:"
% \+ S3 U* p/ x. a/ a7 T" h
(setq kk (getreal "\n 输入斜边长度:"3 W+ L6 B ~. @7 t6 z3 ?
(setq pb (polar pa 0 ww)); Z4 P0 o% Y; ~ o/ G; t
(setq hh (sqrt (- (* kk kk) (* ww ww))))
4 G5 Q; w( W, z+ @5 K# o2 F
" u# p, s0 `8 e6 V- u
(command "pline" pa pb pc "c"( m0 P% U# x& u
(princ "\n 另一边hh的长度=" (princ hh)- n1 W) c4 I. _4 C, ^, J2 x
(setq ang_pb (atan (/ hh ww)))1 R; K# P9 F" Q9 p% w3 B
(setq ang_pb (* atan_pb (/ 180 pi))) , D) v- O- }! a. S: o/ w8 ]# s
(setq ang_pc (- 90 ang_pb))
# E' o- p5 c3 d4 H) ~/ E
(princ "\n pb的夹角=" + o8 M" z2 J7 a& q9 o2 r& C3 h
(princ ang-pb) 3 ^* O7 q9 n+ H W# q
(princ "度"5 R5 M" ]' y% Y4 O: ~
(princ "\n pc的夹角="
% F d$ C: ?$ p$ \
(princ ang-pc) , i$ W P# Y5 K& ^" B, m
(princ "度"
( w3 X' \: y5 ~8 y: d0 p* t9 P
)
, k- }* m4 H" y+ T& {5 ~
(prompt "\n 自动完成 "
V& V$ t8 T z% b; |
(prin1), E8 q4 E% Z7 F; Z0 E

复制代码

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

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

" M: |* v, x' @' ?5 g9 y" G7 m8 a9 N6 Z
(defun C:15 ()6 g2 w6 p* N( y$ t) C7 S
(setq pa (getpoint "请输入三角形左下的点:"))
+ p0 m8 L. L# @8 Z! Y/ ^6 d
(setq ww (getreal "\n 输入底边长度:"))* L* z. z2 E- J+ [- R
(setq kk (getreal "\n 输入斜边长度:"))% L6 U \4 |# \* {/ i/ K: m
(setq pb (polar pa 0 ww))
( r' e" q) p+ z1 Y; j5 \5 w
(setq hh (sqrt (- (* kk kk) (* ww ww))))9 N5 U) [! l( j
(setq pc (polar pa (/ pi 2) hh))
! d, U4 R( q8 H: @
0 F2 K- h% j M
;; (setvar "OsMode" 0) ;捕捉$ M$ n5 \3 e3 D' t0 U
(command "pline" pa pb pc "c")
% d6 B. s, f; y% c
(princ "\n 另一边hh的长度=")
3 J, t' {( J/ I
(princ hh)7 v* a. q$ [) t G& E: U) D# f
(setq ang_pb (atan (/ hh ww)))9 b7 S' K+ T4 [3 U5 Y( H6 q
(setq ang_pb (* ang_pb (/ 180 pi)))
& {, L! c8 U7 B6 p0 k& m! g+ G
(setq ang_pc (- 90 ang_pb)), t) M" ^# x' R9 z( T
(princ "\n pb的夹角=")# a$ _& q. z N
(princ ang_pb) (princ "度")
M" Q$ T2 _' `, t& B1 w
(princ "\n pc的夹角=") (princ ang_pc)) u# ]0 @' c3 C7 V& }
(princ "度")2 s a- A! J5 z
)
8 u* J+ C% Y- a3 V% [5 [: L# b3 U
(prompt "\n 自动完成 ")
, s9 a s1 |2 H, X- O( O
(prin1)
4 j4 P( L5 G6 g5 l8 `1 Y6 l

复制代码

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 ()8 Q. s( `$ w. f0 w4 C! m
(setq pa (getpoint "请输入三角形左下的点:"))
, w9 O9 B6 \* c9 X
(setq ww (getreal "\n 输入底边长度:"))
- F3 N$ x( `0 |
(setq kk (getreal "\n 输入斜边长度:"))1 G' `! j7 X# F" f1 n9 K
(setq pb (polar pa 0 ww))
|7 d# U) x* n- L( g
(setq hh (sqrt (- (* kk kk) (* ww ww))))& V$ _8 F" t D
(setq pc (polar pa (/ pi 2) hh))
1 W: \/ ?, M7 r
# w6 y; x* [+ \6 q" K8 e& B
;; (setvar "OsMode" 0) ;捕捉
(command "pline" pa pb pc "c")
$ P) O( B: ?3 t8 _9 g$ V. ~# R- W
(princ "\n 另一边hh的长度=")' S" l; r# r. }/ d
(princ hh)
! q5 L) x+ A. a! O
(setq ang_pb (atan (/ hh ww)))1 P/ F* |; g5 V; c' U7 C3 }
(setq ang_pb (* ang_pb (/ 180 pi)))
* S4 @" o; p6 d) W* m7 Y, F
(setq ang_pc (- 90 ang_pb))
; x/ i6 K# q4 f, i
(princ "\n pb的夹角=")( t9 C( r' F- z0 I) J i! K
(princ ang_pb) (princ "度")
3 u- Z; d M+ R4 Y0 d1 N* _
(princ "\n pc的夹角=") (princ ang_pc)
0 b6 K$ `. [9 C# J5 H# Y# A
(princ "度")
1 i; o, ~1 F' x9 Z j
(princ)
J9 ~) k8 R* B* t- k
)4 k6 Y2 n, e m# T
(prompt "\n 自动完成 ")' G, ^8 h6 ]! E4 X% w& Z+ ^( P
(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) {. U# M( I; c+ A4 D _3 \0 |
# A- L8 N) m" w3 C( ]
(setq Osnapmode (getvar "OSMODE") ;获得当前捕捉模式* M; s- W( e' [, ~- }. j# y6 j
(setvar "OSMODE" 703 ) ;设置程序中需要的模式
/ b5 Y/ }( t* e1 B3 {8 O
+ p, y! H x: t2 s) ]/ h; w
. `& y+ a! B1 x% T* U
(setq aa (getpoint "选取左下角点:")" P7 b" f) q: p1 e/ \: P
(setq la (getreal "\n 输入底边A的长度:")6 k9 _8 J3 I' g
(setq lb (getreal "\n 输入B的长度:")
3 W" e* @: j, Y5 z6 u( M
(setq lc (getreal "\n 输入C的长度:")1 ?/ H7 B' ], M# c
;貌似下面的叫海伦公式
' h* `2 c4 P2 s, x0 w
(setq sz (/ (+ la lb lc) 2))
6 C, c; u2 p; B. I. J& g% {
(setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))
8 x2 Q+ j, c; J- P1 K
(setq lh (/ (* 2 area) la))
9 S9 |* O- X7 z! m' C1 w, f7 B
* t" X0 ` q0 \; ?& K( i
(setq bb (polar aa 0 la)) b* ?! M/ }/ j* f) ]# d7 a
(setq ah (sqrt (- (* lc lc) (* lh lh))))
( W$ X4 X5 R9 n, @
(setq ang1 (atan (/ lh ah))) ;ang1弧度值; n! Z* m4 C* Y
(setq cc (polar aa ang1 lc))
" n1 |- O1 y8 l' c# h
(command "pline" aa bb cc "c"
7 h7 L9 W4 C0 f- i: l
;显示相关信息,可省略
0 W9 A) i1 z& M) L* x
(setq ang1 (* ang1 (/ 180 pi))) ;ang1弧度值转换为十进制角度值8 o: t: Y) P5 ~% z7 r% r ]8 L5 k+ a
(princ (strcat "底角度数=" (rtos ang1) "度")) j* Y/ r3 C p$ ~4 W! x
;上一步或者可用(princ "底角度数=" (princ ang1) (princ "度"
0 [7 A. S! p+ s/ S/ f9 Y
3 M7 _+ C) l2 m
(setvar "OSMODE" Osnapmode) ;恢复初始状态
* O7 K& n f6 w: I
! |: U9 B, J& x) i
(prin1)0 f8 l8 P. w0 j
)
; X: H) ^; Y1 `7 m6 x: ^. Q+ l
(prompt "哈哈，入门级的水平啊，见笑了"
/ P; W3 X; [3 S0 ~7 d1 U8 v; X
(prin1)

复制代码

貌似这样插入有问题~~

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

通知

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

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

评分

浏览过的版块