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

仲文玉 · 发表于 2012-7-27 06:52

学习

fcut2004 · 发表于 2012-7-27 08:55

大师级别的作品呀，好好学习。

注册 · 发表于 2012-7-27 10:18

好东西

Daniel·邓邓邓 · 发表于 2012-7-27 13:30

我不懂啊！我看不懂啊！

preone · 发表于 2012-7-27 18:20

再排队学习~~

500w008 · 发表于 2012-7-27 18:27

本帖最后由 500w008 于 2012-7-27 20:09 编辑

再顶一下号召中央 9大退伍军人都要学LSP 事情总要做些事

c735023723 · 发表于 2012-7-29 22:14

学习了，学习

xyp1964 · 发表于 2012-7-29 22:35

本帖最后由 xyp1964 于 2019-1-26 17:04 编辑

;; xyp-get-MidPoint 两点之中点 (xyp-get-MidPoint p1 p2)
(defun xyp-get-MidPoint (p1 p2) (mapcar '(lambda (x) (* x 0.5)) (mapcar '+ p1 p2)))
;; xyp-get-MidPointUP 垂直平分线上定点-波峰 (xyp-get-MidPointUP p1 p2 dd)
(defun xyp-get-MidPointUP (p1 p2 dd)
(polar (xyp-get-MidPoint p1 p2) (+ (angle p1 p2) (* pi 0.5)) dd)
)
;; xyp-get-MidPointDN 垂直平分线上定点-波谷 (xyp-get-MidPointDN p1 p2 dd)
(defun xyp-get-MidPointDN (p1 p2 dd)
(polar (xyp-get-MidPoint p1 p2) (- (angle p1 p2) (* pi 0.5)) dd)
)

xyz2009xyz · 发表于 2012-7-30 08:48

忍不住再来支持一下下

xyp1964 · 发表于 2012-7-30 13:29

本帖最后由 xyp1964 于 2019-1-26 17:04 编辑

账号		自动登录	找回密码
密码			注册

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