[求助]求从多段线偏移某个线条的lisp程序？

cj52000

大家好，从某个封闭多段线偏移一个直线，一般我会把当前的封闭多段线炸开，然后选一直线偏移，能不能不用炸开就直接选一条直线偏移，这样就能节约很多时间，求这种功能的lisp，谢谢！

xyp1964

;; 多段线逐段双向偏移
(defun c:test823 ()
  (CMDLA0)
  (xyp-MkLaCo "TEST" 1)
  (SETQ DIST (UDIST 1 "" "距离<输入或鼠标直接量取>" DIST nil))
  (while (setq e (entsel "\n多段线: "))   
    (if (member (xyp-get-dxf 0 (car e)) '("POLYLINE" "LWPOLYLINE"))
      (progn
 (setq a  (xyp-get-Pts&te e)
       p1 (car a)
       p2 (cadr a)
       S2 (XYP-ADD-LINE P1 P2)
 )
 (xyp-Offset (entlast) dist t t t)
      )
    )
  )
  (CMDLA1)
)

cj52000

谢谢版主回复，有没有单向偏移的啊要，双向的用得很少，呵呵！

cj52000

版主，我用后出现错误的提示：

命令: TEST823 ; 错误: no function definition: CMDLA0

怎么回事啊要，谢谢！

caoyao_1987

这个功能外挂有的。PRESSCAD

liudeyong

;;;;单段偏移
(defun c:oo (/ od ss_1 s1 s3 s2 sa sa1 ssK3 e)
  (Setvar "cmdecho" 0)
  (command "_undo" "g")
  (setq od (getvar 'offsetdist))
  (princ "\n 请输入偏移复制距离<")
  (princ od)
  (princ ">")
  (setq od (getreal))
  (if od
    (setvar 'offsetdist od)
  )
  (prompt "\n 请选择要偏移复制的图元")
  (SETQ ss_1 NIL)
  (WHILE (null ss_1)
    (setq ss_1 (entsel))
  )
  (SETQ S1 (CaR SS_1))
  (redraw s1 3)
  (prompt "\n 请选择偏移复制方向")
  (setq s3 (getpoint))
  (IF (= (cdr (assoc 0 (entget s1))) "LWPOLYLINE")
    (PROGN
      (setq s2 (CAR (cdr ss_1)))
      (setq sa (entlast))
      (command "_explode" s1)
      (setq sa1 (ssnamex (ssget s2)))
      (setq ssk3 (ssadd))
      (setq e (entnext sa))
      (ssadd e ssk3)
      (while e
        (setq e (entnext e))
        (if e
          (ssadd e ssk3)
        )
      )
      (SETQ s1 (nth 1 (car sa1)))
      (command "_offset" "" s1 s3 "")
      (command "_pedit" s1 "" "j" ssk3 "")
    )
    (command "_offset" "" s1 s3 "")
  )
  (command)
  (command "_undo" "e")
  (princ)
)

lzg8877

哇强大呀　好东西收下了