如果起点和终点不重合，封闭点表

XDSoft · 发表于 2013-6-7 14:26:10

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

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

×

;|
如果起点和终点不重合，封闭点表
|;
(defun XD::PnTs:Close (ptl)
(if (not (equal (car ptl) (last ptl) 1e-5))
(reverse (cons (car ptl) (reverse ptl)))
ptl
)
)

命令: !pts
((90049.9 42295.5 0.0) (89996.5 42295.5 0.0) (90049.9 42240.4 0.0) (89996.5 42240.4 0.0))

命令: (XD::PNTS:CLOSE PTS)
((90049.9 42295.5 0.0) (89996.5 42295.5 0.0) (90049.9 42240.4 0.0) (89996.5 42240.4 0.0) (90049.9 42295.5 0.0))

zyhandw · 发表于 2013-6-7 17:52:40

多谢楼主分享，程序简单易用！！

fkyourmather · 发表于 2013-6-9 23:04:25

本帖最后由 fkyourmather 于 2013-6-9 23:05 编辑

貌似我看懂了

q3_2006 · 发表于 2013-6-17 08:26:57

似乎也能明白！

wowan1314 · 发表于 2013-6-17 09:20:36

本帖最后由 wowan1314 于 2013-6-17 10:47 编辑

我觉的对于已经封闭的表，还是直接返回本身。这样省的判断表是否封闭，直接丢给函数处理就封闭了。

(defun XD::PnTs:Close (ptl)
(if (equal (car ptl) (last ptl) 1e-5)
ptl
(reverse (cons (car ptl) (reverse ptl)))
)
)

kkt123 · 发表于 2015-2-15 09:36:46

多谢楼主分享，程序简单易用！！;P

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

[点表] 如果起点和终点不重合，封闭点表

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

评分

相关帖子

评分