[求助]：怎么判断多义线是否光滑

fengjianwei

如提
组代码是多少啊

WHGF

没有这样的组码，只能通过程序实现你说的功能。

KERRYWM

那请问如何用程序实现？谢谢！

舟自横

好久沒有來曉東交流啦，偶爾也只是來灌下水。。。。
呵呵。。。
不知道樓主的所謂"光滑“是什么意思。。。猜應該是指復線在某個頂點處平滑過度吧。。在所有頂點都平滑過度那么這復線就"光滑"咯?
以前有寫過這樣一段不知是否符合樓主的意思。。

2. 
   
3. (defun hy_pointissharp(pline point / obj param deriv-1 deriv);;;判斷復線上的頂點是否為尖點
   
4.   (defun count(o num)
   
5.     (cond ((< o 0) (+ num o))
   
6.           ((> o num) (- o num))
   
7.           (t o)
   
8.      )
   
9.     )
   
10.   (setq obj (vlax-ename->vla-object pline)
    
11.         param (vlax-curve-getparamatpoint obj point)
    
12.         numo (cdr (assoc 90 (entget pline)))
    
13.         )
    
14.   
    
15.   (if(vlax-curve-isclosed pline)
    
16.      (progn
    
17.      (setq deriv-1 (vlax-curve-getfirstderiv obj (count (- param 1e-10) numo))
    
18.            deriv (vlax-curve-getfirstderiv obj param)
    
19.         )
    
20.      (cond ((and (not (equal (car deriv-1) 0 1e-8)) (not (equal (car deriv) 0 1e-8)))
    
21.             (if (equal (/ (cadr deriv-1) (car deriv-1))
    
22.              (/ (cadr deriv) (car deriv))
    
23.              1e-3)
    
24.              t
    
25.              nil
    
26.             ))
    
27.            ((and (equal (car deriv-1) 0 1e-8) (equal (car deriv) 0 1e-8)) t)
    
28.            (t nil)
    
29.            )
    
30.   )
    
31.      (if (and (/= param (vlax-curve-getstartparam obj))
    
32.               (/= param (vlax-curve-getendparam obj))
    
33.               )
    
34.        (progn (setq deriv-1 (vlax-curve-getfirstderiv obj (count (- param 1e-10) numo))
    
35.                     deriv (vlax-curve-getfirstderiv obj param)
    
36.                     )
    
37.               (cond ((and (not (equal (car deriv-1) 0 1e-8)) (not (equal (car deriv) 0 1e-8)))
    
38.             (if (equal (/ (cadr deriv-1) (car deriv-1))
    
39.              (/ (cadr deriv) (car deriv))
    
40.              1e-3)
    
41.              t
    
42.              nil
    
43.             ))
    
44.            ((and (equal (car deriv-1) 0 1e-8) (equal (car deriv) 0 1e-8)) t)
    
45.            (t nil)
    
46.            )
    
47.           )
    
48.        nil)
    
49.     )
    
50.   )

<br /> (defun hy_pointissharp(pline point / obj param deriv-1 deriv);;;判斷復線上的頂點是否為尖點<br />   (defun count(o num)<br />     (cond ((< o 0) (+ num o))<br />           ((> o num) (- o num))<br />           (t o)<br />      )<br />     )<br />   (setq obj (vlax-ename->vla-object pline)<br />         param (vlax-curve-getparamatpoint obj point)<br />         numo (cdr (assoc 90 (entget pline)))<br />         )<br />   <br />   (if(vlax-curve-isclosed pline)<br />      (progn<br />      (setq deriv-1 (vlax-curve-getfirstderiv obj (count (- param 1e-10) numo))<br />            deriv (vlax-curve-getfirstderiv obj param)<br />         )<br />      (cond ((and (not (equal (car deriv-1) 0 1e-8)) (not (equal (car deriv) 0 1e-8)))<br />             (if (equal (/ (cadr deriv-1) (car deriv-1))<br />              (/ (cadr deriv) (car deriv))<br />              1e-3)<br />              t<br />              nil<br />             ))<br />            ((and (equal (car deriv-1) 0 1e-8) (equal (car deriv) 0 1e-8)) t)<br />            (t nil)<br />            )<br />   )<br />      (if (and (/= param (vlax-curve-getstartparam obj))<br />               (/= param (vlax-curve-getendparam obj))<br />               )<br />        (progn (setq deriv-1 (vlax-curve-getfirstderiv obj (count (- param 1e-10) numo))<br />                     deriv (vlax-curve-getfirstderiv obj param)<br />                     )<br />               (cond ((and (not (equal (car deriv-1) 0 1e-8)) (not (equal (car deriv) 0 1e-8)))<br />             (if (equal (/ (cadr deriv-1) (car deriv-1))<br />              (/ (cadr deriv) (car deriv))<br />              1e-3)<br />              t<br />              nil<br />             ))<br />            ((and (equal (car deriv-1) 0 1e-8) (equal (car deriv) 0 1e-8)) t)<br />            (t nil)<br />            )<br />           )<br />        nil)<br />     )<br />   )

程序說明:pline 是復線  point 是復線上的一頂點 如果程序返回T說明在該點處 不"平滑"反之則"平滑"..
主要思路:取得距離該點處很近前后各一點,判斷各自的切線斜率，如果很接近(其中會有一個很小的誤差值存在）那末表示該點平滑否則則為尖點 (利用一階導數)