【e派】工具箱函数再揭秘及应用实例

潇湘飞雨

学习来的 ！！！！！！！！

1993063

一如既往的支持，顶出院长更多函数

butou

刚开始学习，这个大学校个个都是老师啊

jxjaxa

xyp1964 发表于 2012-12-2 23:44

求助院长xyp-9pt 函数

jxjaxa

xyp1964 发表于 2013-2-3 09:52

求助院长xyp-9pt 函数

phoevana

学习学习，

baiyier1112

xyp-get-DXF，有源码了，顶

xyp1964

1. ;; xyp-9Pt 实体9点坐标 (xyp-9Pt ename site)
   
2. (defun xyp-9Pt (ename site / MinPT MaxPT p1 p9 p5 p3 p7 p2 p4 p6 p8)
   
3.   (defun mid (p1 p2)(mapcar '(lambda (x) (* x 0.5)) (mapcar '+ p1 p2)))
   
4.   (setq ename (cond ((= (type ename) 'ENAME) (vlax-ename->vla-object ename))
   
5.              ((= (type ename) 'VLA-OBJECT) ename)
   
6.               )
   
7.   )
   
8.   (vla-getboundingbox ename 'MinPT 'MaxPT)
   
9.   (setq p1 (vlax-safearray->list MinPT)
   
10.         p9 (vlax-safearray->list MaxPT)
    
11.         p5 (mid p1 p9)
    
12.         p3 (if (< (car p9) (car p1))
    
13.              (list (car p1) (cadr p9) (caddr p1))
    
14.              (list (car p9) (cadr p1) (caddr p1))
    
15.            )
    
16.         p7 (if (< (car p9) (car p1))
    
17.              (list (car p9) (cadr p1) (caddr p9))
    
18.              (list (car p1) (cadr p9) (caddr p9))
    
19.            )
    
20.         p2 (mid p1 p3)
    
21.         p4 (mid p1 p7)
    
22.         p6 (mid p3 p9)
    
23.         p8 (mid p7 p9)
    
24.   )
    
25.   (nth (- site 1) (list p1 p2 p3 p4 p5 p6 p7 p8 p9))
    
26. )
    

;; xyp-9Pt 实体9点坐标 (xyp-9Pt ename site)<br /> (defun xyp-9Pt (ename site / MinPT MaxPT p1 p9 p5 p3 p7 p2 p4 p6 p8)<br />   (defun mid (p1 p2)(mapcar '(lambda (x) (* x 0.5)) (mapcar '+ p1 p2)))<br />   (setq ename (cond ((= (type ename) 'ENAME) (vlax-ename->vla-object ename))<br />              ((= (type ename) 'VLA-OBJECT) ename)<br />               )<br />   )<br />   (vla-getboundingbox ename 'MinPT 'MaxPT)<br />   (setq p1 (vlax-safearray->list MinPT)<br />         p9 (vlax-safearray->list MaxPT)<br />         p5 (mid p1 p9)<br />         p3 (if (< (car p9) (car p1))<br />              (list (car p1) (cadr p9) (caddr p1))<br />              (list (car p9) (cadr p1) (caddr p1))<br />            )<br />         p7 (if (< (car p9) (car p1))<br />              (list (car p9) (cadr p1) (caddr p9))<br />              (list (car p1) (cadr p9) (caddr p9))<br />            )<br />         p2 (mid p1 p3)<br />         p4 (mid p1 p7)<br />         p6 (mid p3 p9)<br />         p8 (mid p7 p9)<br />   )<br />   (nth (- site 1) (list p1 p2 p3 p4 p5 p6 p7 p8 p9))<br /> )<br />

xiaoyuzj-503

支持支持。 学习学习。

xiaoyuzj-503

求助院长 xyp-Table-JustifyText 函数