版上大大大家好
小弟最近在学习AUTOLISP
想要用code画一颗巴克球等一些立体图
我现在需要一种函式
可以读取空间中的两个点
并找出其两个"三分点"(将此两点支线段切成三等份之两点)
用途是想要在一个三角形内，画出其面积一半之正六边形(刚好就是把三等分点连起来)
我的程式是
(defun six (pp1 pp2 pp3 / a1 a2 a3 a4 n1 n2 n3 dd dd2 dd3 dd4 dd5 dd6 b1 b2
b3 b4 b5 b6)
(setq a1 (distance pp1 pp2)
a2 (distance pp2 pp3)
a3 (distance pp3 pp1)
n1 (angle pp1 pp2)
n2 (angle pp2 pp3)
n3 (angle pp3 pp1)
dd (/ a1 3.0)
dd2 (* dd 2.0)
dd3 (/ a2 3.0)
dd4 (* dd3 2.0)
dd5 (/ a3 3.0)
dd6 (* dd5 2.0)
b1 (polar pp1 n1 dd)
b2 (polar pp1 n1 dd2)
b3 (polar pp2 n2 dd3)
b4 (polar pp2 n2 dd4)
b5 (polar pp3 n3 dd5)
b6 (polar pp3 n3 dd6)
)
(command "line" b1 b2 b3 b4 b5 b6 b1 "")
(princ)
)
问题来了
这在于平面是可行的
但是到了空间就不行了QQ
我猜想是极座标函式无法运算空间
所以想请问
在空间中
有没有内建函式可以表达空间中两点的关系? 类似(POLAR)
或著是我可以去设定些什么来完成
才学三个月QQ
希望有高手可以指点小弟
万分感谢