要在AutoCAD中指定一个点相对于已存在的线的位置，可以使用以下步骤和示例代码：

1. 首先，使用osnap命令或者设置捕捉点模式来确保AutoCAD能够捕捉到线的端点或中点等位置。

2. 创建一个新的点对象，可以使用Point命令或者通过VB.NET或C#编程创建一个点对象。

3. 设置点的位置为相对于已存在的线的位置。可以通过计算线的起点和终点的坐标，然后根据需要的位置来确定新点的坐标。

下面是使用VB.NET编程在AutoCAD中指定点相对于已存在的线的位置的示例代码：

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry

Public Sub AddPointRelativeToLine()
    ' 获取当前文档和数据库
    Dim doc As Document = Application.DocumentManager.MdiActiveDocument
    Dim db As Database = doc.Database

    ' 获取当前编辑器
    Dim ed As Editor = doc.Editor

    ' 提示用户选择一条线
    Dim promptOptions As New PromptEntityOptions("请选择一条线：")
    promptOptions.SetRejectMessage("请选择有效的线！")
    promptOptions.AddAllowedClass(GetType(Line), True)
    Dim promptResult As PromptEntityResult = ed.GetEntity(promptOptions)

    ' 如果选择了一条线
    If promptResult.Status = PromptStatus.OK Then
        Using trans As Transaction = db.TransactionManager.StartTransaction()
            Dim line As Line = TryCast(trans.GetObject(promptResult.ObjectId, OpenMode.ForRead), Line)

            ' 提示用户输入相对于线的位置
            Dim basePointPromptOptions As New PromptPointOptions("请输入相对于线的位置：")
            Dim basePointPromptResult As PromptPointResult = ed.GetPoint(basePointPromptOptions)

            ' 如果成功获取了位置
            If basePointPromptResult.Status = PromptStatus.OK Then
                ' 计算线的起点和终点坐标
                Dim startPoint As Point3d = line.StartPoint
                Dim endPoint As Point3d = line.EndPoint

                ' 计算新点的坐标
                Dim newPointX As Double = startPoint.X + (endPoint.X - startPoint.X) * basePointPromptResult.Value.X
                Dim newPointY As Double = startPoint.Y + (endPoint.Y - startPoint.Y) * basePointPromptResult.Value.Y
                Dim newPoint As New Point3d(newPointX, newPointY, 0)

                ' 将新点添加到模型空间
                Dim blockTable As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead)
                Dim blockTableRecord As BlockTableRecord = trans.GetObject(blockTable(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
                blockTableRecord.AppendEntity(newPoint)
                trans.AddNewlyCreatedDBObject(newPoint, True)

                ' 提交事务
                trans.Commit()
            End If
        End Using
    End If
End Sub

在AutoCAD中运行上述代码后，用户将被提示选择一条线，并要求输入一个相对于该线位置的点。然后，代码会计算新点的坐标，并将其添加到模型空间中。