(XD::Geom:BOX->9PT) 包围盒得到9个特征点函数

Lispboy

1. (defun XD::Geom:BOX->9PT (box / p0 p1 p2 p3 p4 p5 p6 p7 p8)
   
2.   (setq p0 (nth 0 box)
   
3.         p2 (nth 1 box)
   
4.         p1 (xdrx_midp p0 p2)
   
5.         p4 (nth 2 box)
   
6.         p3 (xdrx_midp p2 p4)
   
7.         p6 (nth 3 box)
   
8.         p5 (xdrx_midp p4 p6)
   
9.         p7 (xdrx_midp p0 p6)
   
10.         p8 (xdrx_midp p0 p4)
    
11.   )
    
12.   (list p0 p1 p2 p3 p4 p5 p6 p7 p8)
    
13. )
    
14. 
    

(defun XD::Geom:BOX->9PT (box / p0 p1 p2 p3 p4 p5 p6 p7 p8)<br />   (setq p0 (nth 0 box)<br />         p2 (nth 1 box)<br />         p1 (xdrx_midp p0 p2)<br />         p4 (nth 2 box)<br />         p3 (xdrx_midp p2 p4)<br />         p6 (nth 3 box)<br />         p5 (xdrx_midp p4 p6)<br />         p7 (xdrx_midp p0 p6)<br />         p8 (xdrx_midp p0 p4)<br />   )<br />   (list p0 p1 p2 p3 p4 p5 p6 p7 p8)<br /> )<br /> <br />

zhong2013

XDRX_MIDP  这个函数在那儿，我怎么没找到呢?

st788796

xdrx_line_midp

zhong2013

谢谢，。。

拉契

老大 找不到xdrx_midp这个函数，能否发个链接或者直接把xdrx_midp的内容发上来一下呢  谢谢了！

st788796

拉契 发表于 2014-3-11 14:33
老大 找不到xdrx_midp这个函数，能否发个链接或者直接把xdrx_midp的内容发上来一下呢  谢谢了！

改名了，xdrx_line_midp
lisp可以这样写
(mapcar '(lambda (x y) (* 0.5 (+ x y))) p1 p2)

拉契

谢谢老大
(defun xdrx_midp(p1 p2);;求两点的中点
  (mapcar '(lambda (x y) (* 0.5 (+ x y))) p1 p2)
)

aeo

2. 
   
3. ;;;返回9个点，带索引，索引值和Mtext的dxf71相同
   
4. (defun XD::Geom:BOX->9PT (box / p0 p1 p2 p3 p4 p5 p6 p7 p8 midppp)
   
5. (defun midppp(a b)(mapcar '(lambda(x y)(* 0.5(+ x y))) a b))
   
6.   (setq p0 (nth 0 box)
   
7.         p2 (nth 1 box)
   
8.         p1 (midppp  p0 p2)
   
9.         p4 (nth 2 box)
   
10.         p3 (midppp  p2 p4)
    
11.         p6 (nth 3 box)
    
12.         p5 (midppp  p4 p6)
    
13.         p7 (midppp  p0 p6)
    
14.         p8 (midppp  p0 p4)
    
15.   )
    
16.   (mapcar 'cons '(1 2 3 4 5 6 7 8 9) (list p6 p5 p4 p7 p8 p3 p0 p1 p2))
    
17. )
    
18. 
    

<br /> ;;;返回9个点，带索引，索引值和Mtext的dxf71相同<br /> (defun XD::Geom:BOX->9PT (box / p0 p1 p2 p3 p4 p5 p6 p7 p8 midppp)<br /> (defun midppp(a b)(mapcar '(lambda(x y)(* 0.5(+ x y))) a b))<br />   (setq p0 (nth 0 box)<br />         p2 (nth 1 box)<br />         p1 (midppp  p0 p2)<br />         p4 (nth 2 box)<br />         p3 (midppp  p2 p4)<br />         p6 (nth 3 box)<br />         p5 (midppp  p4 p6)<br />         p7 (midppp  p0 p6)<br />         p8 (midppp  p0 p4)<br />   )<br />   (mapcar 'cons '(1 2 3 4 5 6 7 8 9) (list p6 p5 p4 p7 p8 p3 p0 p1 p2))<br /> )<br /> <br />

st788796

aeo 发表于 2014-3-14 14:50

这个好, 用的时候 assoc

71	附着点： 1 = 左上；2 = 中上；3 = 右上 4 = 左中；5 = 正中；6 = 右中 7 = 左下；8 = 中下；9 = 右下

wzjck01

学习学习了

白领坛主

这个高级吗？？？？？？？？？？？？？？？？？？？？？？？？？？？

Le9988

学习，学习。

Le9988

学习，学习。

wzjck01

学习学习了