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

2024-11-15 10:12:24
推荐回答(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)));取得曲线中点
直线也是曲线一种可以提取