How to update stretch command ?

[mhy3sx]

Hi, I am using ZWCAD. I have a problem with stretch command, I don't remember if Autocad have the same problem. I have some Templates for my drawings. 

The problem is when the Template include Tables , not explode tables but ACAD_TABLES when I do stretch to the template the Tables stay back don't follow the movement.

I don't want to strech them just follow all the other lines. I try this but is not working. Any other ideas?

 

(defun c:S (/ oldortho)
  (setq oldortho (getvar "ORTHOMODE"))
  (setvar "ORTHOMODE" 1)

  (while t
    (if (setq ss (ssget  '((0 . "*"))))   
      (progn
        (command "_.STRETCH" ss "" )
      )
      (progn
        (princ "\nΤέλος.")
        (setvar "ORTHOMODE" oldortho)
        (exit)
      )
    )
  )
)

 

 

Thanks

[mhupp]

@SLW210 might move this to Lisp area. 

 

Never used ZWCAD but sometimes stretch selection has to fully enclose some items like blocks or tables for it to move with the command. you can't just pick up the bottom corner or left side.

[mhy3sx]

Hi mhupp, I select them all from top right to botom left , and shows me that tablew are selected but dont move with the stretch like all the other lines or blocks, and I don't want to explode them .

 

Thanks

[mhupp]

Might be on a locked layer?

 

(if (setq ss (ssget "_:L"))) ;ignore locked layers

 

if this is in paper space is it in a view port you would have to select the whole viewport not just around the table.

[BIGAL]

Not sure using Bricscad if you pick the top of a table the grips will appear, then pick bottom right grip and drag bigger or smaller.

[SLW210]

I moved your thread to the AutoLISP, Visual LISP & DCL Forum. Please post in the correct forum.