copie objet d'une couche dans une autre

[yann69690]

Bonjour,
Je sèche sur la création/adaptation d'un lips mais j'espère que je ne suis pas très loin...

contexte :  gros projet signalisation horizontal et vertical avec beaucoup de changement au cours du temps (une phase par couche) donc je souhaite une lips qui copie l'ensemble des objets d'une couche et importe les entités (objet polyligne hachure etc) dans une nouvelle couche (dont je choisis le nom).

Problème : J'utilise peut etre à tord la commande _copybase mais le problème c'est qu'elle ne gère pas l'ordre d'affichage de mes objets (quand je dessine je m'occupe de cela au fil de l'eau) donc on peut retrouver au hasard un objet en dessous d'une hachure ou par exemple deux polyligne (un passage piéton) et une flèche directionnelle inversés, etc...
Donc phase 1 avec le bonne ordre, après mon lips phase 2 mais avec le désordre donc pas rentable en terme de temps de devoir tout refaire...

Le code :

(defun c:NewCopyLayer (/ layerSource layerDestination ss)
  (setq layerSource (strcase (getstring t "Entrez le nom du calque source : ")))
  (setq layerDestination (strcase (getstring t "Entrez le nom du nouveau calque à créer : ")))
  (if (and layerSource layerDestination)
    (progn
      (setq ss (ssget "_X" (list (cons 8 layerSource))))
      (if ss
        (progn
          (or (tblsearch "LAYER" layerDestination)
              (command "_.LAYER" "_N" layerDestination ""))
          (command "_.COPYTOLAYER" ss "" layerDestination "_D" "0,0,0")
          (command "_.LAYER" "_M" layerDestination "")
          (command "_.-LAYER" "_F" layerSource "")
        )
      )
    )
  )
)

(princ)

 

Merci beaucoup de votre aide 

[yann69690]

Sinon M.chatGPT, me propose cette solution (mettre les entités dans une liste et dépiler la liste) non fonctionnelle carrément et je ne pense pas que cela soit d'une grande aide coté logique.
 

(if (setq on (ShowDcl))
    (progn
      (setq layerSource (strcase (car lst)))
      (setq layerDestination (getstring t "Entrez le nom du nouveau calque à créer : "))
      (if (and layerSource layerDestination)
        (progn
          (setq ss (ssget "_X" (list (cons 8 layerSource))))
          (if ss
            (progn
              (or (tblsearch "LAYER" layerDestination)
                  (command "_.LAYER" "_N" layerDestination ""))
              
              (setq entityList '())
              (setq sslen (sslength ss))
              (repeat sslen
                (setq entity (ssname ss 0))
                (setq entityList (cons entity entityList))
                (ssdel entity ss)
              )
              
              (setq entityList (reverse entityList))
              (foreach ent entityList
                (princ (strcat "\nCopying entity: " (itoa ent)))
                (command "_COPY" ent "_P" layerDestination "")
              )
              
              (command "_.LAYER" "_F" layerSource "")
            )
          )
        )
      )