Question

AUTO LISP小程序

请按照图片帮我改个程序 我把三角形高求出来了 可是绘出的图形总是有2个边符合输入值 第三条边就是 输入的b值总对不上
(defun c:sbx (/ p1 p2 p3 a b c p h d ang1 )
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq p1 (getpoint "请输入基点："))
(setq a (getdist "\n请输入a=："))
(setq b (getdist "\n请输入b=："))
(setq c (getdist "\n请输入c=："))
(setq p (/ (+ a b c) 2))
(setq h (sqrt (/ (* (* 4 p) (- p a) (- p b) (- p c)) (* a a)))) 海伦定理
(setq d (sqrt (- (* c c) (* h h))))
(setq ang1 (atan h d))
(setq p3 (polar p1 (* ang1 (/ 180 pi )) c))
(setq p2 (polar p1 0 a))
(command "line" p1 p2 p3 "c")
(prin1)
)
不知道还要添加哪些东西 万分感谢！

Answer 1

1.首先,同LZ说的,你OSMODE没弄成0,不过我觉得你出的错在于,你求的角度有问题,程序里你求的是角B,就是b对应着的角,而ATAN的范围是(-PI/2 PI/2),在没判别角的大小时,角B是有可能钝角的,所以就出错了,最好是把ABC按照大小排一下,按你程序里,把b弄成最小的角,就没问题了.
2.在程序前面加个判别能否形成三角形的语句,就是最小+次小>最大的那个.
3.程序末尾最好加个(PROMPT"")语句,标明怎么运行这个程序,不然加载了你这个程序不知道怎么打开.
刚才又看了下,发现你setq p3 (polar p1 (* ang1 (/ 180 pi )) c))这一句也有问题,ATAN返回的本来就是弧度值,而polar也是用弧度值的
祝LZ早日学成~ 附程序,还有缺陷,*ERROR*参数没设置,嫌麻烦
(defun c:sbx (/ p1 p2 p3 a b c p h d ang1)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq p1 (getpoint "请输入基点："))
(setq a (getdist "\n请输入a=："))
(setq b (getdist "\n请输入b=："))
(setq c (getdist "\n请输入c=："))
(setq c1 (max a b c)
b1 (min a b c)
)
(foreach temp (list a b c)
(if (and (< temp c1) (> temp b1))
(setq a1 temp)
)
)
(if (< (+ a1 b1) c1)
(princ "出错,输入的三边不能组成三角形")
(progn
(setq p (/ (+ a b c) 2))
(setq h (sqrt (/ (* (* 4 p) (- p a) (- p b) (- p c)) (* a1 a1))))
(setq d (sqrt (- (* c1 c1) (* h h))))
(setq ang1 (atan h d))
(setq p3 (polar p1 ang1 c1))
(setq p2 (polar p1 0 a1))
(command "line" p1 p2 p3 "c")
)
)
(setvar "osmode" oldos)
(prin1)
)
(prompt"********************输入sbx以开始程序********************")
(princ)

Answer 2

1,首先,你要把捕捉关闭,你没有关
2,有的三条边,可能有两种三角形图,你有在程序里区分吗?
3,有的三个长度是不可能构成三角形的,比如1,1,10,不能的