已知多义线上一点,求与其相邻两点

kry · 发表于 2009-6-19 16:46:00

已知多义线上一点,求与其相邻两点

liminnet · 发表于 2009-6-19 16:55:00

提示: 作者被禁止或删除内容自动屏蔽

kry · 发表于 2009-6-19 17:40:00

如图，已知PT1，求PT2，PT3~！楼上的方法好像求不出来哟，有没有现成的程序啊?

雪山飞狐_lzh · 发表于 2009-6-19 17:44:00

GetDistAtPoint

kry · 发表于 2009-6-19 17:50:00

小弟愚，请来点实例，还是不知道具体如何做

飞诗(fsxm) · 发表于 2009-6-19 19:38:00

你的点是pt,--->相邻的两点pt-,pt+
(setq pa (vlax-curve-getParamAtPoint pline pt))
(setq pa- (fix pa))
(setq pa+ (1+ pa-))
(setq pt- (vlax-curve-getPointAtParam pa-))
(setq pt+ (vlax-curve-getPointAtParam pa+))

caoyin · 发表于 2009-6-19 19:44:00

(defun test (pline pt / pp)
(setq pp (fix (vlax-curve-getParamAtPoint pline pt)))
(list (vlax-curve-getPointAtParam pline pp)
(vlax-curve-getPointAtParam pline (1+ pp))
)
)

kry · 发表于 2009-6-21 00:38:00

谢谢了，但你们忽略了一种情况，当所求点为起点时，+1 或-1只能求出一个点

kry · 发表于 2009-6-21 00:52:00

还想在这个上面升化下，如何求PT1到对边的垂点

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

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-6-19 16:55:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

已知多义线上一点,求与其相邻两点

本帖子中包含更多资源