|
|
Sub jm()
Dim qd(0 To 2) As Double, zd(0 To 2) As Double, zx(0 To 6) As AcadLine
qd(0) = 0: qd(1) = 0: qd(2) = 0
zd(0) = -670: zd(1) = 0: zd(2) = 0
Set zx(0) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第一根线
qd(0) = -670: qd(1) = 0: qd(2) = 0
zd(0) = -670: zd(1) = -20: zd(2) = 0
Set zx(1) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第二根线
qd(0) = -670: qd(1) = -20: qd(2) = 0
zd(0) = -670 + 110: zd(1) = -25: zd(2) = 0
Set zx(2) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第三根线
qd(0) = -670 + 110: qd(1) = -25: qd(2) = 0
zd(0) = -670 + 110 + 210: zd(1) = -65: zd(2) = 0
Set zx(3) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第四根线
qd(0) = -670 + 110 + 210: qd(1) = -65: qd(2) = 0
zd(0) = -670 + 110 + 210: zd(1) = -691.6: zd(2) = 0
Set zx(4) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第五根线
qd(0) = -670 + 110 + 210: qd(1) = -691.6: qd(2) = 0
zd(0) = 0: zd(1) = -691.6: zd(2) = 0
Set zx(5) = ThisDrawing.ModelSpace.AddLine(qd, zd) '第六根线
ThisDrawing.SendCommand "_fillet" & vbCr & "r" & vbCr & "10" & vbCr & zx(4) & zx(5)
End Sub
以上是我想画的图形的一半，准备对称过去形成截面，结果卡在圆倒角这里了。
主要是不想回到模型截面操作，因为到时候要一次性生成很多截面，回去模型截面用鼠标操作就没意义了。
求大神解惑！ |
|
置顶卡
