COPY THE CONTENT OF ONE ATTRIBUTE TO OTHERS .... HELP

[leonucadomi]

HELLO 

 

IS THERE ANY LSP ROUTINE THAT CAN COPY THE CONTENT OF ONE ATTRIBUTE TO OTHERS?

 

IN THE EXAMPLE FILE COPY THE 008 TO THE ATTRIBUTES WITH 007

 

 

 

THANKS

ATRIB TEST.dwg

[mhupp]

This does a one to one replace of objects.  Please note I am only selecting the yellow text.

 

;;----------------------------------------------------------------------------;;
;; Copy item to Multiple locations to replace selection
(defun C:COPYOBJ (/ ent BP SS obj LL UR MPT)
  (vl-load-com)
  (setq obj (vlax-ename->vla-object (setq ent (car (entsel "\nObject to copy: ")))))
  (vla-getboundingbox obj 'minpt 'maxpt)
  (setq BP (mapcar '/ (mapcar '+ (vlax-safearray->list minpt) (vlax-safearray->list maxpt)) '(2 2 2)))
  (if (setq SS (ssget))
    (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
      (setq obj (vlax-ename->vla-object e))
      (vla-getboundingbox obj 'minpt 'maxpt)
      (setq MPT (mapcar '/ (mapcar '+ (vlax-safearray->list minpt) (vlax-safearray->list maxpt)) '(2 2 2)))
      (vla-delete obj)
      (vl-cmdf "_.Copy" ent "" BP "_non" MPT)
    )
  )
  (princ)
)

 

Edited July 11, 2022 by mhupp
vl-load-com

[leonucadomi]

THANK YOU BUT THE ROUTINE DOES NOT EXECUTE

[mhupp]

Added an a to vl-load-com should work now.

[Steven P]

Lee MAcs CTX will also do this though you have to select the text to copy into individually

[leonucadomi]

thanks its excellent

[marko_ribar]

Didn't looked at DWG, but according to provided code, I suppose it's designed for copying and replacing normal entities, not specific ones like requested - attributes...

So, can you just select, input desired number, and change textstring to all collected through selection... Either way, it's the same... Sometimes it's better to just do input by keyboard through routine runtime, IMHO...

[BIGAL]

Is there a reason the block does not have just one attdef ? which can be any text rather than using the Tagstring name ?

[ILoveMadoka]

This is friggin AWESOME!!