hi,
i select ent(arc or spline)with getentity method.i want many lines to be offseted to a line and extend those lines to ent.for which i need intersection point.
''reduse size of dimension line
DimLine.EndPoint = ThisDrawing.Utility.PolarPoint(DimLine.EndPoint, Langle, 1000 - DimLine.Length)
''draw dimension lines and dimension
Dim OffsetObj As Variant
Dim NextDimLine As AcadLine
Dim IntPt As Variant
For n = 1 To No
'ReDim IntPt(0)
OffsetObj = DimLine.Offset(DimDist * n)
For I = LBound(OffsetObj) To UBound(OffsetObj)
Set NextDimLine = OffsetObj(I)
Next I
IntPt = NextDimLine.IntersectWith(Ent, acExtendNone)
NextDimLine.EndPoint = IntPt
Next n
the lines intersect with ent.when i use BL(line created using minext and maxext points of bounding box) instead of ent,it works well. i want to know whr is the mistake.
any help?
thanx
