求二面角

15617556676

(defun c:2mj(/ a b ang1 len h1 len1 h h2 ang)
  (prompt "\n ******************已知平面夹角求二面角<2MJ>*********************")
  (setvar "cmdecho" 0)
  (setq a 1 b (sqrt (+ (* a a)(* a a))))
  (setq  ang1 (getreal "\n请输入平面夹角角度<范围0-180>："))
  (if (and(< ang1 180)(> ang1 0)(/= ang1 90))
  (progn
  (setq len (/ 1(cos (*(- ang1 90)(/ pi 180)))))
  (setq h1 (sqrt (- (* len len) (* a a)))  len1 (sqrt (+ (* b b) (* h1 h1)))  h(/(* a len)len1) h2(sqrt (- (* h h) (* (* 0.5 b) (* 0.5 b)))) ang (*(*(atan (* 0.5 b) h2)(/ 180 pi))2))
  (alert (strcat "\n二面角的角度为：" (rtos ang 2 2) "°"))
  )
  (alert "角度输入有误，请重新输入！！！")
  )
  (setvar "cmdecho"1)
  (prin1)
  )

15617556676

15617556676 发表于 2020-5-14 11:11
(defun c:2mj(/ a b ang1 len h1 len1 h h2 ang)
  (prompt "\n ******************已知平面夹角求二面角* ...

这个局限太大，要求角3必须为90度，角1需要等于角2，其它就不适用了

llsheng_73

求二面角为什么是提供3个夹角来确定两个面？

xj6019

llsheng_73 发表于 2020-5-14 13:41
求二面角为什么是提供3个夹角来确定两个面？

非常理解楼主，我自己也经常遇到这个问题，目前没找到更简单的方式，我一直都是SU，角度4的面对齐视图后直接导出二维，cad打开导出的二维图形来确认角度的，希望你的帖子能成功吧，不过我个人感觉太难了，不怎么好办。

mahuan1279

四个面面夹角之和为2pi。

mahuan1279

15617556676 发表于 2020-5-14 11:11
(defun c:2mj(/ a b ang1 len h1 len1 h h2 ang)
  (prompt "\n ******************已知平面夹角求二面角* ...

不知有没有反例？

15617556676

mahuan1279 发表于 2020-5-15 11:32
不知有没有反例？

主要高中知识都还给老师了，哈不知道怎么来计算了