两点画两点间固定比例的椭圆！

yaojing38

2. (defun make-Ellipse (pt11 pt22 / dis pd pt0 pt33 pt44)
   
3.   (if (< (abs (- (cadr pt22) (cadr pt11))) (abs (- (car pt22) (car pt11)))) (setq pd t))
   
4.   (setq pt33 (polar pt11 (angle pt11 pt22)  (/ (distance pt11 pt22) 2)))
   
5.   (setq dis (distance pt33 pt22))
   
6.   (setq pt0 (trans '(0. 0. 0.) 0 1))
   
7.   (if pd (setq pt44 (polar pt0  (* 0 pi) dis)) (setq pt44 (polar pt0  (* 0.5 pi) dis))  )
   
8.   (setq  pt33  (trans pt33 1 0)  pt44  (trans pt44 1 0))
   
9.   (entmake
   
10.     (list
    
11.       '(0 . "ELLIPSE")
    
12.       '(100 . "AcDbEntity")
    
13.       '(100 . "AcDbEllipse")
    
14.       (cons 10 pt33)
    
15.       (cons 11 pt44)
    
16.       (cons 40 0.375787)
    
17.       (cons 41 0.0)
    
18.       (cons 42 6.28319)
    
19.     )
    
20.   )
    
21. )

(defun make-Ellipse (pt11 pt22 / dis pd pt0 pt33 pt44)<br />   (if (< (abs (- (cadr pt22) (cadr pt11))) (abs (- (car pt22) (car pt11)))) (setq pd t))<br />   (setq pt33 (polar pt11 (angle pt11 pt22)  (/ (distance pt11 pt22) 2)))<br />   (setq dis (distance pt33 pt22))<br />   (setq pt0 (trans '(0. 0. 0.) 0 1))<br />   (if pd (setq pt44 (polar pt0  (* 0 pi) dis)) (setq pt44 (polar pt0  (* 0.5 pi) dis))  )<br />   (setq  pt33  (trans pt33 1 0)  pt44  (trans pt44 1 0))<br />   (entmake<br />     (list<br />       '(0 . "ELLIPSE")<br />       '(100 . "AcDbEntity")<br />       '(100 . "AcDbEllipse")<br />       (cons 10 pt33)<br />       (cons 11 pt44)<br />       (cons 40 0.375787)<br />       (cons 41 0.0)<br />       (cons 42 6.28319)<br />     )<br />   )<br /> )

有时候我们只是需要一个简单的椭圆，分享下经验！有需要的可以自己研究下！

xyp1964

1. (defun Make-Ellipse (p1 p2 / pc pa pb)
   
2.   ;(Make-Ellipse (setq p0 (getpoint  "\n基点<退出>: ")) (setq p1 (getcorner p0 "\n下一点<退出>: ")))
   
3.   (setq pc (mapcar '(lambda (x y) (* (+ x y) 0.5)) p1 p2)
   
4.         pa (list (car p2) (cadr pc))
   
5.         pb (list (car pc) (cadr p2))
   
6.   )
   
7.   (command "_ellipse" "c" "non" pc "non" pa "non" pb)
   
8.   (entlast)
   
9. )

(defun Make-Ellipse (p1 p2 / pc pa pb)<br />   ;(Make-Ellipse (setq p0 (getpoint  "\n基点<退出>: ")) (setq p1 (getcorner p0 "\n下一点<退出>: ")))<br />   (setq pc (mapcar '(lambda (x y) (* (+ x y) 0.5)) p1 p2)<br />         pa (list (car p2) (cadr pc))<br />         pb (list (car pc) (cadr p2))<br />   )<br />   (command "_ellipse" "c" "non" pc "non" pa "non" pb)<br />   (entlast)<br /> )

muai2010

有空研究下