[LISP程序]：关于多义线偏移复制的程序

qqy1

(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)
)

xyp1964

多重偏移
加载DCPY.lsp，运行DCPY。

xyp1964

程序示意：

自由的鱼

多重偏移程序，支持比例尺！
地址见下！

li809

好用的复制命令,不知对spl线能否实现前后一样多的顶点数呢?