'偏移出多段线其中一段 BY LJS 20121206
Private Sub UserForm_Click()
 
  Me.Hide

  Dim PLINEOBJ As AcadObject
 
  Dim LINEOBJ As AcadLine

  Dim BASEPT, PT As Variant

  On Error Resume Next

  ThisDrawing.Utility.GetEntity PLINEOBJ, BASEPT, "选择多段线对象"
 
  newplineObj = PLINEOBJ.Copy
 
  PLINEOBJ.Explode
 
  ThisDrawing.Application.Update
 
  ThisDrawing.Utility.GetEntity LINEOBJ, BASEPT, "选择线对象"
 
  PT = ThisDrawing.Utility.GetPoint(BASEPT, "偏移")

  LINEOBJ.Move BASEPT, PT
          
  LINEOBJ.Update
 
End Sub