阿基米德螺线宏程序怎么写

阿基米德螺旋线宏程序

#1=0（极径）

#2=0（极角）

#3=10(螺距-极径每360°的增量）

#4=100（螺旋线最大直径）

#5=200（F）

G54G90G00G43H01Z100

M03S2000

Z3

G01Z-2F#5

#100=#3/360

N1#1=#1+#100

#2=#2+1

IF[#1GE#4]GOTO2

#101=#1*COS[#2]

#102=#1*SIN[#2]

G1X#101Y#102

GOTO1

N2G00Z100

M30

这是原来的程序，现在可以用极坐标，更简单。

多交流啊！

Columns("A:B").Delete

Columns("H").Delete

End Sub

Sub 删除行()

Dim I

For I = 5000 To 1 Step -1

If Cells(I, "e") <>"" And Cells(I, "d") = "" Then

Rows(I).Delete

End If

Next

End Sub