LispForum

Try this one, ; process LINE (defun do_line (e / ent pt1 pt2 item) (setq ent (entget e)) (foreach item ent (cond ((= (car item) 10) (setq pt1 (cdr item)) ) ((= (car item) 11) (setq pt2 (cdr item)) ) ) ) (setq ent (subst (cons 10 pt2)(assoc 10 ent) ent)) (setq ent (subst (cons 11 pt1)(assoc 11 ent) e...

[findinglisp: Moved to correct forum. Please categorize your posts. Autocad Lisp is not Common Lisp. Dear all, i`m working very often with huge longitudinal section, and in general with all kind of sections.So, as long as is generated in Civil3D, all sort of labeling precisely aligned in section.Bu...