在您的例程中插入以下代码:
- (setq SplineEntity (ssget "_:S" '((0 . "SPLINE")))) ;select spline entity (filter out other)
- (if (= (sslength SplineEntity) 1) ;test if valid user selection
- (progn
- (setq SplineEntity (ssname SplineEntity 0)
- SplineEntVLA (vlax-ename->vla-object SplineEntity)) ;convert spline to VLA object
- (setq SplineEnd1st (vlax-curve-getStartPoint SplineEntity) ;list spline's endpoints
- SplineEnd2nd (vlax-curve-getEndPoint SplineEntity))
- )
- )
当做 |