1、用(setq ep (vlax-curve-getEndPoint curve-obj))取得終點坐標;
2、用(setq len (/ (vlax-curve-getDistAtPoint curve-obj ep) 2))獲得線段起至中點的長度;
3、用(setq mp (vlax-curve-getPointA2tDist curve-obj len))求出mp即為中點坐標;
4、用(setq sp (vlax-curve-getStartPoint curve-obj))可直接求出起點坐標。
註:1、curve-obj為曲線,需要用(vlax-ename->vla-object entname)函數將其轉換為vla類型;
2、調用這些函數前,需要添加壹行代碼:(vl-load-com),否則上述函數無法使用。