[日积月累]：有用的lisp小工具（6）--画正弦曲线

841594

说明：
制作正弦曲线的小程序，结果是拟合的pline。
注意：1，为了让曲线光滑些，每波点数不要太少。
2，使用时请关闭捕捉。

2. 
   
3. (defun c:sin( / p0 p1 p2 hi x1 y1 ang dis steps n y0)
   
4.   (setvar "cmdecho" 0)
   
5.   (setvar "plinewid" 0)
   
6.   (setq p0 (getpoint "\n起始点: ")
   
7.         hi (getdist p0 "\n半径: ")
   
8.         dis (getdist "\n波长: ")
   
9.         steps (getint "\n每波的点数: ")
   
10.         n (getint "\n波数: "))
    
11. 
    
12.   (setq p1 p0 x1 (car p1) y0 (cadr p1) xt (car p2) ang 0)
    
13.   (command "pline" p1)
    
14.   (repeat (* n steps)
    
15.     (command
    
16.      (setq x1 (+ x1 (/ dis steps))
    
17.           ang (+ ang (/ pi steps 0.5))
    
18.           y1 (+ y0 (* hi (sin ang)))
    
19.           p1 (list x1 y1))
    
20.     )
    
21.   )
    
22.   (command "")
    
23.   (command "pedit" "l" "f" "x")
    
24.   (princ)
    
25. )

<br /> (defun c:sin( / p0 p1 p2 hi x1 y1 ang dis steps n y0)<br />   (setvar "cmdecho" 0)<br />   (setvar "plinewid" 0)<br />   (setq p0 (getpoint "\n起始点: ")<br />         hi (getdist p0 "\n半径: ")<br />         dis (getdist "\n波长: ")<br />         steps (getint "\n每波的点数: ")<br />         n (getint "\n波数: "))<br /> <br />   (setq p1 p0 x1 (car p1) y0 (cadr p1) xt (car p2) ang 0)<br />   (command "pline" p1)<br />   (repeat (* n steps)<br />     (command<br />      (setq x1 (+ x1 (/ dis steps))<br />           ang (+ ang (/ pi steps 0.5))<br />           y1 (+ y0 (* hi (sin ang)))<br />           p1 (list x1 y1))<br />     )<br />   )<br />   (command "")<br />   (command "pedit" "l" "f" "x")<br />   (princ)<br /> )

aeo

正弦?
波长=4*弓高.
把凸度改为1和-1就行了