[請益] 函式撰寫疑問

看板Cad_Cae (電腦輔助設計)作者bestperson1 (dragger)時間7年前 (2017/06/10 01:41)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/1

版上大大大家好小弟最近在學習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 希望有高手可以指點小弟萬分感謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.112.249.6 ※ 文章網址: https://www.ptt.cc/bbs/Cad_Cae/M.1497030083.A.625.html