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
- posted
20 years ago
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
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)) ) )
PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.