本文介绍了一段使用AutoLISP在AutoCAD环境中绘制正弦曲线的代码。通过定义函数mysin，设置变量x和dx，利用while循环计算每个点的y值，并调用command函数绘制线段，最终形成完整的正弦波形。此外，还添加了坐标轴和视图缩放，使图形更加直观。
1
(defun c:mysin ()
2 (setq x
0
3 dx (
/
pi
100
)
4 )
5 (setq y
0
)
6 (command
"
line
"
)
7
8 (
while
(
<=
x (
*
2
pi))
9 (setq y (sin x))
10 (command (list x y))
11
12 (setq x (
+
x dx))
13 )
14
15 (command
""
)
16 (command
"
line
"
17 (list
0
0
)
18 (list (
*
2
pi)
0
)
19
""
20 )
21 (command
"
line
"
22 (list
0
-
1
)
23 (list
0
1
)
24
""
25 )
26 (command
"
zoom
"
"
e
"
)
27)
28
(defun c:mysin ()2
(setq x
0
3
dx (
/
pi
100
)4
)5
(setq y
0
)6
(command
"
line
"
)7
8
(
while
(
<=
x (
*
2
pi))9
(setq y (sin x))10
(command (list x y))11
12
(setq x (
+
x dx))13
)14
15
(command
""
)16
(command
"
line
"
17
(list
0
0
)18
(list (
*
2
pi)
0
)19
""
20
)21
(command
"
line
"
22
(list
0
-
1
)23
(list
0
1
)24
""
25
)26
(command
"
zoom
"
"
e
"
)27
)28
扫一扫
4683
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
