Lee, here is another request.
(1)How about adding offset of a segment of a polyline...
;;
http://www.theswamp.org/index.php?topic=21933.0;all;; OFSEGS -Gilles Chanteau- 2008/03/26
;; Offsets the selected segments of lwpolyline
;; Joined segments are offseted in a single lwpolyline
;; Keeps arcs and widthes
;; Works whatever the current UCS and the pline OCS and elevation
(2)How about offset to center...the center between two selected lines. Here is an old routine...
;;;OFCTR.LSP Offset Line to Center (Dean Saadallah)
;;;10/12/97
(defun c:OFC (/ OS CL CD LAYR PT1 PT2 PT3 DST1 DST2)
(setq OS (getvar "OSMODE"))
(setq CL (getvar "CLAYER"))
(setq CD (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(princ "\n* Target Layer? <")
(prin1 (read CL))
(setq LAYR (getstring ">:"))
(if (equal LAYR "")
(setq LAYR (getvar "CLAYER"))
)
(setvar "OSMODE" 512)
(setq PT1 (getpoint "\n* Pick First Line *"))
(setq PT2 PT1)
(setvar "OSMODE" 128)
(setq PT3 (getpoint PT1 "\n* Pick Second Line *"))
(setvar "OSMODE" 0)
(setq DST1 (distance PT1 PT3))
(setq DST2 (/ DST1 2))
(command ".offset" DST2 PT1 PT3 "")
(command "CHPROP" "L" "" "LA" LAYR "LT" "BYLAYER" "C" "BYLAYER" "")
(setvar "OSMODE" OS)
(setvar "CMDECHO" CD)
) ;_ end of defun