|
|
好心的版主，您好！又来麻烦您了，我真不好意思！
具体情况如下：我已经将visualbasic与2000通讯上了，为了画一个刀具的图，可画出来只有半边，怎么都不能使右边的这段2维多义线镜象到左边去（autocad画完右边的多义线就停了下来了）我查了好多质料，发现语法没有问题。希望您能告诉我问题的所在，在这里先谢谢您了！还有就是我这段程序如何在2维平面中创建一个面域（左右多义线合并为一个封闭的线框）啊？
程序：
Private Sub Command1_Click()
On Error Resume Next
Dim wg As Double
wg = 10
Dim wd As Double
wd = 10
Dim wm As Double
wm = 10
cad.Document.Add
'转换视点
Dim newdirection(0 To 2) As Double
newdirection(0) = 1: newdirection(1) = 0.5: newdirection(2) = 0.5
cad.ActiveDocument.ActiveViewport.Direction = newdirection
cad.ActiveDocument.ActiveViewport = cad.ActiveDocument.ActiveViewport
cad.ActiveDocument.Layers(0).Color = acRed
cad.ActiveDocument.SendCommand "_shademode" + vbCr + "_g" + vbCr
'拉伸cad
'由于ZA型蜗杆轴向压力角为20度，得蜗杆齿高
Dim thdg As Double
Dim th1 As Double
Dim th2 As Double
thdg = 20 'thdg=(wd-wg)/2
th1 = 2 'th1=wm*3.14159/4-(wf-wd)*tan(20)/2
th2 = 5 'th2=wm*3.14159/2+.72794*wm
Dim curves(1) As AcadLWPolyline
Dim points(0 To 9) As Double
points(0) = wg / 2: points(1) = 0 '第1点
points(2) = wg / 2: points(3) = th1 '第2点
points(4) = wd / 2: points(5) = th2 '第3点
points(6) = wd / 2 + wm: points(7) = th2 '第4点
points(8) = wd / 2 + wm: points(9) = 0 '第5点
'创建刀具右部线段
Set curves(0) = cad.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)
curves(0).SetBulge 1, -0.3
Dim point1(0 To 1) As Double
Dim point2(0 To 2) As Double
point1(1) = -2: point1(1) = 0: point1(2) = 0
point2(1) = 2: point2(1) = 0: point2(2) = 0
'镜像刀具右部线段，得到左部线段
Set curves(1) = curves(0).Mirror(point1, point2)
Dim 刀具 As Variant
刀具 = cad.ActiveDocument.ModelSpace.AddRegion(curves)
'创建刀具面域（？不会了）
'拉伸刀具（面域）得到三维刀具实体
Dim height As Double
Dim angle As Double
height = 3
angle = 0 '弧度
'创建面域拉伸实体
Dim solidobj As Acad3DSolid
Set solidobj = cad.ActiveDocument.ModelSpace.AddExtrudedSolid(刀具, height, angle)
ZoomAll
End Sub |
|
置顶卡
