Rechercher dans la communauté
Affichage des résultats pour les étiquettes 'copylayer'.
1 résultat trouvé
-
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
