vb中怎样提取cad中直线的顶点坐标

2024年11月15日 10:12

有1个网友回答

网友（1）：

(vl-load-com)
(setq pt1 (vlax-curve-getStartPoint obj));取得曲线起点
(setq pt2 (vlax-curve-getEndPoint obj));取得曲线端点
(setq dis1 (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)));取得曲线长度
(setq pt3 (vlax-curve-getPointAtDist obj (* dis1 0.5)));取得曲线中点
直线也是曲线一种可以提取