间隙分割→异等偏移

荒野孤行

将线段等分后，由于中间要留有间隙，那么左右两边的尺寸就相对中间的大了一点，这样就不算是完全的等分了，所以。。。
已集成在WDY工具箱：http://bbs.mjtd.com/thread-108389-1-1.html

;;;*****十线九隙 程序开始*****
(defun c:sxjx (/ sel len)
  (setvar "osmode" 15359)
  (setvar "cmdecho" 0)
  (princ
    "\n★功能：对直线、多段线在指定距离上进行等距偏移且间距相等.\n"
  )
  (command "undo" "be")
  (while
    (progn (setq sel (entsel "\n请点选直线、多段线：\n"))
           (not        (if (= sel nil)
                  nil
                  (wcmatch (cdr (assoc 0 (entget (car sel))))
                           "LWPOLYLINE,POLYLINE,LINE"
                  )
                )
           )
    )
     (princ
       "\n提示：选取的不是直线、多段线或未选取任何图元,请重新点选：\n"
     )
  )
(initget 7)
  (setq len (getdist "\n指定总线长："))
  (princ (strcat "\n★当前总线长为：" (rtos len 2)))

  (if (not backup_gap)
    (setq backup_gap 0.03)
  )
  (initget 6)
  (if (not (setq gap (getdist (strcat "\n指定间距：<"
                                      (rtos backup_gap 2)
                                      ">"
                              )
                     )
           )
      )
    (setq gap backup_gap)
  )
  (setq backup_gap gap)
  (princ (strcat "\n★当前间距为：" (rtos gap 2)))

  (initget 6)
  (if (not (setq npy (getint "\n等分数<10>：\n")))
    (setq npy 10)
  )
  (setq len (/ (- len (* (- npy 1) gap)) npy))
  (initget 1)
  (setq pt1 (getpoint "\n指定偏移方向：\n"))
  (setvar "osmode" 0)
  (setq        len1 len
        gap1 gap
  )
  (repeat (- npy 1)
    (command "OFFSET" len sel pt1 "")
    (setq gap (+ gap1 len))
    (command "OFFSET" gap sel pt1 "")
    (setq len (+ len1 gap))
  )
  (command "OFFSET" len sel pt1 "")
  (setvar "osmode" 15359)
  (command "undo" "e")
  (princ)
)
;;;*****十线九隙 程序结束*****

dasha321

谢谢分享，真的很好

paulpipi

好程序，谢谢分享

xiang19751218

试用了一下，程序不错，谢谢分享源码。

sicky111

不错的程式

lucas_3333

支持分享源码！

dbqtju

强烈支持源码。

baoxiaozhong

回覆看看，謝謝你的分享。

kwok

支持分享，

mjz521yy

支持分享支持分享

xyp1964

434939575

今天高产啊！谢谢分享！