|
|
Public Sub TdnC()
Dim myLn1 As AcadLine
Dim myLn1CP As AcadLine
Dim myLn2 As AcadLine
Dim myLn2CP As AcadLine
Dim mySPt(1 To 3) As Double
Dim myEPt(1 To 3) As Double
Dim CR As Double
Dim myCirc As AcadCircle
Dim myCPt(1 To 3) As Double
Dim x As AcadCircle
mySPt(1) = 0
mySPt(2) = 0
mySPt(3) = 0
myEPt(1) = 100
myEPt(2) = 100
myEPt(3) = 0
myCPt(1) = 0
myCPt(2) = 0
myCPt(3) = 0
CR = 30
Set myCirc = ThisDrawing.ModelSpace.AddCircle(myCPt, CR)
myCirc.Update
Set x = myCirc.Offset(-15)
Set myLn1 = ThisDrawing.ModelSpace.AddLine(mySPt, myEPt)
Set myLn1CP = myLn1.Offset(CR)
mySPt(1) = 100
mySPt(2) = 100
mySPt(3) = 0
myEPt(1) = 400
myEPt(2) = 100
myEPt(3) = 0
Set myLn2 = ThisDrawing.ModelSpace.AddLine(mySPt, myEPt)
Set myLn2CP = myLn2.Offset(CR)
ThisDrawing.Application.ZoomExtents
End Sub
给位大哥帮下小弟！这个问题应该是非常的简单，现在就是不知道错在哪里？一运行就会显示，要求对象，错误‘424’
小弟一人孤军奋战，头大之极！在我的电脑上就是运行不过去！不知道哪里的毛病！上面就是全部代码！需要别人帮助指点下~可怜我~帮助下！
|
|
置顶卡
