extrude comment ?

[didfix]

Bonjour à tous,

 

je débute avec autolisp, et je cherche à extruder la "pline" dans le petit programme suivant:

 

 

(defun C:COTEG (/ O P PR EP PF H )

 

(Setq O (getpoint "\nOrigine du cote : "))

(Setq P (getreal "\nProfondeur du cote : "))

(Setq PR (getreal "\nProfondeur de la rainure : "))

(Setq EP (getreal "\nEpaisseur du cote : "))

(Setq PF (getreal "\nDistance entre fond et dos : "))

(setq H (getreal "\nHauteur extrusion : "))

 

(Setq P1 (polar O (/ pi 2) P))

(Setq P2 (polar P1 (* pi 2) EP))

(Setq P3 (polar P2 (* pi 1.5) (- PF 8)))

(Setq P4 (polar P3 pi PR))

(Setq P5 (polar P4 (* pi 1.5) 8))

(Setq P6 (polar P5 (* pi 2) Pr))

(setq P7 (polar P6 (* pi 1.5) (- P PF)))

(setq P8 (polar P7 pi EP))

 

 

(command "_pline" O "_W" 0 0 P1 P2 P3 P4 P5 P6 P7 P8 "")

)

je cherche donc à fermer la "pline " et l'extruder

j'ai essayée avec "pedit " pui "extrude" mais en fait je crois que je n'arrive pas à selectionner la pline correctement .bref le dessin est correct mais l'extrude ne se fait pas .

 

Pour mes débuts j'ai acheté le livre en français "programmer autocad " par jean-pierre Couwenberg.

Je le crois bon pour comprendre autolisp ,mais dès qu'il sagit de faire un programme

il manque les command et les fonctions avec le options et ce que cela implique .

 

 

 

[bonuscad]

bonjour,

 

Dans l'ordre les conseils que je pourrais te donner pour que ton programme se déroule correctement:

 

Faire un contrôle des entrées utilisateurs en t'aidant (iniiget) voir l'aide pour les bits de contrôle

 

Une suggestion: utilser (gesdist) au lieu de (getreal) pour permettre une saisie graphique.

Ex: (Setq P (getdist O "\nProfondeur du cote : "))

 

Vérifier l'accrochage aux objets. Soit en utilisant la variable OSMODE soit en incluant "aucun" dans la commande. Pas besoin d'utiliser "pedit" prends simplement l'option "clore" de la commande polyligne

Ex:

(command "_.pline" "_none" O "_Width" 0 0 "_none" P1 "_none" P2 "_none" P3 "_none" P4 "_none" P5 "_none" P6 "_none" P7 "_none" P8 "_close")

 

Pour extruder ta polyligne tu peux faire:

(command "_.extrude" "_last" "" h "")

 

Mais pour que celle-ci fonctionne, il faut être sur que la figure obtenue ne soit pas auto-coupante:

 

Un contrôle logique des variables fournies peut être fait à l'aide des fonction "> " ou "< " pour éviter ce cas.

 

Voilà pour mes principales observations. Bonne continuation ;)

[didfix]

Merci Bonuscad,

 

ave cette réponse en 20 s . et ça marche

mais bien entendu j'ai pas encore tout mis en oeuvre.

je vais voir les iniget maintenant

et je rajouterai les fonctions "> et < " ...

 

en tout les la réponse est pertinante !