求助各位大神，如何让一根线偏移到鼠标点击的两个点之间

999999

各位大神们，大家好，小弟想问一下，如何让直线、多段线，圆弧，圆这些偏移到鼠标点击的两点中间
偏移两点中线:
1.选择需要偏移的线（直线、多段线、圆、圆弧）：
2.点击第一点：
3.点击第二点：
结果：把需要偏移的线偏移到第一点和第二点之间

各位大神们，如果有空的话，看能不能帮小弟解决一下这个问题，谢谢大神们啦

xj6019

(defun C:NM (/ en p1)
        (prompt "\n大哥还在门口外徘徊呐")
        (setq
                en(entsel "\n先请大哥选择那根苗条的线吆:")
                p1 (getpoint "\n大哥再搞一下那个要美美的点呗:")               
        )
        (vl-cmdf "offset" "T"  en  "non" (mapcar '(lambda (x y) (* (+ x y) 0.5)) p1 (cadr en)) "")         
        (princ)
)

xyp1964

999999

xyp1964 发表于 2022-11-11 09:54

院长大人您好，是我这边没有表达清楚意思，我的意思是，那根需要偏移的线是自己描的，我需要取两个点来把我描的那根线偏移成两点之间的中线呢

999999

xj6019 发表于 2022-11-11 12:23
(defun C:NM (/ en p1)
        (prompt "\n大哥还在门口外徘徊呐")
        (setq

大哥您好，门槛跨不过去呀，我是想：选择需要偏移的线——点P1——然后点P2——偏移的线在P1和P2的中间呢   

xj6019

999999 发表于 2022-11-11 13:48
大哥您好，门槛跨不过去呀，我是想：选择需要偏移的线——点P1——然后点P2——偏移的线在P1 ...

选线后 点1不用选了  给你省了，选线后直接指定你所说的第二个点就行

999999

xj6019 发表于 2022-11-11 13:54
选线后 点1不用选了  给你省了，选线后直接指定你所说的第二个点就行

大哥好懂我呀

999999

xyp1964 发表于 2022-11-11 09:54

谢谢院长大人

xyp1964

999999

xyp1964 发表于 2022-11-11 14:10

赞赞赞