[求助]：如何实现最后图形是整体的？

丹佛

请教：最近想用lisp画抛物线（见附件），可生成的图形都是一段一段的线段，能用什么方法实现最后图形是一整体的，就向用pline画出来的一样？

XDSoft

最初由 丹佛 发布
[B]请教：最近想用lisp画抛物线（见附件），可生成的图形都是一段一段的线段，能用什么方法实现最后图形是一整体的，就向用pline画出来的一样？ [/B]

ACAD没有“抛物线”实体，所以只能模拟，你可以控制误差，满足视觉和出图要求就可以了。

ahlzl

要画整体的抛物线,看这:http://www.xdcad.net/forum/showthread.php?s=&threadid=111387

丹佛

谢谢晓东和ahlzl斑竹，其实我的附件中的lisp已经能够画抛物线了，只是画出来的是一段一段多义线，不便于编辑， 我想请教有没有方法使画出来的抛物线是一个整体？

ahlzl

最初由 丹佛 发布
[B]谢谢晓东和ahlzl斑竹，其实我的附件中的lisp已经能够画抛物线了，只是画出来的是一段一段多义线，不便于编辑， 我想请教有没有方法使画出来的抛物线是一个整体？ [/B]

我写了一个：

2. 
   
3. (defun c:pwx (/ mspace pt pt1 ptt i x y x1 x2 n 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 n 1)                             ;函数精度（越小，则准确）
    
11.   (setq x1 -10                           ;自变量下限
    
12.         x2 10)                           ;自变量上限
    
13.   (setq y1 (* x1 x1))                    ;函数公式
    
14.   (setq pt (list x1 y1))
    
15.   (setq i (+ x1 n))
    
16.   
    
17.   (while (<= i x2)
    
18.     (setq x i)
    
19.     (setq y (* i i))                     ;函数公式
    
20.     (setq pt1 (list x y))
    
21.     (setq pt (append pt pt1))
    
22.     (setq i (+ i n))
    
23.     (setq ptt pt)
    
24.   )
    
25. 
    
26.   (setq        tmp (vlax-make-safearray
    
27.               vlax-vbDouble
    
28.               (cons 0 (- (length ptt) 1))
    
29.             )
    
30.   )
    
31.   (vlax-safearray-fill tmp ptt)
    
32.   (setq myobj (vla-addlightweightpolyline mspace tmp))
    
33.   (princ)
    
34. )

<br /> (defun c:pwx (/ mspace pt pt1 ptt i x y x1 x2 n 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 n 1)                             ;函数精度（越小，则准确）<br />   (setq x1 -10                           ;自变量下限<br />         x2 10)                           ;自变量上限<br />   (setq y1 (* x1 x1))                    ;函数公式<br />   (setq pt (list x1 y1)) <br />   (setq i (+ x1 n))<br />   <br />   (while (<= i x2)<br />     (setq x i)<br />     (setq y (* i i))                     ;函数公式<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 /> )