[求助]帮忙做一个偏移然后连接的程序

mmh1

帮忙做一个这个的程序：

选择一条线，然后偏移100mm，然后把端点连接成一个矩形。

 

感觉不难的，不知道怎么取偏移后的线的端线？

有没有人能帮忙写个？

 

mmh1

如何得到一条线段与水平位置的角度

mmh1

(defun c:nn3( / p sn p1 p2 p3 p4 l2 sn)
;(setq sel (ssget))
(setq sel (entsel "n选择要偏移的线:"))
(setq p (getpoint "n偏移至哪一侧，点取一点："))
(setq l2 (command "offset" 16 sel p ""))

    (SETQ dxf (ENTGET sel))
  (setq P1 (cdr (assoc 10 DXF)))
  (setq P2 (cdr (assoc 11 DXF)))
    (SETQ dxf1 (ENTGET l2))

  (setq P3 (cdr (assoc 10 DXF1)))
  (setq P4 (cdr (assoc 11 DXF1)))
(command "line" p1 p3 "")
(command "line" p2 p4 "")
)
(princ)
)


帮忙看下什么问题，为什么连不上两边的线

lsjj

(defun c:nn3( / p sn p1 p2 p3 p4 l2 sn)
(setq osm (getvar "osmode"))
;(setq sel (ssget))
(setq sel (entsel "n選擇要偏移的線:"))
(setq p (getpoint "n偏移至哪一側，點取一點："))
(command "offset" 16 (car sel) p "")
(setq l2 (ssget "l"))

    (SETQ dxf (ENTGET (car sel)))
  (setq P1 (cdr (assoc 10 DXF)))
  (setq P2 (cdr (assoc 11 DXF)))
    (SETQ dxf1 (ENTGET (ssname l2 0)))

  (setq P3 (cdr (assoc 10 DXF1)))
  (setq P4 (cdr (assoc 11 DXF1)))
(command "line" p1 p3 "")
(command "line" p2 p4 "")

(setvar "osmode" osm)
(princ)
)

mmh1

谢谢楼上，好用了