返回的角度始终在“曲线”的方向上
您可以将其直接插入“customdivide”子函数，从而消除“getAngle”子函数
- (defun customDivide (block pl segments sc / d2 obj ip i ang dist)
- (setq d2 (vla-get-length (setq obj (vlax-ename->vla-object pl)))
- (setq i 1)
- (repeat (- segments 1)
- (setq ip (vlax-curve-getPointAtDist pl (setq dist (* i (/ d2 segments)) )))
- (setq ang (angle '(0.0 0.0 0.0) (vlax-curve-getfirstderiv obj (vlax-curve-getparamatdist obj dist)))
- (Insert ip block sc ang )
- (setq I (+ i 1))
- )
- )
| 
