There used to be a lisp routine around at one time that would allow you to offset to a specified layer and repeated until you were finished. Can anyone help? Thanks in advance.. RikH
offset to layer
Jan 13, 2004
1 Replies
see below. (No idea who did it):
(defun C:OFLY () (setvar "cmdecho" 0) (initget 1) (setq wd (getdist "\nOffset Width : ")) (setq ly (getvar "clayer") n 50) (while (> n 0) (setq a (entsel "\nSelect Entity to Offset :")) (setq ent (car a) pt (cadr a)) (setq b (getpoint pt "\nOffset Direction : ")) (command "OFFSET" wd pt b "") (setq c (entlast)) (command "CHPROP" c "" "LA" ly "") (setq col (substr (getvar "cecolor") 1 2)) (if (= col "BY") (command "CHPROP" "L" "" "C" "bylayer" "") (progn (setq col (atoi col)) (command "CHPROP" "L" "" "C" col "") ) ) (setq n (1- n)) ) )
Join the Discussion
Have something to add? Share your thoughts — no account required.
Didn't find your answer?
Ask the community — no account required