（XD::Pnt:GetRecPnts）点给宽度和高度生成矩形点表

Lispboy

1. (defun XD::Pnt:GetRecPnts(pnt width height / h1 p1 p2 p3 p4 w1)
   
2.    (setq w1 (* 0.5 width)
   
3.          h1 (* 0.5 height)
   
4.          p1 (mapcar '- pnt (list w1 h1 0.0))
   
5.          p3 (mapcar '+ pnt (list w1 h1 0.0))
   
6.          p2 (mapcar '+ pnt (list w1 (- h1) 0.0))
   
7.          p4 (mapcar '+ pnt (list (- w1) h1 0.0))
   
8.    )
   
9.    (list p1 p2 p3 p4)
   
10. )
    

(defun XD::Pnt:GetRecPnts(pnt width height / h1 p1 p2 p3 p4 w1)<br />    (setq w1 (* 0.5 width)<br />          h1 (* 0.5 height)<br />          p1 (mapcar '- pnt (list w1 h1 0.0))<br />          p3 (mapcar '+ pnt (list w1 h1 0.0))<br />          p2 (mapcar '+ pnt (list w1 (- h1) 0.0))<br />          p4 (mapcar '+ pnt (list (- w1) h1 0.0))<br />    )<br />    (list p1 p2 p3 p4)<br /> )<br />

炫翔

(/ width 2.)(/ height 2.0)  用*0.5 与 用变量 比较好，主要考虑循环内部执行的情况

Lispboy

炫翔 发表于 2016-9-13 08:05

接受建议，修改了。

dyjwyqz5221

能适应有角度的矩形就好了