[求助]：CAD编程求助

目不识丁

各位高手，请帮编写一个在CAD中运行、绘制y=Kx^2曲线的程序，谢谢！

xyp1964

试试签名栏下的“经典曲线”中的“抛物线”程序。

david96007

2. 
   
3. 
   
4. (defun c:tt (/ x1 x2 x3 k fy y2 y1 pt1 pt2)
   
5.   (setq        x1     (getreal "输入起始x值<-10>:")
   
6.         x3     (getreal "输入终止x值<10>:")
   
7.         k      (getreal "输入参数K<1>:")
   
8.         delt_x 0.1
   
9.   )
   
10.   (if x1
    
11.     ()
    
12.     (setq x1 -10)
    
13.   )
    
14.   (if x3
    
15.     ()
    
16.     (setq x3 10)
    
17.   )
    
18.   (if k
    
19.     ()
    
20.     (setq k 1)
    
21.   )
    
22.   (defun fy (x /) (setq y (* k x x)))
    
23.   (while (< x1 (- x3 delt_x))z
    
24.     (setq y1  (fy x1)
    
25.           x2  (+ x1 delt_x)
    
26.           y2  (fy x2)
    
27.           pt1 (list x1 y1 0)
    
28.           pt2 (list x2 y2 0)
    
29.     )
    
30.     (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2))
    
31.     )
    
32.     (setq x1 x2)
    
33.   )
    
34.   (princ)
    
35. )

<br /> <br /> (defun c:tt (/ x1 x2 x3 k fy y2 y1 pt1 pt2)<br />   (setq        x1     (getreal "输入起始x值<-10>:")<br />         x3     (getreal "输入终止x值<10>:")<br />         k      (getreal "输入参数K<1>:")<br />         delt_x 0.1<br />   )<br />   (if x1<br />     ()<br />     (setq x1 -10)<br />   )<br />   (if x3<br />     ()<br />     (setq x3 10)<br />   )<br />   (if k<br />     ()<br />     (setq k 1)<br />   )<br />   (defun fy (x /) (setq y (* k x x)))<br />   (while (< x1 (- x3 delt_x))z<br />     (setq y1  (fy x1)<br />           x2  (+ x1 delt_x)<br />           y2  (fy x2)<br />           pt1 (list x1 y1 0)<br />           pt2 (list x2 y2 0)<br />     )<br />     (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2))<br />     )<br />     (setq x1 x2)<br />   )<br />   (princ)<br /> )

目不识丁

2楼的朋友，请给一个链接。3楼的朋友，你的程序如何使用。望告之，谢谢！

xbx7920

最初由 目不识丁 发布
[B]2楼的朋友，请给一个链接。3楼的朋友，你的程序如何使用。望告之，谢谢！ [/B]

宝刀在手，却不知如何屠龙！