Visual LISP, AutoLISP and General Customization

[#1]

Anybody have a command to make a line change length to match length of a
line, arc, polyline or circle? Could use this when making flat patterns
layouts. Thanks for any help Steve

[#2]

Could be done with a little LISP ... but it would take a bit more
information about the line: would you want it to remain at the same angle,
or would that change as well? Which end would you want to extend/shorten? Or
would you like to add the same amount on both ends?
___

"Steve Bose" wrote in message
news:7D3B66E5FBBFCE25D310D9FB971810D8@in.WebX.maYIadrTaRb...
> Anybody have a command to make a line change length to match length of a
> line, arc, polyline or circle? Could use this when making flat patterns
> layouts. Thanks for any help Steve
>
>

[#3]

Paul,
Thanks for the reply. Would like it to work like the lengthen total
command, where the end you pick changes with line staying at same angle.

Thanks,
Steve


Paul Turvill wrote in message
news:7A8D40B59353F6DBCED9BC553D058B96@in.WebX.maYIadrTaRb...
> Could be done with a little LISP ... but it would take a bit more
> information about the line: would you want it to remain at the same angle,
> or would that change as well? Which end would you want to extend/shorten?
Or
> would you like to add the same amount on both ends?
> ___
>
> "Steve Bose" wrote in message
> news:7D3B66E5FBBFCE25D310D9FB971810D8@in.WebX.maYIadrTaRb...
> > Anybody have a command to make a line change length to match length of a
> > line, arc, polyline or circle? Could use this when making flat patterns
> > layouts. Thanks for any help Steve
> >
> >
>
>

[#4]

Quick & dirty -- easiest way seemed to be to just use the LENGTHEN command:

(defun C:ASLONGAS (/ 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)
)

No error checking, but it works as you describe on most objects. Feel free
to modify & refine as you see fit.
___

"Steve Bose" wrote in message
news:13B398086E8D2508C05493B48C486A81@in.WebX.maYIadrTaRb...
> Paul,
> Thanks for the reply. Would like it to work like the lengthen total
> command, where the end you pick changes with line staying at same angle.
>
> Thanks,
> Steve
>
>
> Paul Turvill wrote in message
> news:7A8D40B59353F6DBCED9BC553D058B96@in.WebX.maYIadrTaRb...
> > Could be done with a little LISP ... but it would take a bit more
> > information about the line: would you want it to remain at the same
angle,
> > or would that change as well? Which end would you want to
extend/shorten?
> Or
> > would you like to add the same amount on both ends?
> > ___
> >
> > "Steve Bose" wrote in message
> > news:7D3B66E5FBBFCE25D310D9FB971810D8@in.WebX.maYIadrTaRb...
> > > Anybody have a command to make a line change length to match length of
a
> > > line, arc, polyline or circle? Could use this when making flat
patterns
> > > layouts. Thanks for any help Steve
> > >
> > >
> >
> >
>
>

[#5]

Paul,
Thank you very much, it works great.

Steve

Paul Turvill wrote in message
news:31D10002CD4E467755A79D766552F9BB@in.WebX.maYIadrTaRb...
> Quick & dirty -- easiest way seemed to be to just use the LENGTHEN
command:
>
> (defun C:ASLONGAS (/ 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)
> )
>
> No error checking, but it works as you describe on most objects. Feel free
> to modify & refine as you see fit.
> ___
>
> "Steve Bose" wrote in message
> news:13B398086E8D2508C05493B48C486A81@in.WebX.maYIadrTaRb...
> > Paul,
> > Thanks for the reply. Would like it to work like the lengthen total
> > command, where the end you pick changes with line staying at same angle.
> >
> > Thanks,
> > Steve
> >
> >
> > Paul Turvill wrote in message
> > news:7A8D40B59353F6DBCED9BC553D058B96@in.WebX.maYIadrTaRb...
> > > Could be done with a little LISP ... but it would take a bit more
> > > information about the line: would you want it to remain at the same
> angle,
> > > or would that change as well? Which end would you want to
> extend/shorten?
> > Or
> > > would you like to add the same amount on both ends?
> > > ___
> > >
> > > "Steve Bose" wrote in message
> > > news:7D3B66E5FBBFCE25D310D9FB971810D8@in.WebX.maYIadrTaRb...
> > > > Anybody have a command to make a line change length to match length
of
> a
> > > > line, arc, polyline or circle? Could use this when making flat
> patterns
> > > > layouts. Thanks for any help Steve
> > > >
> > > >
> > >
> > >
> >
> >
>
>

[#6]

Look at this web site: http://a-cad-emia.blogspot.com.es/2012/08/los-defectos-del-comando-longitud.html