http://s9/mw690/001bjEy7gy6I8a7jd9K28&690Lisp画道路中心线自动双偏路边线" TITLE="AutoCAD- Lisp画道路中心线自动双偏路边线" />

复制到CAD的Vlisp里加载命令tt  .

(defun c:tt (/ w pline )
(vl-load-com)
  (command ".undo" "be")
  (setq w (getreal "\n 双偏宽度<1000.0>: "))
      (if (null w) (setq w 1000))
(vl-cmdf ".spline")   ;;;;; "spline "曲线改成 "pline" 中心线可以是多段线

  (while (= 1 (getvar "cmdactive"))
    (vl-cmdf pause)
  )
  (setq pline (entlast))
      (vla-Offset (vlax-ename->vla-object pline) (/ w 2.0))
      (vla-Offset (vlax-ename->vla-object pline) (/ w -2.0))
(command "chprop" pline ""  "lt" "center" "s" 200 "");;;中心线比例200
  (command ".undo" "e")
  (princ)
)

http://s12/mw690/001bjEy7gy6I8a9brCjab&690Lisp画道路中心线自动双偏路边线" TITLE="AutoCAD- Lisp画道路中心线自动双偏路边线" />