09-16-2021
09:46 AM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
09-16-2021
09:46 AM
;;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)
)