[Autodesk_sig_fr] [ACAD] Transfert d'attribut d'un bloc vers un autre

Message posté par : olivier.eckmann ---------------------------------------- Bonjour, Avec ce code ça permet de faire de la recopie 1 à 1 s'il n'y en a pas trop. ----------------- Code : (defun C:COPYATT2ATT ( / oAtt1 oAtt1Dxf oAtt2 oAtt2Dxf sVal1) (while (and (setq oAtt1 (car (nentsel "\nAttribut source : "))) (setq oAtt1Dxf (entget oAtt1)) (= "ATTRIB" (cdr (assoc 0 oAtt1Dxf))) (setq oAtt2 (car (nentsel "\nAttribut destination : "))) (setq oAtt2Dxf (entget oAtt2)) (= "ATTRIB" (cdr (assoc 0 oAtt2Dxf))) ) (setq sVal1 (cdr (assoc 1 oAtt1Dxf))) (setq oAtt2Dxf (subst (cons 1 sVal1) (assoc 1 oAtt2Dxf) oAtt2Dxf)) (entmod oAtt2Dxf) ) ) ----------------- Olivier ---------------------------------------- Le message est situé https://georezo.net/forum/viewtopic.php?pid=348210#p348210 Pour y répondre : autodesk_sig_fr(a)ml.georezo.net ou reply de votre messagerie Pour vous désabonner connectez-vous sur le forum puis Profil / Abonnement -- Association GeoRezo - le portail géomatique https://georezo.net