Hey Reid,
Did you get a soution to this?
If you did I would apreciate the code as I'm working on the same problem at the momment
Cheers
Andrew
rather than try to stretch, which could be very dangerous, look at setting the length or other dynamic parameter you intend to change.
(defun c:1(/ o l) (setq NA(getstring "\n enter name :") pt(getpoint "\n pick :") va(getpoint pt "\n pick a second point :") di(distance pt va) AN(ANGTOS(ANGLE pt va)) ) (command "_.Insert" na pt "1" "" AN) (setq l (LIST(CONS "X" di) ) o (vlax-ename->vla-object (entlast)) ) (foreach a (vlax-safearray->list (vlax-variant-value (vla-GetDynamicBlockProperties o))) (if (setq e (assoc (vla-get-PropertyName a) l)) (vla-put-value a (vlax-make-variant (cdr e) 5)) ) ) )
TRY THESE PROGRAM AND I ALSO ATTACHED THE DWG FILE CHECK IT