2d attribute to 3d block

[davidkalapa]

i want to transfer the highet attribute of a block to its  block position z geometry that currently as the value of 0  

how can I  do it ? 

[Tharwat]

Its easy enough to do so just select the attributed block then retrieve the attribute with tag name HEIGHT then modify the Z coordinates of the block.

Did you write any codes in regard to this goal?

[davidkalapa]

its for a 2000 blocks

i need some other way

[Tharwat]

I am not giving you a manual solution but one with a routine and that's why I asked you if you have written any codes in this regard.

[Tharwat]

Try the following [ untested ] codes and let me know. 

(defun c:Test (/ int sel ent get obj att pos ins)
  ;;------------------------------------------------------------;;
  ;;	Author: Tharwat Al Choufi - Date: 10.Apr.2022		;;
  ;;	website: https://autolispprograms.wordpress.com		;;
  ;;------------------------------------------------------------;;
  (and
    (princ "\nSelect attributed blocks < M1502_P > : ")
    (setq int -1
          sel (ssget '((0 . "INSERT") (66 . 1) (2 . "M1502_P")))
    )
    (while (setq int (1+ int)
                 ent (ssname sel int)
           )
      (and (setq get (entget ent)
                 obj (vlax-ename->vla-object ent)
                 pos (assoc 10 get)
                 ins (mapcar '+ (cdr pos) '(0. 0.))
           )
           (vl-some (function (lambda (u)
                                (and (= (vla-get-tagstring u) "HEIGHT")
                                     (setq att (vla-get-textstring u))
                                )
                              )
                    )
                    (vlax-invoke obj 'GetAttributes)
           )
           (entmod
             (subst (cons 10 (append ins (list (distof att)))) pos get)
           )
      )
    )
  )
  (princ)
) (vl-load-com)