Relier des points topo en polyligne 3D

[yusukens82]

Bonjour,

 

après recherche dans le forum j'ai trouvé un LISP crée par Gile qui est super, il sert a relier plusieurs points topo selon numéro de matricule.

le souci et qu'on doit rentrer chaque numéro un par un si on veut tous les reliers ensemble.

 

le lien :

http://www.cadxp.com/XForum+print-fid-101-tid-19440.html?POSTNUKESID=7746084bd529ee387f8cea55f40d8d52

 

Quelqu'un pourait m'aider à l'adapter autrement ?

plutôt que de relier 2 matricules, j'aimerai par exemple : rentrer le num de matricule le plus bas puis le plus haut, ensuite le lisp va me relier chaque point topo entre (à la suite) avec une polyligne 3D.

 

Merci

 

 

 

[Edité le 5/8/2008 par yusukens82]

[bonuscad]

Une adaptation de la routine de (gile) (très rapide, j'ai simplifié la routine et pas fais vraiment de controle d'erreurs)

 

(defun c:matricule (/ mat mlst ss n bloc att lst opt cnt ind inds indf pt)

(if (and

(setq mat (car (nentsel "\nSélectionnez un matricule: ")))

(setq mlst (entget mat))

(= "ATTRIB" (cdr (assoc 0 mlst)))

(= (type (read (cdr (assoc 1 mlst)))) 'INT)

(setq ss (ssget "_X"

(list '(0 . "INSERT")

(assoc 2 (entget (cdr (assoc 330 mlst))))

)

)

)

)

(progn

(repeat (setq n (sslength ss))

(setq bloc (ssname ss (setq n (1- n)))

att (entnext bloc)

)

(while (not (equal (assoc 2 (entget att)) (assoc 2 mlst)))

(setq att (entnext att))

)

(setq lst (cons (cons (atoi (cdr (assoc 1 (entget att))))

(trans (cdr (assoc 10 (entget bloc))) bloc 1)

)

lst

)

)

)

(initget "2d 3d")

(setq opt (getkword

"\nSpécifiez le type de polyligne [2d/3d] < Quitter >: "

))

(setvar "CMDECHO" 0)

(cond

((= opt "2d") (command "_pline"))

((= opt "3d") (command "_3dpoly"))

(T (command))

)

(setq inds (getint "\nEntrez le matricule du point de départ: "))

(setq indf (getint "\nEntrez le matricule du point de fin: ") ind inds)

(repeat (1+ (- indf inds))

(cond

((setq pt (cdr (assoc ind lst)))

(command "_non" pt)

)

(T

(princ "\nMatricule non valide.")

)

)

(setq ind (1+ ind))

)

(command "")

(setvar "CMDECHO" 1)

)

)

(princ)

)

 

 

[yusukens82]

Saut bonuscad

 

Merci Merci d'avoir adapter le lisp selon mon besoin

 

en attendant une réponse j'avais relié 500 pts topo un à un en polyligne 3D.

vivement un autre new plan topo.

 

bonne journée

[.::kran::.]

Un énorme MERCi à toi Bonuscad... ça vient de me tirer uné sacrée épinne du pied .....

Mon chef débarque et j'avais 5 minutes pour rellier 2000 points topos... hum!!!!

:(

 

grâce à vous...... GG

[yusukens82]

bienvenue kran sur CADXP

 

je me sert très souvent de ce lisp depuis le POST, vraiment très utile

 

bon surf