API应用 Ellipse之平行 Ellipse(更新)

st788796

对Ellipse用 Offset 命令后 生成的将是一个模拟椭圆，本程序简单演示了对椭圆做平行椭圆，用这个方法还可以扩展到 SPline 的平行 Spline

1. (defun c:tt (/ callback e p0 ss obj p0 ret ell majorradius minorradius)
   
2.   (defun callback (dynpt / d)
   
3.     (setq d (distance dynpt (xdrx_curve_getclosestpoint  e dynpt)))
   
4.     (if        (not (xdrx_point_isinside dynpt e))
   
5.       (progn
   
6.         (vla-put-MajorRadius obj (+ d majorradius))
   
7.         (vla-put-minorradius obj (+ d minorradius))
   
8.       )
   
9.       (if (< d minorradius)
   
10.         (progn
    
11.           (vla-put-majorradius obj (- majorradius d))
    
12.           (vla-put-minorradius obj (- minorradius d))
    
13.         )
    
14.       )
    
15.     )
    
16.     (setq p0 dynpt)
    
17.   )
    
18.   (if (setq e (car (xdrx_entsel "\nPick Ellipse: " '((0 . "ellipse")))))
    
19.     (progn
    
20.       (xd::begin)
    
21.       (setq ss                (xdrx_entity_copy e '(0. 0. 0.) '(0. 0. 0.))
    
22.             MajorRadius        (xdrx_vector_length
    
23.                           (xdrx_getpropertyvalue e "MajorAxis")
    
24.                         )
    
25.             MinorRadius        (xdrx_vector_length
    
26.                           (xdrx_getpropertyvalue e "MinorAxis")
    
27.                         )
    
28.             obj                (vlax-ename->vla-object (ssname ss 0))
    
29.       )
    
30.       (setq ret (xdrx_pointmonitor "callback" ss))
    
31.       (getpoint)
    
32.       (xdrx_pointmonitor)
    
33.       (xd::end)
    
34.     )
    
35.   )
    
36.   (princ)
    
37. )

(defun c:tt (/ callback e p0 ss obj p0 ret ell majorradius minorradius)<br />   (defun callback (dynpt / d)<br />     (setq d (distance dynpt (xdrx_curve_getclosestpoint  e dynpt)))<br />     (if        (not (xdrx_point_isinside dynpt e))<br />       (progn<br />         (vla-put-MajorRadius obj (+ d majorradius))<br />         (vla-put-minorradius obj (+ d minorradius))<br />       )<br />       (if (< d minorradius)<br />         (progn<br />           (vla-put-majorradius obj (- majorradius d))<br />           (vla-put-minorradius obj (- minorradius d))<br />         )<br />       )<br />     )<br />     (setq p0 dynpt)<br />   )<br />   (if (setq e (car (xdrx_entsel "\nPick Ellipse: " '((0 . "ellipse")))))<br />     (progn<br />       (xd::begin)<br />       (setq ss                (xdrx_entity_copy e '(0. 0. 0.) '(0. 0. 0.))<br />             MajorRadius        (xdrx_vector_length<br />                           (xdrx_getpropertyvalue e "MajorAxis")<br />                         )<br />             MinorRadius        (xdrx_vector_length<br />                           (xdrx_getpropertyvalue e "MinorAxis")<br />                         )<br />             obj                (vlax-ename->vla-object (ssname ss 0))<br />       )<br />       (setq ret (xdrx_pointmonitor "callback" ss))<br />       (getpoint)<br />       (xdrx_pointmonitor)<br />       (xd::end)<br />     )<br />   )<br />   (princ)<br /> )

zwwen12

只可一直放大，不能缩小。输入数字也没用，希望完善。

st788796

zwwen12 发表于 2013-11-15 21:14
只可一直放大，不能缩小。输入数字也没用，希望完善。

更新了，可拖动，可输入距离