;; auteur Patrick_35 avec tous mes remerciments
;; copie un bloc dynamique en conservant son origine et en le posant
;; sur son paramètre de position
;;
;; deux fonctions disponibles
;; AD qui fait un Règen à chaque boucle
;; ADF qui fait un seul régen à la fin (à utiliser sur un fichier lourd)


(defun c:ad(/ blo ele new pos pt1 tbl)
  (vl-load-com)
  (and  (setq ele (entsel))
        (setq ele (vlax-ename->vla-object (car ele)))
        (setq pos (vlax-get ele 'insertionpoint))
    (while (setq pt1 (getpoint "\nNouveau point : "))
      (setq blo (vla-copy ele)
            new (mapcar '- pt1 pos)
            tbl (vlax-invoke ele 'getdynamicblockproperties)
      )
      (vlax-put (car tbl) 'value (car new))
      (vlax-put (cadr tbl) 'value (cadr new))
      (command "REGEN")
    )
  )
  (princ)
)


(defun c:adf(/ blo ele new pos pt1 tbl)
  (vl-load-com)
  (and  (setq ele (entsel))
        (setq ele (vlax-ename->vla-object (car ele)))
        (setq pos (vlax-get ele 'insertionpoint))
    (while (setq pt1 (getpoint "\nNouveau point : "))
      (setq blo (vla-copy ele)
            new (mapcar '- pt1 pos)
            tbl (vlax-invoke ele 'getdynamicblockproperties)
      )
      (vlax-put (car tbl) 'value (car new))
      (vlax-put (cadr tbl) 'value (cadr new))
    )
  )
  (command "REGEN")
  (princ)
)