社区 › AutoLISP/Visual LISP 编程技术 › 【e派】工具箱函数再揭秘及应用实例

潇湘飞雨 发表于 2013-3-21 14:22:46

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

1993063 发表于 2013-3-24 08:29:49

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

butou 发表于 2013-4-2 21:55:36

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

jxjaxa 发表于 2013-4-18 22:36:35

xyp1964 发表于 2012-12-2 23:44 static/image/common/back.gif


求助院长xyp-9pt 函数

jxjaxa 发表于 2013-4-18 22:40:21

xyp1964 发表于 2013-2-3 09:52 static/image/common/back.gif


求助院长xyp-9pt 函数

phoevana 发表于 2013-4-19 07:58:32

学习学习，

baiyier1112 发表于 2013-4-19 23:29:55

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

xyp1964 发表于 2013-4-23 13:07:13

本帖最后由 xyp1964 于 2017-11-20 21:51 编辑

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

xiaoyuzj-503 发表于 2013-5-30 20:58:03

支持支持。 学习学习。

xiaoyuzj-503 发表于 2013-6-1 21:17:25

求助院长 xyp-Table-JustifyText 函数

查看完整版本: 【e派】工具箱函数再揭秘及应用实例