AutoLISP -> STRETCH

Harry van Nyendaal

unread,

Jun 11, 1997, 3:00:00 AM6/11/97

to

Does anyone know what kind of input the STRETCH command needs?

(command "STRETCH" ???? "" <base point> <second point>)

It doesn't accept the input of entsel, nentsel and ssget.

Thanks in advance.

Lu

unread,

Jun 11, 1997, 3:00:00 AM6/11/97

to

Hi Harry,

Try collecting the entities in a selection set first;

(SETQ ss(SSGET "c" "10,10" "100,100"))
(COMMAND "stretch" ss "" point1 point2)

Cheers,
Lu
;-----------------------------------------------------------------------
; When all else fails, read the book. But there ain't none no more! <g>
; CAD\Tek web site: http://www.cad-tek.com
;-----------------------------------------------------------------------

de...@mid.org

unread,

Jun 11, 1997, 3:00:00 AM6/11/97

to

In article <01bc765a$fdd8a860$e28443c1@cadit>,

"Harry van Nyendaal" <ca...@worldaccess.nl> wrote:
>
> Does anyone know what kind of input the STRETCH command needs?
>
> (command "STRETCH" ???? "" <base point> <second point>)
>
> It doesn't accept the input of entsel, nentsel and ssget.
>
> Thanks in advance.

Harry, here a routine I have that I use for scheduling. The routine
inserts a block, explodes, then streached. I control the second point
but you should be able to pre-set the second point. . .

Good luck

(defun c:add_marker (/ id_cmdecho p1 cx cy cz p2 p3 p4)
(prompt "\nCommand: ")
(setq id_cmdecho(getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq p1(getpoint "Get Marker Insertion Point. . "))
(setq cx(car p1))
(setq cy(cadr p1))
(setq cz(caddr p1))
(setq p2(list (+ (atof "0.05") cx) (- cy (atof "0.04")) cz))
(setq p3(list (+ (atof "0.15") cx) (+ cy (atof "0.04")) cz))
(setq p4(list (+ (atof "0.125") cx) cy cz))
(command"._insert" "*marker" p1 "1" "0")
(prompt "\n ")
(command"._stretch" "SI" "C" p2 p3 p4)
(setvar "cmdecho" id_cmdecho)
(princ)
)

-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet

Darren J. Young

unread,

Jun 13, 1997, 3:00:00 AM6/13/97

to

[This followup was posted to comp.cad.autocad and a copy was sent to the
cited author.]

In article <01bc765a$fdd8a860$e28443c1@cadit>, ca...@worldaccess.nl
says...

> Does anyone know what kind of input the STRETCH command needs?
> (command "STRETCH" ???? "" <base point> <second point>)
> It doesn't accept the input of entsel, nentsel and ssget.

Harry,

Gather the entities you want to stretch in a selection set. (ssget ....)

In addition, just like from the command line, the only entities in a
selection set that stretch will process are those selected with a
Crossing or Crossing Polygon.

(ssget "C" bla bla) -or- (ssget "CP" bla bla)