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