返回的角度始终在“曲线”的方向上
您可以将其直接插入“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))
)
)
页:
1
[2]