ljxkm 发表于 2019-9-6 18:12:51

取得曲线顶点坐标（"SPLINE"、"POLYLINE"等多种曲线）

取得曲线顶点，适用于：样条曲线-"SPLINE"；三维多段线"-POLYLINE"；多义线-"LWPOLYLINE"；椭圆弧-"ELLIPSE"；圆弧-"ARC"；直线-"line"：
   编程需要，在网上发表话题“如何取得多段线顶点坐标”，可能问题有点简单了，没人理会，自己写了一个，觉得还基本可用，贴出源码，有同样需要的可下载使用。

;;;;函数名称:        ljx-getplpoint
;;;;调用格式:        (ljx-getplpoint e)
;;;;参数说明:        e ----- 图元
;;;;返回值:        返回曲线顶点表，三维点如：((0 0 0) (100 200 20) (1000 15000 200))
;;;;使用示例：(setq lsta (ljx-getplpoint (car (entsel "\n请选择曲线"))))      
;;;;函数简介:        取得曲线顶点，适用于：样条曲线-"SPLINE"；三维多段线"-POLYLINE"；多义线-"LWPOLYLINE"；椭圆弧-"ELLIPSE"；圆弧-"ARC"；直线-"line"
;;;;子函数：    ch-lst
;;;;调用格式：(ch-lst ei lsti)
;;;;参数说明：ei----- 图元lsti----取得的初始顶点表
;;;;返回值:   返回处理后的三维曲线顶点表
;;;;函数来源:        原创
;;;;函数作者:        jixiangluo
;;;;适用版本:        不限
;;;;最后更新时间:        2019-09-06

寒潮大冬瓜 发表于 2024-9-19 10:13:25

很好→很棒！很好~很棒！！很好……很棒！！！期待能同时实现样条曲线拟合点的坐标和椭圆长轴短轴端点坐标提取！

Klein 发表于 2024-9-20 12:31:22

刚好寻找POLYLINE提取顶点的程序，学习了，给楼主点赞！

845245015 发表于 2020-8-18 08:07:43

日知其所亡,月无忘其所能,可谓好学也已矣

ketxu 发表于 2019-9-11 13:06:07

Thanks for sharing ^^

tianbeiyuan 发表于 2019-11-23 20:22:58

正需要的好程序。。

LIULISHENG 发表于 2020-4-30 11:27:30


正需要的好程序

liutong1997 发表于 2020-5-4 04:59:05

多义线中心点坐标怎么取的

电赛加油 发表于 2020-8-20 18:57:34

多谢大神分享，学习一下！

kpl 发表于 2021-7-19 16:12:54

这么我用不起呢？

菜冬瓜 发表于 2023-5-20 20:38:19

正需要的好程序。。

依然小小鸟 发表于 2023-12-26 20:39:15

不错的帖子 顶一下
页: [1] 2
查看完整版本: 取得曲线顶点坐标（"SPLINE"、"POLYLINE"等多种曲线）