[分享]：3dface得VBA程序以及LISP螺旋线的生成

june02191

Private Sub CommandButton1_Click()
Dim a As Acad3DFace
Dim p1(0 To 2) As Double
p1(0) = Val(TextBox1.Text)
p1(1) = Val(TextBox2.Text)
p1(2) = 0
Dim p2(0 To 2) As Double

p2(0) = Val(TextBox3.Text)
p2(1) = Val(TextBox4.Text)
p2(2) = 0


Dim p3(0 To 2) As Double
p3(0) = Val(TextBox5.Text)
p3(1) = Val(TextBox6.Text)
p3(2) = 0


Dim p4(0 To 2) As Double
p4(0) = Val(TextBox7.Text)
p4(1) = Val(TextBox8.Text)
p4(2) = 0

Set a = ThisDrawing.ModelSpace.Add3DFace(p1, p2, p3, p4)
a.Update

End Sub

如果有哪位仁兄，需要帮助和交流的 就请联系QQ:191065380