再探 vlax-curve-getsecondDeriv和曲线上一点的切线和法线

utopio

谢谢分享，
解决了大问题了。

cchessbd

meflying 发表于 2003-12-29 08:54
看看这个程序，希望能看出这两个函数的意义（主要是返回值及参数的意义）

这个计算有误，未对(car dir1)为0的情况处理。而且画了2个方向，未展示矢向。

fangmin723

meflying 发表于 2003-12-29 08:54
看看这个程序，希望能看出这两个函数的意义（主要是返回值及参数的意义）

优化了当拾取点为第一象限点时除数为零的错误

1. (defun c:test(/ angf angs ent obj os para pt vecf vecs)
   
2.   (setq os (getvar "osmode"))
   
3.   (setq ent (car (entsel)))
   
4.   (setq obj (vlax-ename->vla-object ent))  
   
5.   (while (setq pt (getpoint "\n拾取点:"))
   
6.     (setq para (vlax-curve-getParamAtPoint obj (setq pt (vlax-curve-getClosestPointTo obj pt))))
   
7.                 ;;切线
   
8.     (setq vecf (vlax-curve-getFirstDeriv obj para))
   
9.                 (setq angf (angle pt (mapcar '+ pt vecf)))
   
10.                 ;;法线
    
11.                 (setq vecs (vlax-curve-getsecondDeriv obj para))
    
12.                 (setq angs (angle pt (mapcar '+ pt vecs)))
    
13.     (setvar "osmode" 0)
    
14.                 (command "_.line" (polar pt (+ angf pi) 100) (polar pt angf 100) "")
    
15.     (command "_.line" (polar pt (+ angs pi) 100) (polar pt angs 100) "")
    
16.     (setvar "osmode" os)
    
17.   )
    
18.   (setvar "osmode" os)
    
19.   (princ)
    
20. )

(defun c:test(/ angf angs ent obj os para pt vecf vecs)<br />   (setq os (getvar "osmode"))<br />   (setq ent (car (entsel)))<br />   (setq obj (vlax-ename->vla-object ent))  <br />   (while (setq pt (getpoint "\n拾取点:"))<br />     (setq para (vlax-curve-getParamAtPoint obj (setq pt (vlax-curve-getClosestPointTo obj pt))))<br />                 ;;切线<br />     (setq vecf (vlax-curve-getFirstDeriv obj para))<br />                 (setq angf (angle pt (mapcar '+ pt vecf)))<br />                 ;;法线<br />                 (setq vecs (vlax-curve-getsecondDeriv obj para))<br />                 (setq angs (angle pt (mapcar '+ pt vecs)))<br />     (setvar "osmode" 0)<br />                 (command "_.line" (polar pt (+ angf pi) 100) (polar pt angf 100) "")<br />     (command "_.line" (polar pt (+ angs pi) 100) (polar pt angs 100) "")<br />     (setvar "osmode" os)<br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )