[VBA]请教一个vba二次开发中，关于模块和类模块中的问题

stef56

请教各位大虾．．．如何把已有的CAD程序改写成类模块的形式，其中：
属性：
所有设计所需要的输入参数；
由设计参数推导出来的关于零件结构的参数
方法：
生成零件三维图形； 小虾很急啊，希望各位大虾能够早点关注啊．．．．

evaporated

你既然已经把属性和方法都确定了。


就直接改写就可以了啊。


所谓已有的cad程序，是个函数，还是过程?还是一个模块？

今晚打老虎

给你个例子学吧 这是类clsTest 下的代码 Option Explicit Private mWidth As Double Public Property Get tWidth() As Double
tWidth = mWidth
End Property Public Property Let tWidth(dWidth As Double)
mWidth = dWidth
End Property Public Sub gsDrawLine(mDoc As AcadDocument)
Dim vPt1 As Variant
Dim vPt2 As Variant
Dim oLine As AcadLWPolyline
Dim aPts(0 To 3) As Double

vPt1 = mDoc.Utility.GetPoint

vPt2 = mDoc.Utility.GetPoint(vPt1)

aPts(0) = vPt1(0)
aPts(1) = vPt1(1)
aPts(2) = vPt2(0)
aPts(3) = vPt2(1)

Set oLine = mDoc.ModelSpace.AddLightWeightPolyline(aPts)

If Not oLine Is Nothing Then
oLine.ConstantWidth = mWidth
MsgBox TypeName(oLine) & oLine.Handle
End If

End Sub
这是模块modTest下的代码 Option Explicit Public gTest As New clsTest Sub Test()
gTest.tWidth = 1
gTest.gsDrawLine ThisDrawing
End Sub

stef56

谢谢,非常感谢各位大虾.............