请教给位版主
各位版主你们好：很感谢上次版主的帮助！今本人想请教各位有关cad中vba程序在哪输入呢。在论坛上看见了篮球的画法，很感兴趣，可是画图方法中有关讲曲线转换成样条曲线（如下所示）输入程序的，却不知怎么输入，在哪输入。望各位指教。
转变ucs，画直径为40的绿色圆，用圆和红色样条线的交点打断样条线，再把样条线转化为多段线。
转化样条线有几个办法，都太烦，我还是选择必杀技：用VBA代码，下面这段代码不必看懂它，照搬就行，我将在VBA教程第10课中进行详细解释
Sub sp2pl()
Dim getsp As Object
Dim po As Variant
Dim newl() As Double
Dim p1 As Variant
ThisDrawing.Utility.GetEntity getsp, po, "本程序将样条曲线转为多段线。请选择样条曲线"
sumctrl = getsp.NumberOfControlPoints
ReDim newl(0 To sumctrl * 3 - 1)
For i = 0 To sumctrl - 1
p1 = getsp.GetControlPoint(i)
For j = 0 To 2
newl(i * 3 + j) = p1(j)
Next j
Next i
Set templ = ThisDrawing.ModelSpace.Add3DPoly(newl)
End Sub
页:
[1]