请问怎么使用lisp 求多段线偏移后的坐标点额呢

180dux

求高手帮帮
多段线可能是封闭，也有可能是开放，就这两种，第一点由用户点击多段线的上角点，第二点点击偏移方向。

第一点作为选择集点，所以第二点有了后就直接偏移，我现在就想求，点1偏移后的的那个的点。
如图：


(defun C:MM ()


  (setq p1 (getpoint "\n请D1:")
        p2 (getpoint p1 "\n请偏移方向:"))


(setq sfd (ssget p1))
  (setq Q1(ssname sfd 0));

(command "_offset" "1" Q1  p2 "");偏移
(setq Q2(ENTLAST));偏移后图源
  怎么求那个坐标？
；(setq ee1 (entget Q2)) ;

；(princ ee1)

;(command "CIRCLE" 点2 5);验证坐标




  )

start4444

算出内线点的顶点序号，根据序号算新线的对应点即可

180dux

start4444 发表于 2020-6-27 22:46
算出内线点的顶点序号，根据序号算新线的对应点即可

求高手指点一下了，新手，序号怎么算才对应的呢

start4444

180dux 发表于 2020-6-29 14:38
求高手指点一下了，新手，序号怎么算才对应的呢

用提取函数取得多段线各顶点坐标，对应你 选的点看看是那个序号的点，比如是第三个，那就同样提取外框线顶点，对应也是第三个点就是目标点了.

180dux

start4444 发表于 2020-6-29 16:36
用提取函数取得多段线各顶点坐标，对应你 选的点看看是那个序号的点，比如是第三个，那就同样提取外框线 ...

这种不可靠啊，要是有圆弧，尖角倒R来的，比如0.5，向里偏移2，那个角就不存在了，就意味着少一个点。。。，有可行的办法不，我的想法是利用已知的点，获取点上的图元，在偏移两个图元做参考，计算两个图元的交点，在删除参考线，，，就是不会写呢！！