紧急求助！！！

riechie

我做毕业设计时用VB在AutoCAD中自动生成图形可是不会标注和打刨面线！！请高手帮帮忙给个源代码吧！！！小弟万分感谢！！！标成这样就行了！！


当然不能是字母了要具体的数值！

mccad

标注关键就是在你生成图形时所得到的特征点生成的。
而剖面线可以利用你所生成的外围对象来形成。
你可以把你生成图形的程序发过来，我帮你写生成标注和剖面线的部分。

riechie

Private Sub drawing()
Dim p1(0 To 2) As Double
Dim p2(0 To 2) As Double
Dim p3(0 To 2) As Double
Dim p4(0 To 2) As Double
Dim p5(0 To 2) As Double
Dim p6(0 To 2) As Double
Dim p7(0 To 2) As Double
Dim p8(0 To 2) As Double
Dim p9(0 To 2) As Double
Dim p10(0 To 2) As Double
Dim p11(0 To 2) As Double
Dim p12(0 To 2) As Double Dim p13(0 To 2) As Double
Dim p14(0 To 2) As Double
Dim p15(0 To 2) As Double
Dim p16(0 To 2) As Double
Dim p17(0 To 2) As Double
Dim p18(0 To 2) As Double
Dim p19(0 To 2) As Double
Dim p20(0 To 2) As Double
Dim p21(0 To 2) As Double
Dim p22(0 To 2) As Double
Dim p23(0 To 2) As Double
Dim p24(0 To 2) As Double Dim p25(0 To 2) As Double
Dim p26(0 To 2) As Double
Dim p27(0 To 2) As Double
Dim p28(0 To 2) As Double
Dim p29(0 To 2) As Double
Dim p30(0 To 2) As Double
Dim p31(0 To 2) As Double
Dim p32(0 To 2) As Double
Dim p33(0 To 2) As Double
Dim p34(0 To 2) As Double
Dim p35(0 To 2) As Double
Dim p36(0 To 2) As Double Dim p37(0 To 2) As Double
Dim p38(0 To 2) As Double
Dim p39(0 To 2) As Double
Dim p40(0 To 2) As Double
Dim p41(0 To 2) As Double
Dim p42(0 To 2) As Double
Dim p43(0 To 2) As Double
Dim p44(0 To 2) As Double
Dim p45(0 To 2) As Double
Dim p46(0 To 2) As Double
Dim p47(0 To 2) As Double
Dim p48(0 To 2) As Double Dim p49(0 To 2) As Double
Dim p50(0 To 2) As Double
Dim p51(0 To 2) As Double
Dim p52(0 To 2) As Double
Dim p53(0 To 2) As Double
Dim p54(0 To 2) As Double
Dim p55(0 To 2) As Double
Dim p56(0 To 2) As Double
Dim p57(0 To 2) As Double
Dim p58(0 To 2) As Double
Dim p59(0 To 2) As Double
Dim p60(0 To 2) As Double
Dim lineObj As Object
Dim docapp As AcadDocument
Dim pEntity(0 To 60) As AcadEntity
Set docapp = acadapp.ActiveDocument p1(0) = 30#
p1(1) = 500#
p1(2) = 0#
p2(0) = 30 + (dd - d - 2 * t) / 2
p2(1) = 500
p2(2) = 0#
p3(0) = 30 + (dd - d - 2 * t) / 2
p3(1) = 500 + h - t
p3(2) = 0#
p4(0) = 30 + dd - (dd - d - 2 * t) / 2
p4(1) = 500 + h - t
p4(2) = 0#
p5(0) = 30 + dd - (dd - d - 2 * t) / 2
p5(1) = 500
p5(2) = 0
p6(0) = 30 + dd
p6(1) = 500
p6(2) = 0
p7(0) = 30 + dd
p7(1) = 500 - t
p7(2) = 0
p8(0) = 30 + dd - (dd - d - 2 * t) / 2 - t
p8(1) = 500 - t
p8(2) = 0
p9(0) = 30 + dd - (dd - d - 2 * t) / 2 - t
p9(1) = 500 + h - 2 * t
p9(2) = 0
p10(0) = 30 + (dd - d - 2 * t) / 2 + t
p10(1) = 500 + h - 2 * t
p10(2) = 0
p11(0) = 30 + (dd - d - 2 * t) / 2 + t
p11(1) = 500 - t
p11(2) = 0
p12(0) = 30
p12(1) = 500 - t
p12(2) = 0 p13(0) = p6(0) + 50
p13(1) = 500
p13(2) = 0
p14(0) = p6(0) + 50 + (dd1 - d1 - 2 * t) / 2
p14(1) = 500
p14(2) = 0
p15(0) = p6(0) + 50 + (dd1 - d1 - 2 * t) / 2
p15(1) = 500 + h1 - t
p15(2) = 0
p16(0) = p6(0) + 50 + dd1 - (dd1 - d1 - 2 * t) / 2
p16(1) = 500 + h1 - t
p16(2) = 0
p17(0) = p6(0) + 50 + dd1 - (dd1 - d1 - 2 * t) / 2
p17(1) = 500
p17(2) = 0
p18(0) = p6(0) + 50 + dd1
p18(1) = 500
p18(2) = 0
p19(0) = p6(0) + 50 + dd1
p19(1) = 500 - t
p19(2) = 0
p20(0) = p6(0) + 50 + dd1 - (dd1 - d1 - 2 * t) / 2 - t
p20(1) = 500 - t
p20(2) = 0
p21(0) = p6(0) + 50 + dd1 - (dd1 - d1 - 2 * t) / 2 - t
p21(1) = 500 + h1 - 2 * t
p21(2) = 0
p22(0) = p6(0) + 50 + (dd1 - d1 - 2 * t) / 2 + t
p22(1) = 500 + h1 - 2 * t
p22(2) = 0
p23(0) = p6(0) + 50 + (dd1 - d1 - 2 * t) / 2 + t
p23(1) = 500 - t
p23(2) = 0
p24(0) = p6(0) + 50
p24(1) = 500 - t
p24(2) = 0 p25(0) = p18(0) + 50
p25(1) = 500
p25(2) = 0
p26(0) = p18(0) + 50 + (dd1 - d2 - 2 * t) / 2
p26(1) = 500
p26(2) = 0
p27(0) = p18(0) + 50 + (dd1 - d2 - 2 * t) / 2
p27(1) = 500 + h2 - t
p27(2) = 0
p28(0) = p18(0) + 50 + dd1 - (dd1 - d2 - 2 * t) / 2
p28(1) = 500 + h2 - t
p28(2) = 0
p29(0) = p18(0) + 50 + dd1 - (dd1 - d2 - 2 * t) / 2
p29(1) = 500
p29(2) = 0
p30(0) = p18(0) + 50 + dd1
p30(1) = 500
p30(2) = 0
p31(0) = p18(0) + 50 + dd1
p31(1) = 500 - t
p31(2) = 0
p32(0) = p18(0) + 50 + dd1 - (dd1 - d2 - 2 * t) / 2 - t
p32(1) = 500 - t
p32(2) = 0
p33(0) = p18(0) + 50 + dd1 - (dd1 - d2 - 2 * t) / 2 - t
p33(1) = 500 + h2 - 2 * t
p33(2) = 0
p34(0) = p18(0) + 50 + (dd1 - d2 - 2 * t) / 2 + t
p34(1) = 500 + h2 - 2 * t
p34(2) = 0
p35(0) = p18(0) + 50 + (dd1 - d2 - 2 * t) / 2 + t
p35(1) = 500 - t
p35(2) = 0
p36(0) = p18(0) + 50
p36(1) = 500 - t
p36(2) = 0 p37(0) = p6(0) + 50
p37(1) = 250
p37(2) = 0
p38(0) = p6(0) + 50 + (dd1 - d3 - 2 * t) / 2
p38(1) = 250
p38(2) = 0
p39(0) = p6(0) + 50 + (dd1 - d3 - 2 * t) / 2
p39(1) = 250 + h3 - t
p39(2) = 0
p40(0) = p6(0) + 50 + dd1 - (dd1 - d3 - 2 * t) / 2
p40(1) = 250 + h3 - t
p40(2) = 0
p41(0) = p6(0) + 50 + dd1 - (dd1 - d3 - 2 * t) / 2
p41(1) = 250
p41(2) = 0
p42(0) = p6(0) + 50 + dd1
p42(1) = 250
p42(2) = 0
p43(0) = p6(0) + 50 + dd1
p43(1) = 250 - t
p43(2) = 0
p44(0) = p6(0) + 50 + dd1 - (dd1 - d3 - 2 * t) / 2 - t
p44(1) = 250 - t
p44(2) = 0
p45(0) = p6(0) + 50 + dd1 - (dd1 - d3 - 2 * t) / 2 - t
p45(1) = 250 + h3 - 2 * t
p45(2) = 0
p46(0) = p6(0) + 50 + (dd1 - d3 - 2 * t) / 2 + t
p46(1) = 250 + h3 - 2 * t
p46(2) = 0
p47(0) = p6(0) + 50 + (dd1 - d3 - 2 * t) / 2 + t
p47(1) = 250 - t
p47(2) = 0
p48(0) = p6(0) + 50
p48(1) = 250 - t
p48(2) = 0 p49(0) = p42(0) + 50
p49(1) = 250
p49(2) = 0
p50(0) = p42(0) + 50 + (dd1 - d4 - 2 * t) / 2
p50(1) = 250
p50(2) = 0
p51(0) = p42(0) + 50 + (dd1 - d4 - 2 * t) / 2
p51(1) = 250 + h4 - t
p51(2) = 0
p52(0) = p42(0) + 50 + dd1 - (dd1 - d4 - 2 * t) / 2
p52(1) = 250 + h4 - t
p52(2) = 0
p53(0) = p42(0) + 50 + dd1 - (dd1 - d4 - 2 * t) / 2
p53(1) = 250
p53(2) = 0
p54(0) = p42(0) + 50 + dd1
p54(1) = 250
p54(2) = 0
p55(0) = p42(0) + 50 + dd1
p55(1) = 250 - t
p55(2) = 0
p56(0) = p42(0) + 50 + dd1 - (dd1 - d4 - 2 * t) / 2 - t
p56(1) = 250 - t
p56(2) = 0
p57(0) = p42(0) + 50 + dd1 - (dd1 - d4 - 2 * t) / 2 - t
p57(1) = 250 + h4 - 2 * t
p57(2) = 0
p58(0) = p42(0) + 50 + (dd1 - d4 - 2 * t) / 2 + t
p58(1) = 250 + h4 - 2 * t
p58(2) = 0
p59(0) = p42(0) + 50 + (dd1 - d4 - 2 * t) / 2 + t
p59(1) = 250 - t
p59(2) = 0
p60(0) = p42(0) + 50
p60(1) = 250 - t
p60(2) = 0
'划零件
Set pEntity(1) = acadapp.ActiveDocument.ModelSpace.AddLine(p1, p2)
Set pEntity(2) = acadapp.ActiveDocument.ModelSpace.AddLine(p2, p3)
Set pEntity(3) = acadapp.ActiveDocument.ModelSpace.AddLine(p3, p4)
Set pEntity(4) = acadapp.ActiveDocument.ModelSpace.AddLine(p4, p5)
Set pEntity(5) = acadapp.ActiveDocument.ModelSpace.AddLine(p5, p6)
Set pEntity(6) = acadapp.ActiveDocument.ModelSpace.AddLine(p6, p7)
Set pEntity(7) = acadapp.ActiveDocument.ModelSpace.AddLine(p7, p8)
Set pEntity(8) = acadapp.ActiveDocument.ModelSpace.AddLine(p8, p9)
Set pEntity(9) = acadapp.ActiveDocument.ModelSpace.AddLine(p9, p10)
Set pEntity(10) = acadapp.ActiveDocument.ModelSpace.AddLine(p10, p11)
Set pEntity(11) = acadapp.ActiveDocument.ModelSpace.AddLine(p11, p12)
Set pEntity(12) = acadapp.ActiveDocument.ModelSpace.AddLine(p12, p1)
Set lineObj = acadapp.ActiveDocument.ModelSpace.AddLine(p12, p7) Set pEntity(13) = acadapp.ActiveDocument.ModelSpace.AddLine(p13, p14)
Set pEntity(14) = acadapp.ActiveDocument.ModelSpace.AddLine(p14, p15)
Set pEntity(15) = acadapp.ActiveDocument.ModelSpace.AddLine(p15, p16)
Set pEntity(16) = acadapp.ActiveDocument.ModelSpace.AddLine(p16, p17)
Set pEntity(17) = acadapp.ActiveDocument.ModelSpace.AddLine(p17, p18)
Set pEntity(18) = acadapp.ActiveDocument.ModelSpace.AddLine(p18, p19)
Set pEntity(19) = acadapp.ActiveDocument.ModelSpace.AddLine(p19, p20)
Set pEntity(20) = acadapp.ActiveDocument.ModelSpace.AddLine(p20, p21)
Set pEntity(21) = acadapp.ActiveDocument.ModelSpace.AddLine(p21, p22)
Set pEntity(22) = acadapp.ActiveDocument.ModelSpace.AddLine(p22, p23)
Set pEntity(23) = acadapp.ActiveDocument.ModelSpace.AddLine(p23, p24)
Set pEntity(24) = acadapp.ActiveDocument.ModelSpace.AddLine(p24, p13)
Set lineObj = acadapp.ActiveDocument.ModelSpace.AddLine(p24, p19)
Set pEntity(25) = acadapp.ActiveDocument.ModelSpace.AddLine(p25, p26)
Set pEntity(26) = acadapp.ActiveDocument.ModelSpace.AddLine(p26, p27)
Set pEntity(27) = acadapp.ActiveDocument.ModelSpace.AddLine(p27, p28)
Set pEntity(28) = acadapp.ActiveDocument.ModelSpace.AddLine(p28, p29)
Set pEntity(29) = acadapp.ActiveDocument.ModelSpace.AddLine(p29, p30)
Set pEntity(30) = acadapp.ActiveDocument.ModelSpace.AddLine(p30, p31)
Set pEntity(31) = acadapp.ActiveDocument.ModelSpace.AddLine(p31, p32)
Set pEntity(32) = acadapp.ActiveDocument.ModelSpace.AddLine(p32, p33)
Set pEntity(33) = acadapp.ActiveDocument.ModelSpace.AddLine(p33, p34)
Set pEntity(34) = acadapp.ActiveDocument.ModelSpace.AddLine(p34, p35)
Set pEntity(35) = acadapp.ActiveDocument.ModelSpace.AddLine(p35, p36)
Set pEntity(36) = acadapp.ActiveDocument.ModelSpace.AddLine(p36, p25)
Set lineObj = acadapp.ActiveDocument.ModelSpace.AddLine(p36, p31) Set pEntity(37) = acadapp.ActiveDocument.ModelSpace.AddLine(p37, p38)
Set pEntity(38) = acadapp.ActiveDocument.ModelSpace.AddLine(p38, p39)
Set pEntity(39) = acadapp.ActiveDocument.ModelSpace.AddLine(p39, p40)
Set pEntity(40) = acadapp.ActiveDocument.ModelSpace.AddLine(p40, p41)
Set pEntity(41) = acadapp.ActiveDocument.ModelSpace.AddLine(p41, p42)
Set pEntity(42) = acadapp.ActiveDocument.ModelSpace.AddLine(p42, p43)
Set pEntity(43) = acadapp.ActiveDocument.ModelSpace.AddLine(p43, p44)
Set pEntity(44) = acadapp.ActiveDocument.ModelSpace.AddLine(p44, p45)
Set pEntity(45) = acadapp.ActiveDocument.ModelSpace.AddLine(p45, p46)
Set pEntity(46) = acadapp.ActiveDocument.ModelSpace.AddLine(p46, p47)
Set pEntity(47) = acadapp.ActiveDocument.ModelSpace.AddLine(p47, p48)
Set pEntity(48) = acadapp.ActiveDocument.ModelSpace.AddLine(p48, p37)
Set lineObj = acadapp.ActiveDocument.ModelSpace.AddLine(p43, p48) Set pEntity(49) = acadapp.ActiveDocument.ModelSpace.AddLine(p49, p50)
Set pEntity(50) = acadapp.ActiveDocument.ModelSpace.AddLine(p50, p51)
Set pEntity(51) = acadapp.ActiveDocument.ModelSpace.AddLine(p51, p52)
Set pEntity(52) = acadapp.ActiveDocument.ModelSpace.AddLine(p52, p53)
Set pEntity(53) = acadapp.ActiveDocument.ModelSpace.AddLine(p53, p54)
Set pEntity(54) = acadapp.ActiveDocument.ModelSpace.AddLine(p54, p55)
Set pEntity(55) = acadapp.ActiveDocument.ModelSpace.AddLine(p55, p56)
Set pEntity(56) = acadapp.ActiveDocument.ModelSpace.AddLine(p56, p57)
Set pEntity(57) = acadapp.ActiveDocument.ModelSpace.AddLine(p57, p58)
Set pEntity(58) = acadapp.ActiveDocument.ModelSpace.AddLine(p58, p59)
Set pEntity(59) = acadapp.ActiveDocument.ModelSpace.AddLine(p59, p60)
Set pEntity(60) = acadapp.ActiveDocument.ModelSpace.AddLine(p60, p49)
Set lineObj = acadapp.ActiveDocument.ModelSpace.AddLine(p55, p60)
'导圆角
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r1 & vbCr & "(handent " & Chr(34) & pEntity(1).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(2).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r2 & vbCr & "(handent " & Chr(34) & pEntity(2).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(3).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r2 & vbCr & "(handent " & Chr(34) & pEntity(3).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(4).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r1 & vbCr & "(handent " & Chr(34) & pEntity(4).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(5).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r1 & vbCr & "(handent " & Chr(34) & pEntity(7).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(8).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r2 & vbCr & "(handent " & Chr(34) & pEntity(8).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(9).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r2 & vbCr & "(handent " & Chr(34) & pEntity(9).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(10).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r1 & vbCr & "(handent " & Chr(34) & pEntity(10).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(11).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r01 & vbCr & "(handent " & Chr(34) & pEntity(13).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(14).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r11 & vbCr & "(handent " & Chr(34) & pEntity(14).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(15).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r11 & vbCr & "(handent " & Chr(34) & pEntity(15).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(16).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r01 & vbCr & "(handent " & Chr(34) & pEntity(16).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(17).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r01 & vbCr & "(handent " & Chr(34) & pEntity(19).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(20).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r11 & vbCr & "(handent " & Chr(34) & pEntity(20).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(21).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r11 & vbCr & "(handent " & Chr(34) & pEntity(21).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(22).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r01 & vbCr & "(handent " & Chr(34) & pEntity(22).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(23).Handle & Chr(34) & ")" & vbCr docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r02 & vbCr & "(handent " & Chr(34) & pEntity(25).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(26).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r12 & vbCr & "(handent " & Chr(34) & pEntity(26).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(27).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r12 & vbCr & "(handent " & Chr(34) & pEntity(27).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(28).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r02 & vbCr & "(handent " & Chr(34) & pEntity(28).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(29).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r02 & vbCr & "(handent " & Chr(34) & pEntity(31).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(32).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r12 & vbCr & "(handent " & Chr(34) & pEntity(32).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(33).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r12 & vbCr & "(handent " & Chr(34) & pEntity(33).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(34).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r02 & vbCr & "(handent " & Chr(34) & pEntity(34).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(35).Handle & Chr(34) & ")" & vbCr docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r03 & vbCr & "(handent " & Chr(34) & pEntity(37).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(38).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r13 & vbCr & "(handent " & Chr(34) & pEntity(38).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(39).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r13 & vbCr & "(handent " & Chr(34) & pEntity(39).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(40).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r03 & vbCr & "(handent " & Chr(34) & pEntity(40).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(41).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r03 & vbCr & "(handent " & Chr(34) & pEntity(43).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(44).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r13 & vbCr & "(handent " & Chr(34) & pEntity(44).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(45).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r13 & vbCr & "(handent " & Chr(34) & pEntity(45).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(46).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r03 & vbCr & "(handent " & Chr(34) & pEntity(46).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(47).Handle & Chr(34) & ")" & vbCr docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r04 & vbCr & "(handent " & Chr(34) & pEntity(49).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(50).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r14 & vbCr & "(handent " & Chr(34) & pEntity(50).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(51).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r14 & vbCr & "(handent " & Chr(34) & pEntity(51).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(52).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r04 & vbCr & "(handent " & Chr(34) & pEntity(52).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(53).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r04 & vbCr & "(handent " & Chr(34) & pEntity(55).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(56).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r14 & vbCr & "(handent " & Chr(34) & pEntity(56).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(57).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r14 & vbCr & "(handent " & Chr(34) & pEntity(57).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(58).Handle & Chr(34) & ")" & vbCr
docapp.SendCommand "_.fillet" & vbCr & "r" & vbCr & r04 & vbCr & "(handent " & Chr(34) & pEntity(58).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & pEntity(59).Handle & Chr(34) & ")" & vbCr
acadapp.Update
ZoomExtents
End Sub 非常感谢！！！ 其中：r01=7, r02=5, r03=4, r04=4, r05=3, r11=7, r12=5, r13=4, r14=4, r15=3, d1=61,
d2=48.2, d3=39.5, d4=33.2, dd=80,d=27, t=1.5,h=60,h1=34.4, h2=38.5, h3=46.4, h4=58.4,

雪山飞狐_lzh

导圆角最好用VBA画圆弧

riechie

我是用VB编的！不会VBA！

雪山飞狐_lzh

VB和VBA编程没有多大差别！！！

riechie

我过两天就答辩了着急阿！帮帮我！万分感谢！

雪山飞狐_lzh

既然你一定要用命令(vba里不提倡用),填充也可以调用-bhatch命令