Stretch Function with Grips

[Polhub]

We have a set of dynamic blocks, each block has two points (grips); one input, one output. We use many of these blocks in our drawing packages and it becomes cumbersome to click on each block, then shift click on the grip we want to move.

I am looking for a method that will be more similar to the stretch command where I draw a crossing window (or fence) and can move a group. I have done some research and, from what I can find, this may not be possible, but of course unless I hit the exact terms in Google things like this are always hard to find. Does anyone have experience with a situation like this, is it possible?

Thanks

[BIG-AL]

If you have Properties open when you click on a dynamic block it shows the current value of the constraints you can type in a new value or is the new point random ?

You can set a value also via lisp you could pick a point and use some form of reference point say from the insertion point to get the distance and update the block.

If you have a look at www.lee-mac.com dynamic block functions the get & put is what you need.

Need more info say an image or dwg.

;; Get Dynamic Block Property Value  -  Lee Mac
;; Returns the value of a Dynamic Block property (if present)
;; blk - [vla] VLA Dynamic Block Reference object
;; prp - [str] Dynamic Block property name (case-insensitive)

(defun LM:getdynpropvalue ( blk prp )
    (setq prp (strcase prp))
    (vl-some '(lambda ( x ) (if (= prp (strcase (vla-get-propertyname x))) (vlax-get x 'value)))
        (vlax-invoke blk 'getdynamicblockproperties)
    )
)

;; Set Dynamic Block Property Value  -  Lee Mac
;; Modifies the value of a Dynamic Block property (if present)
;; blk - [vla] VLA Dynamic Block Reference object
;; prp - [str] Dynamic Block property name (case-insensitive)
;; val - [any] New value for property
;; Returns: [any] New value if successful, else nil

(defun LM:setdynpropvalue ( blk prp val )
    (setq prp (strcase prp))
    (vl-some
       '(lambda ( x )
            (if (= prp (strcase (vla-get-propertyname x)))
                (progn
                    (vla-put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))
                    (cond (val) (t))
                )
            )
        )
        (vlax-invoke blk 'getdynamicblockproperties)
    )
)

;sample code starts here
(setq blk (vlax-ename->vla-object (car (entsel "Pick block"))))
(LM:setdynpropvalue  blk "distance4" (getint "enter length") ) ; change distance4 for value

[Polhub]

Thanks Al,

Unfortunately the distances can be any length. I have attached the block, a few things going on there but essentially the left and right connectors can be moved separately in any X-Y direction. I am looking for a method to move a group of either the left or right connectors as a group more easily (like stretch or the regular move command).