下面是原码
(defun C:fx () (vl-load-com) (setq a (vlax-ename->vla-object (car (entsel)))) (setq i (getreal "\n输入计算距离:")) (setq b (vlax-curve-getpointatdist a i)) (setq c (vlax-curve-getparamatpoint a b)) (setq d (vlax-curve-getfirstderiv a c)) (setq e (atan (cadr d) (car d))) (setq m (polar b (+ e (/ pi 2)) 100)) (setq n (polar b (- e (/ pi 2)) 100)) (command ".line" m n "") )
在计算圆曲线跟第二段缓和曲线的时候是从后面开始的,能否修改成从ZH点这边开始,谢谢 |