Dim xfdoffset As VariantDim objline As AcadLineDim objline1 As AcadLineDim xfdcd As Doublexfdcd = dk1 - d3xfdoffset = objline .Offset(xfdcd)xfdoffset(0).Layer = "0"Set objline1 = xfdoffset(0) objline1是偏移后的直线，这样对不对
Dim objline As AcadLine
Dim objline1 As AcadLine
Dim xfdcd As Double
xfdcd = dk1 - d3
xfdoffset = objline .Offset(xfdcd)
xfdoffset(0).Layer = "0"
Set objline1 = xfdoffset(0)
objline1是偏移后的直线，这样对不对
