[LISP函数]：获取曲线等分点

eachy

2. 
   
3. (defun ea:divpl        (n obj / pam dis div ptl)
   
4.   (if (> n 1)
   
5.     (progn
   
6.       (setq dis        0.
   
7.             div        (/ (vlax-curve-getdistatparam
   
8.                      obj
   
9.                      (vlax-curve-getendparam obj)
   
10.                    )
    
11.                    ;;length
    
12.                    n
    
13.                 )
    
14.       )
    
15.       (while (< dis len)
    
16.         (setq pam (vlax-curve-getParamAtDist obj dis)
    
17.               dis (+ dis div)
    
18.         )
    
19.         (setq ptl (cons (vlax-curve-getpointatparam obj pam) ptl))
    
20.       )
    
21.       (setq ptl (reverse ptl))
    
22.     )
    
23.     (setq ptl (list (vlax-curve-getstartpoint obj)
    
24.                     (vlax-curve-getendpoint obj)
    
25.               )
    
26.     )
    
27.   )
    
28.   ptl
    
29. )
    

<br /> (defun ea:divpl        (n obj / pam dis div ptl)<br />   (if (> n 1)<br />     (progn<br />       (setq dis        0.<br />             div        (/ (vlax-curve-getdistatparam<br />                      obj<br />                      (vlax-curve-getendparam obj)<br />                    )<br />                    ;;length<br />                    n<br />                 )<br />       )<br />       (while (< dis len)<br />         (setq pam (vlax-curve-getParamAtDist obj dis)<br />               dis (+ dis div)<br />         )<br />         (setq ptl (cons (vlax-curve-getpointatparam obj pam) ptl))<br />       )<br />       (setq ptl (reverse ptl))<br />     )<br />     (setq ptl (list (vlax-curve-getstartpoint obj)<br />                     (vlax-curve-getendpoint obj)<br />               )<br />     )<br />   )<br />   ptl<br /> )<br />

LUCAS

只有LINE有LENGTH性質,其他線可沒有!

eachy

最初由 LUCAS 发布
[B]只有LINE有LENGTH性質,其他線可沒有! [/B]

谢谢，已更改

chenhang1203

没什么用好象。。。怎么个用呢

LUCAS

把3DSPLINE等份後再改畫成3DPLINE,3DPLINE可作為擠出路徑

lsjjm

最初由 eachy 发布
[B][CODE] 获取曲线等分点 [/B]

直接用DIVIDE不行吗?

LUCAS

"获取曲线等分点"沒有實體產生,程序中途出錯後可以不管....

aeo

最初由 eachy 发布
[B][CODE]
(defun ea:divpl        (n obj / pam dis div ptl)
  (if (> n 1)
    (progn
      (setq dis        0.
            div        (/ (vlax-curve-getdistatparam
                     obj
                     (vlax-curve-getendparam obj)
                   )
                   ... [/B]

我以前用xd_api写过，最后一点肯定是得不到的.
应该是精度的关系.因为先除后乘，可能和原来的数差一点点，就不在曲线上了.
不知道vl怎么样?



(< dis len)
len上面没有.