取得曲线顶点坐标(”SPLINE”、”POLYLINE”等多种曲线)

取得曲线顶点坐标(”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

 

分享到 :