[求助]：新人求助，如何过4点确定1条抛物线，如何画呢？

kikichou

4点坐标是960,810   882.5,632   1117.5,632   1040,810
谢谢大人帮忙

27182818284

可以用切割圆锥法来做。
演示1

27182818284

演示2

27182818284

dwg文件

ahlzl

哈哈,这是猫王的专利啊.我本想叫大家去看置顶的贴子!
我在LISP论坛发了一个程序贴:http://www.xdcad.net/forum/showthread.php?threadid=142652  改一下,用在这了.

2. 
   
3. (defun c:pwx (/ mspace pt pt1 ptt i x y x1 x2 n a b tmp myobj)
   
4.   ;本程序修改后，可画任意函数曲线。
   
5.   (vl-load-com)
   
6.   (setq        mspace (vla-get-modelspace
   
7.                  (vla-get-activedocument (vlax-get-acad-object))
   
8.                )
   
9.   )
   
10.   (setq a (/ 178 (- (* 117.5 117.5) 1600)))
    
11.   (setq b (+ 810 (* a 1600)))
    
12.   [color=red](setq n 1)                             ;函数精度（越小，则准确）
    
13.   (setq x1 800                             ;自变量下限
    
14.         x2 1200)                           ;自变量上限
    
15.   (setq y1 (- b (* (- x1 1000)(- x1 1000) a)))                    ;函数公式[/color]
    
16.   (setq pt (list x1 y1))
    
17.   (setq i (+ x1 n))
    
18.   
    
19.   (while (<= i x2)
    
20.     (setq x i)
    
21.     (setq y (- b (* (- i 1000)(- i 1000) a)))                     ;函数公式
    
22.     (setq pt1 (list x y))
    
23.     (setq pt (append pt pt1))
    
24.     (setq i (+ i n))
    
25.     (setq ptt pt)
    
26.   )
    
27. 
    
28.   (setq        tmp (vlax-make-safearray
    
29.               vlax-vbDouble
    
30.               (cons 0 (- (length ptt) 1))
    
31.             )
    
32.   )
    
33.   (vlax-safearray-fill tmp ptt)
    
34.   (setq myobj (vla-addlightweightpolyline mspace tmp))
    
35.   (princ)
    
36. )

<br /> (defun c:pwx (/ mspace pt pt1 ptt i x y x1 x2 n a b tmp myobj)<br />   ;本程序修改后，可画任意函数曲线。<br />   (vl-load-com)<br />   (setq        mspace (vla-get-modelspace<br />                  (vla-get-activedocument (vlax-get-acad-object))<br />                )<br />   )<br />   (setq a (/ 178 (- (* 117.5 117.5) 1600)))<br />   (setq b (+ 810 (* a 1600)))<br />   [color=red](setq n 1)                             ;函数精度（越小，则准确）<br />   (setq x1 800                             ;自变量下限<br />         x2 1200)                           ;自变量上限<br />   (setq y1 (- b (* (- x1 1000)(- x1 1000) a)))                    ;函数公式[/color]<br />   (setq pt (list x1 y1)) <br />   (setq i (+ x1 n))<br />   <br />   (while (<= i x2)<br />     (setq x i)<br />     (setq y (- b (* (- i 1000)(- i 1000) a)))                     ;函数公式<br />     (setq pt1 (list x y))<br />     (setq pt (append pt pt1))<br />     (setq i (+ i n))<br />     (setq ptt pt)<br />   )<br /> <br />   (setq        tmp (vlax-make-safearray<br />               vlax-vbDouble<br />               (cons 0 (- (length ptt) 1))<br />             )<br />   )<br />   (vlax-safearray-fill tmp ptt)<br />   (setq myobj (vla-addlightweightpolyline mspace tmp))<br />   (princ)<br /> )

加载这个程序,运行便可.
to 27182818284:好久不见!看这 http://www.xdcad.net/forum/showt ... y=&pagenumber=1  我程序正在写,你先来顶.用对付柔柔那题的方法……