Change dynamic block grip using coordinates

[Amriya_Exe]

I Have dynamic Block with 9 Grips of Stretch and Move parameters. other side I have 9 coordinates on alignment I have to adjust 9 Grips on this coordinates. its possible to complete this job using any script or Lips?

[hak_vz]

Maybe with .net, but not with lisp as far as I know!

[Sea-Haven]

Depending on the block if we look at say "Distance1 which might have a grip at 1 end so changing a length, then yes can set "Distance1" via lisp. 

1st step is download Lee-mac Dynamic Block lisps.

;; 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

(setq blk (vlax-ename->vla-object (entlast)))
(LM:setdynpropvalue blk "Width" wid)
(LM:setdynpropvalue blk "Height" ht )

[Amriya_Exe]

This is LISP or Script?
how to use this?
On
Lee-mac Dynamic Block site I found this

;; Set Dynamic Block Properties - Lee Mac
;; Modifies values of Dynamic Block properties using a supplied association list.
;; blk - [vla] VLA Dynamic Block Reference object
;; lst - [lst] Association list of ((<Property> . <Value>) ... )
;; Returns: nil

(defun LM:setdynprops ( blk lst / itm )
(setq lst (mapcar '(lambda ( x ) (cons (strcase (car x)) (cdr x))) lst))
(foreach x (vlax-invoke blk 'getdynamicblockproperties)
(if (setq itm (assoc (strcase (vla-get-propertyname x)) lst))
(vla-put-value x (vlax-make-variant (cdr itm) (vlax-variant-type (vla-get-value x))))
)
)
)

But dont know how to use

[komondormrex]

a sample of before and after could be useful to apprehend whether lisp can be of help

[Amriya_Exe]

@komondormrex  Please check attached file for detailed information.

I want to move all Five Grips on this coordinates automatic

16.6132,136.0869
13.7663,145.7196
10.9492,155.2514
8.1632,164.6781
19.3787,126.73

[ВeekeeCZ]

You can use this simple lisp.

BUT you need to redefine your block so it's not such a mess. See the drawing, there are labeled dimensions, that way you need to redefine your block. The routine does not set coordinates but distances between points.

(vl-load-com)

(defun c:Trailins ( / p e s l)

  (princ "\nSelect points, ")
  (if (and (setq s (ssget '((0 . "POINT"))))
	   (not (command "_.-insert" "trail" "_s" 1 pause pause))
	   (setq p (getvar 'lastpoint))
	   (setq e (entlast))
	   (setq l (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))
	   (setq l (mapcar '(lambda (x) (cdr (assoc 10 (entget x)))) l))
	   (setq l (vl-sort l '(lambda (x1 x2) (< (distance p x1) (distance p x2)))))
	   (setq l (mapcar '(lambda (x1 x2) (distance x1 x2)) (cons p l) l))
	   ;(princ l)
	   )
    (mapcar '(lambda (p x) (vl-catch-all-apply 'setpropertyvalue (list e (strcat "AcDbDynBlockPropertyDistance" p) x)))
	    '("1" "2" "3" "4" "5") l))
  (princ)
  )

[Amriya_Exe]

I tried above lisp and result is as below

Its not falling on the points I selecting.

[Amriya_Exe]

Solution Please