求高手帮忙修改一下画法线的小程序

rdfeiaw

 

 

下面是原码

(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点这边开始，谢谢

自贡黄明儒

可能lisp是根据画的先后顺序来判断曲线的起点和终点,故需利用这点(cadr (entsel)),写段程序判断它离起点近还是离终点近,然后让程序做出不同的反应.个人意见,仅供参考