vla-addspline

iLisp

2. 
   
3. (defun c:test (/ pt ptl pll)
   
4.   (while (setq pt (getpoint "\nPoint: "))
   
5.     (setq ptl (cons pt ptl))
   
6.   )
   
7.   (if (> (length ptl) 1)
   
8.     (progn
   
9.       (setq pll        (vlax-make-variant
   
10.                   (vlax-safearray-fill
    
11.                     (vlax-make-safearray
    
12.                       vlax-vbdouble
    
13.                       (cons 0 (1- (* (length ptl) 3)))
    
14.                     )
    
15.                     (apply 'append ptl)
    
16.                   )
    
17.                 )
    
18.       )
    
19.       (vla-addspline
    
20.         (vlax-get-property
    
21.           (vlax-get-property (vlax-get-acad-object) 'activedocument)
    
22.           'modelspace
    
23.         )
    
24.         pll
    
25.         (vlax-3d-point '(0. 0. 0.))
    
26.         (vlax-3d-point '(0. 0. 0.))
    
27.       )
    
28.     )
    
29.   )
    
30. )

<br /> (defun c:test (/ pt ptl pll)<br />   (while (setq pt (getpoint "\nPoint: "))<br />     (setq ptl (cons pt ptl))<br />   )<br />   (if (> (length ptl) 1)<br />     (progn<br />       (setq pll        (vlax-make-variant<br />                   (vlax-safearray-fill<br />                     (vlax-make-safearray<br />                       vlax-vbdouble<br />                       (cons 0 (1- (* (length ptl) 3)))<br />                     )<br />                     (apply 'append ptl)<br />                   )<br />                 )<br />       )<br />       (vla-addspline<br />         (vlax-get-property<br />           (vlax-get-property (vlax-get-acad-object) 'activedocument)<br />           'modelspace<br />         )<br />         pll<br />         (vlax-3d-point '(0. 0. 0.))<br />         (vlax-3d-point '(0. 0. 0.))<br />       )<br />     )<br />   )<br /> )

ynhh

能来个应用示范动画就好了

xvjiex

感谢分享vla-addspline

hh_lj007

感谢分享源码，测试可用。