取任何曲线起点和中点及终点通用函数

XD0001 · 发表于 2013-5-1 13:22:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 XD0001 于 2013-5-1 13:24 编辑

在这里学到很多，现在我也分享一个常用的函数
[pcode=lisp,true](defun getcur3pts (e ps pe pm)
(setq ps (vlax-curve-getstartparam e)
pe (vlax-curve-getendparam e)
pm ( (- pe ps) 2))
(mapcar 'vlax-curve-getpointatparam (list e e e) (list ps pm pe))
)
[/pcode]

ScmTools · 发表于 2013-5-1 13:29:59

简单实用，非常好

yjch · 发表于 2013-6-12 12:56:11

谢谢楼主的分享，短小精悍

q3_2006 · 发表于 2013-6-17 06:19:13

好东西真多，努力学习中！

123523058 · 发表于 2013-10-27 20:53:24

很简洁很简洁很简洁很简洁很简洁

zhong2013 · 发表于 2013-12-25 20:45:47

有时会有问题，短的圆弧求不了中点

pimixixi · 发表于 2014-2-21 08:38:37

对圆弧有用吗

拉契 · 发表于 2014-7-11 16:08:46

楼主参数也不说明一下……还有他们反馈的bug……

kkt123 · 发表于 2015-2-12 10:06:08

谢谢楼主的分享，短小精悍:@

laiz3000 · 发表于 2015-5-11 07:52:30

很精简哈:)

cq_qg68 · 发表于 2016-12-1 12:36:26

这个还真不错，实用简洁。

Lisphk · 发表于 2016-12-1 12:49:07

本帖最后由 Lisphk 于 2016-12-1 12:50 编辑

取中点的地方，应该是有问题的

pm (/ (- pe ps) 2))

应该为：

pm (/ (+ pe ps) 2))

yoyoho · 发表于 2016-12-1 14:06:13

谢谢楼主分享程序!!!!

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

取任何曲线起点和中点及终点通用函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分