Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

Anonymous
en respuesta a: Kent1Cooper

;;you could match length instead, good good in 2006, hangs up in 2018???

 

;by: Paul Turvill (nospam@turvill.com) 2002-05-28
;change object length to match length of any line, arc, polyline or circle
;No error checking, but it works as you describe on most objects. Feel free
;to modify & refine as you see fit.


(defun C:MOL (/ cmde obj len)
(setq cmde (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq obj (car (entsel "\nSelect object to measure: ")))
(command "_.lengthen" obj "")
(setq len (getvar "perimeter"))
(prompt "\nPick end of line to change: ")
(command "_.lengthen" "_t" len pause "")
(setvar "cmdecho" cmde)
(princ)
)