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

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

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

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

x

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

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

(defun C:15()
: x* |2 N, F3 L1 o0 k4 M
(setq pa (getpoint "请输入三角形左下的点:"
F# i$ {8 W/ K! H% D) d
(setq ww (getreal "\n 输入底边长度:"
|7 F5 y% {- t! w5 t
(setq kk (getreal "\n 输入斜边长度:"
3 v _# F0 c4 Q; X3 I
(setq pb (polar pa 0 ww))
3 J8 H4 n9 w5 r0 v- S
(setq hh (sqrt (- (* kk kk) (* ww ww))))
; ~' Q- W/ {3 j# w
, r/ V |; o, H# y0 K I$ ?
(command "pline" pa pb pc "c"0 d* m, A5 |8 h. | Y$ h
(princ "\n 另一边hh的长度=" (princ hh)8 b4 O% C, G8 r3 l) Y
(setq ang_pb (atan (/ hh ww)))
" ]" E' W" i8 O( n( \
(setq ang_pb (* atan_pb (/ 180 pi))) 0 A `" W5 h2 s- r' l! J
(setq ang_pc (- 90 ang_pb))
6 Y3 C4 H- s7 |0 v
(princ "\n pb的夹角="
& V2 d; m- a8 ^" }# y
(princ ang-pb) 1 F5 j6 v1 S. N4 M( z! M
(princ "度"+ j; C3 P* o; Q8 W# M
(princ "\n pc的夹角=" 9 c, R$ Y2 C+ ?4 s2 V! [0 B6 A# s
(princ ang-pc)
9 w- ?5 I, G# s m
(princ "度"/ B( x8 Y6 \& b
)
9 ~2 j. I" D* g1 }3 T5 h
(prompt "\n 自动完成 "
: P. C1 V+ h+ }
(prin1)
1 e4 ]7 U% W8 _) M

复制代码

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

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

' W# u% h& m' y- Z2 [
(defun C:15 (). q$ t( O; i1 ~ g) a! A. \: c, }, D# l
(setq pa (getpoint "请输入三角形左下的点:"))
5 T$ w1 J3 _0 ]: J
(setq ww (getreal "\n 输入底边长度:"))
a9 n. A" F6 e: x/ g$ e
(setq kk (getreal "\n 输入斜边长度:"))6 I: ^$ X$ w% H9 k4 B/ J# s+ X0 o
(setq pb (polar pa 0 ww)), H$ x7 O$ o5 }: r$ T" u3 A
(setq hh (sqrt (- (* kk kk) (* ww ww))))
. M/ L* H) R$ i3 a! _: ~
(setq pc (polar pa (/ pi 2) hh))
l: J6 k+ S% S# ~2 t
& F! k q( \$ H. ^9 v1 d
;; (setvar "OsMode" 0) ;捕捉
% f+ d+ g g& T$ d; I9 D) W
(command "pline" pa pb pc "c")
9 c: \6 G1 v+ @4 C$ F( i
(princ "\n 另一边hh的长度=")
2 T. o. k. ~# y# J) f' U0 N
(princ hh)1 L% I- i$ Y# Q- x! y
(setq ang_pb (atan (/ hh ww)))- J2 M# u4 G) ^
(setq ang_pb (* ang_pb (/ 180 pi)))/ t/ q" W( _% I
(setq ang_pc (- 90 ang_pb))* f# W% L) F' f0 B( {
(princ "\n pb的夹角=")
' ^5 j x/ e5 I: _+ p
(princ ang_pb) (princ "度")
/ \5 e8 H4 ]( t7 l h
(princ "\n pc的夹角=") (princ ang_pc)$ l" p7 k& b* u8 P/ P4 T+ p
(princ "度")+ D: K3 c( B! |$ g1 O
)& x8 g. Y# d: m
(prompt "\n 自动完成 "). P+ B8 @$ b" b0 ]/ v
(prin1)
4 G6 h$ C- x+ U

复制代码

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 ()- z* }0 P2 |( W7 f( R0 ` V
(setq pa (getpoint "请输入三角形左下的点:"))
5 @0 V. p) {/ N$ L; C' W+ N+ n
(setq ww (getreal "\n 输入底边长度:"))
( V, W$ Y* v5 h3 q
(setq kk (getreal "\n 输入斜边长度:"))' H7 L+ `/ L8 {9 \7 y& v% g
(setq pb (polar pa 0 ww))
+ E1 ]9 n& ]* c( c
(setq hh (sqrt (- (* kk kk) (* ww ww))))0 p/ L9 F+ Z: N1 \
(setq pc (polar pa (/ pi 2) hh))# ~( @" [2 V3 L* X& ]$ O1 T; t
, v' O1 |( M9 Q1 W1 s! N
;; (setvar "OsMode" 0) ;捕捉
1 y6 m# T& H; Y, O
(command "pline" pa pb pc "c")) Q0 w* Z/ l2 J2 i7 O0 V6 N
(princ "\n 另一边hh的长度=")
0 r% S. }# d9 H+ L
(princ hh)
3 a/ V7 c, q7 t
(setq ang_pb (atan (/ hh ww)))( h, j) D7 I9 K l/ L, K
(setq ang_pb (* ang_pb (/ 180 pi))); \( n* K% c; t _+ q8 H6 y5 {
(setq ang_pc (- 90 ang_pb))
: |3 Z; X7 L9 r- ?' ?, v4 Q1 o
(princ "\n pb的夹角=")7 T; w3 y1 c3 u3 R' }1 j4 _
(princ ang_pb) (princ "度")6 y( u; x' _5 u1 R- _8 H9 I d- V
(princ "\n pc的夹角=") (princ ang_pc)
8 f; {' \: A0 e+ ^: E: _
(princ "度")9 V' ~, W5 c9 G" |& s5 q
(princ)
3 R( \. Q- ]/ v0 E+ T7 Y1 n9 m, [% I
)+ f7 |$ g r" M
(prompt "\n 自动完成 ")
0 b4 G" O+ m5 o6 K
(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
( s0 Y5 G9 e2 T
* i$ K* z5 S/ X5 @
(setq Osnapmode (getvar "OSMODE") ;获得当前捕捉模式
) d/ D. Y6 }. o3 @
(setvar "OSMODE" 703 ) ;设置程序中需要的模式% f. L8 M( x9 _- I- ^6 S- }, S- j
9 f% a0 U8 u o
: V$ A1 J; @* r
(setq aa (getpoint "选取左下角点:") L# Y, [+ B S; J, L
(setq la (getreal "\n 输入底边A的长度:")
9 f" V/ _; @2 p
(setq lb (getreal "\n 输入B的长度:"); B1 i4 S' s7 H( F8 U! Y; @0 E
(setq lc (getreal "\n 输入C的长度:")7 a3 Z3 {* h+ ~3 ~9 h" C
;貌似下面的叫海伦公式, c6 @( p# l; `2 f
(setq sz (/ (+ la lb lc) 2))
- a* b4 L, l i+ R: w# `! y, H
(setq area (sqrt (* sz (- sz la) (- sz lb) (- sz lc))))* G0 ^9 w+ L ~! z
(setq lh (/ (* 2 area) la))
& ]! ^7 B0 {6 k r* J
0 ^ ?# j) K z; ^: ]# Y
(setq bb (polar aa 0 la))
. K' c) g* B) w* ?7 A) c3 q; P
(setq ah (sqrt (- (* lc lc) (* lh lh))))
; N) l- P# a" b+ m) }% x/ H: n
(setq ang1 (atan (/ lh ah))) ;ang1弧度值
$ h& }, j* v! Q: I
(setq cc (polar aa ang1 lc))
% s& D: h" g; x* s- X' m" c
(command "pline" aa bb cc "c"
8 \1 A( Q) {( ?: i( C6 E
;显示相关信息,可省略
+ i0 A J: T3 p' e, r1 R" ^
(setq ang1 (* ang1 (/ 180 pi))) ;ang1弧度值转换为十进制角度值
) B0 z! e: i0 U
(princ (strcat "底角度数=" (rtos ang1) "度"): y$ W7 ^7 C" @# ~: @4 j( t
;上一步或者可用(princ "底角度数=" (princ ang1) (princ "度"
4 i, h: x3 l9 }, I3 {
& y! L7 L3 ^4 H8 Y
(setvar "OSMODE" Osnapmode) ;恢复初始状态
4 Z& O$ g; W. K8 k
$ ~& I1 v* Y2 x4 x$ a8 v
(prin1)4 H4 T6 J9 v5 Z9 A; e) R
)
1 d5 U4 y1 T7 O+ G
(prompt "哈哈，入门级的水平啊，见笑了"+ J) f( N* }& G1 Z% V
(prin1)

复制代码

貌似这样插入有问题~~

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

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

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

评分