[转贴]：做一正弦曲线

wowoaicad

2. (defun c:sinhs (/ ptr oror aa ll n x0 xx delta ang y0 pt2)
   
3. (setq ptr (list 0.0 0.0))
   
4. (setq oror (getpoint "\n请输入基点：<0,0>"))
   
5. (if (= oror nil)
   
6. (setq oror ptr)
   
7. )
   
8. (setq aa (getdist oror "\n请输入幅度a: <20>"))
   
9. (if (= aa nil)
   
10. (setq aa 20.0)
    
11. )
    
12. (setq ll (getdist oror "\n请输入周期l: <40>"))
    
13. (if (= ll nil)
    
14. (setq ll 40.0)
    
15. )
    
16. (setq n (getint "\n请输入段数n: <32>"))
    
17. (if (= n nil)
    
18. (setq n 32)
    
19. )
    
20. (setq x0 0)
    
21. (setq ang 0)
    
22. (setq xx (/ ll n))
    
23. (setq delta (/ (* pi 2) n))
    
24. (command "ucs" "n" oror)
    
25. (command "pline" ptr)
    
26. (repeat n
    
27. (setq
    
28. x0 (+ x0 xx)
    
29. ang (+ ang delta)
    
30. y0 (* aa (sin ang))
    
31. pt2 (list x0 y0)
    
32. )
    
33. (command pt2)
    
34. )
    
35. (command "")
    
36. (command "ucs" "w")
    
37. )
    

(defun c:sinhs (/ ptr oror aa ll n x0 xx delta ang y0 pt2)<br /> (setq ptr (list 0.0 0.0))<br /> (setq oror (getpoint "\n请输入基点：<0,0>"))<br /> (if (= oror nil)<br /> (setq oror ptr)<br /> )<br /> (setq aa (getdist oror "\n请输入幅度a: <20>"))<br /> (if (= aa nil)<br /> (setq aa 20.0)<br /> )<br /> (setq ll (getdist oror "\n请输入周期l: <40>"))<br /> (if (= ll nil)<br /> (setq ll 40.0)<br /> )<br /> (setq n (getint "\n请输入段数n: <32>"))<br /> (if (= n nil)<br /> (setq n 32)<br /> )<br /> (setq x0 0)<br /> (setq ang 0)<br /> (setq xx (/ ll n))<br /> (setq delta (/ (* pi 2) n))<br /> (command "ucs" "n" oror)<br /> (command "pline" ptr)<br /> (repeat n<br /> (setq<br /> x0 (+ x0 xx)<br /> ang (+ ang delta)<br /> y0 (* aa (sin ang))<br /> pt2 (list x0 y0)<br /> )<br /> (command pt2)<br /> )<br /> (command "")<br /> (command "ucs" "w")<br /> )<br />