同时获取距离和GetPoint

Public Function MeGetPointOrDistance() As Variant
  Dim aFstPnt As Variant
  Dim aNxtPnt As Variant
  On Error Resume Next
  
  With ThisDrawing.Utility
    aFstPnt = .GetPoint(, vbCrLf & "Select first point: ")
    If Err.Number  0 Then
      Err.Clear
      Exit Function
    End If
    aNxtPnt = .GetPoint(aFstPnt, vbCrLf & "Select next point/enter distance  : ")
    If Err.Number  0 Then
      Err.Clear
      TestPnt = aFstPnt
    Else
      TestPnt = Sqr(((aFstPnt(0) - aNxtPnt(0)) ^ 2) + _
                    ((aFstPnt(1) - aNxtPnt(1)) ^ 2) + _
                    ((aFstPnt(2) - aNxtPnt(2)) ^ 2))
    End If
  End With
  
End Function
Use:
Dim vRetVal As Variant
vRetVal = MeGetPointOrDistance()
Select Case VarType(RetVal)
  Case vbEmpty
    'User pressed enter - do nothing
  Case vbDouble
    'User had enter a distance
  Case Else
    'User had enter a point
End Select

(defun C:DS (/ A B)
              (PROMPT (STRCAT(RTOS (CAR(SETQ A(GETPOINT "START\t")))3 10)
                             "   "(RTOS (CADR A)3 10)
                             "   "(RTOS (CADDR A)3 10)"\n"
              ))
              (PROMPT(RTOS (DISTANCE A (SETQ B(GETPOINT A "TO\n") ))3 10))
              (PROMPT(STRCAT "\tX="(RTOS (SETQ DX(CAR(MAPCAR '- B A)))3 10)"\tor X="(RTOS (SETQ DX(CAR(MAPCAR '- B A)))2 10)
                   "\tY="  (RTOS (SETQ DY(CADR(MAPCAR '- B A)))3 10)"\tor Y="  (RTOS (SETQ DY(CADR(MAPCAR '- B A)))2 10)
                   "\tZ="  (RTOS (SETQ DZ(CADDR(MAPCAR '- B A)))3 10)
                     )) (PRINC (DISTANCE A B)) 
(command "insert" (getstring "blockname") "s" 1 "r" 0 B)
(terpri)
     )