Leaderboard

I Will do the offset for you just don't know how you will use it. You can use the straighten code to remove vertices just rename WOW to some thing more useful. Ok this is the crude start on how to do multi offsets enter values -ve is ok. (defun c:moff ( / obj lst n) (setq obj (vlax-ename->vla-object (car (entsel "\nPick pline ")))) (setq lst '()) (while (setq offnew (getreal "\nEnter a offset -ve for left Enter to exit ")) (setq lst (cons offnew lst)) ) (foreach n lst (vl-catch-all-apply 'vlax-invoke (list obj 'offset n)) ) ; n is offset value note - is ok (princ) ) I am a bit busy so will go back and add a offset and linetype answer. It looks like the layers to use are. Is this correct

Need to add a layer check before writing text may be get a Selection list (( layer entity) ( layer entity) ( layer entity) ..... Sort on layer then label each line starting at a user number etc then step 2 is do table. A sample 1st step then walk through the list of entities. (prompt "Type F when asked for selection ") (setq ss (ssget '((0 . "LINE")))) (setq lst '()) (repeat (setq x (sslength ss)) (setq ent (entget (ssname ss (setq x (1- x))))) (setq layer (cdr (assoc 8 ent))) (setq entity (cdr (assoc -1 ent))) (setq lst (cons (list layer entity) lst)) ) (setq lst (vl-sort lst '(lambda (J K) (< (car J)(car K)))))