(if (null vlax-dump-object) (vl-load-com) ) 加载vlax扩展函数ent是(多段线图元配唤)猜拍
(Setq ob (Vlax-Ename->Vla-Object ent) 转换为VLA对象
st (Vlax-curve-getStartPoint ob) 取得曲线开始点
en (Vlax-curve-getEndPoint ob)取得曲线结束点
L1 (Vlax-curve-getDistAtpoint ob en)取得曲线长度
pm (vlax-curve-getPointAtDist ob (* L1 0.5))取得曲线中点根据长度定位点
)
以上函数用到里面即可。定位点要确认这个多段线不是封闭的线,封闭的线不能够定位。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)