[建议]：求空间两直线夹角

雨箭风刀 · 发表于 2006-5-17 09:10:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

[php]
;; a2l 求空间两直线夹角－－－ｂｙ　雨箭风刀.2006.5
;; 前提：两直线必须有交点．;利用了cal的计算功能。
(defun a2l (/ e1 e2 p1 p2 p3 p4 px pu)
  (if (not cal)(arxload "geomcal"))
  (setq e1 (car (entsel))
e2 (car (entsel))
p1 (vlax-curve-getstartpoint e1)
p2 (vlax-curve-getendpoint e1)
p3 (vlax-curve-getstartpoint e2)
p4 (vlax-curve-getendpoint e2)
px (cal "ill(p1,p2,p3,p4)")
pa (cal "plt(p1,p1,0.5)")
pb (cal "plt(p3,p4,0.5)")
pu (cal "nor(p1,p2,pb)")
  )
(princ(cal "ang(px,pa,pb,pu)"))
)
(vlax-add-cmd "a2l")
(vlax-add-cmd "a2l" 'a2l "a2l" 1)
[/php]

315073095 · 发表于 2006-5-17 13:52:27

版主这是什么题,我刚学CAD的根本看不懂是什么呀?

xxming · 发表于 2006-5-23 10:37:38

command:'cal
ang(int,end,end)

yjbin008 · 发表于 2006-5-25 13:16:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

看不懂是什么东西啊

cupidvenus · 发表于 2006-6-4 22:50:46

是乎有点负责，可不可以解释一下

雨箭风刀 · 发表于 2006-6-5 02:11:50

“求空间两直线夹角”
我不知道还要我怎么解释才清楚。。。。。

eachy · 发表于 2006-6-5 02:45:50

还可以学学数学
http://4a.hep.edu.cn/NCourse/gs/calculus1/CHAP7/INDEX.asp

sujia · 发表于 2006-6-13 11:58:35

如果2直线不共面，怎么求？

账号		自动登录	找回密码
密码			立即注册

[建议]：求空间两直线夹角

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子