(defun C:ort (/ lines lin)
(setvar 'orthomode 1)
(setq lines (ssget "X" '((0 . "LINE"))))
(while (setq lin (ssname lines 0))
(command "_.change" lin "" (cdr (assoc 11 (entget lin))))
(ssdel lin lines)
); end while
); end defun

Advertisements