Classement

Ou alors ceci! (defun c:change_layer_blk&vertex ( / ss_blk ss_poly i ent dxf_ent next_dxf nam_lay lst_pt nw_pt n ent_blk dxf_blk pt_ins) (setq ss_blk (ssget "_X" '((0 . "INSERT") (2 . "DETECT")))) (cond (ss_blk (princ "\nSelect 3Dpolylines") (setq ss_poly (ssget '((0 . "POLYLINE") (-4 . "&=") (70 . 8)))) (cond (ss_poly (repeat (setq i (sslength ss_poly)) (setq ent (ssname ss_poly (setq i (1- i))) dxf_ent (entget ent) next_dxf (entget (entnext (cdar dxf_ent))) nam_lay (assoc 8 dxf_ent) lst_pt nil ) (while (/= (cdr (assoc 0 next_dxf)) "SEQEND") (if (eq (cdr (assoc 70 next_dxf)) 32) (setq nw_pt (cdr (assoc 10 next_dxf)) lst_pt (cons nw_pt lst_pt) ) ) (setq next_dxf (entget (entnext (cdar next_dxf)))) ) (repeat (setq n (sslength ss_blk)) (setq ent_blk (ssname ss_blk (setq n (1- n))) dxf_blk (entget ent_blk) pt_ins (cdr (assoc 10 dxf_blk)) ) (mapcar '(lambda (x) (if (equal (list (car pt_ins) (cadr pt_ins)) (list (car x) (cadr x)) 1E-08) (entmod (subst nam_lay (assoc 8 dxf_blk) dxf_blk)) ) ) lst_pt ) ) ) ) ) ) ) (prin1) )

Salut, j'ai encore l'installeur de la version 15 en 32bits. Si intéressé, je peux envoyer en MP. Par contre, je crois qu'il va te redemander un code d'autorisation si tu n'as pas sauvé ton fichier C:\Program Files (x86)\Geomedia SA\Covadis\Programmes\CovaNetLink.ini

Bonjour @ZCAD Désolé de ne pas répondre, mais je n'ai pas de temps libre en ce moment. Un peu le week-end, mais j'aime aussi couper un peu. à bientôt