B '(10 0 -7)
C '(5 10 15)
P '(5 5 3)
)
(command "ucs" "")
(command "ucs" a b c)
(setq a1 (trans a 0 1))
(setq b1 (trans b 0 1))
(setq c1 (trans c 0 1))
(setq p1 (trans p 0 1))
(setq a1 (list (car a1) (cadr a1))
b1 (list (car b1) (cadr b1))
c1 (list (car c1) (cadr c1))
p1 (list (car p1) (cadr p1))
)
(command "ucs" "")
(command "pline" a1 b1 c1 "c")
(setq plent (vlax-ename->vla-object (entlast)))
(setq e0 (vla-get-Area plent))
(vlax-put plent 'Coordinates (append a1 b1 p1))
(setq e1 (vla-get-Area plent))
(vlax-put plent 'Coordinates (append c1 b1 p1))
(setq e2 (vla-get-Area plent))
(vlax-put plent 'Coordinates (append a1 c1 p1))
(setq e3 (vla-get-Area plent))
(vla-delete plent)
(command "ucs" "p")
(command "ucs" "p")
(command "ucs" "p")
(>= e0 (+ e1 e2 e3)) 假设AC是三角形ABC的最长边,求P点在直线AC上的垂足P’,如果P'在直线AC外面则P点投影在三角形外;
否则再计算角PP'B,若角PP'B大于90度,则P点投影在三角形ABC外。 先求出点在面上的投影点,剩下的就是判断是否在三角形内了 距离关系应该能判断吧? 直接用向量法,求总面积= 3个三角形面积和,如果一个面积为0就是点落在某边上
页:
1
[2]