steelbe

Bonjour, Je souhaite rendre un programme que j'ai initialement devellopé pour percer dix trous sur la semelle d'une poutrelle plus flexible qui fonction correctement suite à certaine explication que j'ai obtenu sur ce forum. (defun C: holes ( / HP DR ect....) (setq HP (getpoint "`\nHole starting point :") (setq DR (getreal "\nDiametre of hole :") (setq gbc (getreal "\nGap betxeen column :") Suit le rest des valeurs à entre......... (setq HP (polar HP Pi (/ gbc 2) suivie des autre points...... (Command "_circle" HP1 ect (Command "_extrud" ...........) suivie entsel pour selectionner la poutrelle (Command "_subtract" ss0 "" ss1 ss2 ss3 ect ......) J'ai commence à le modifier en inserent INIGET 1 "2 4 6 8 10" 'setq con_1 (getkword "2/4/6/8/10") INIGET fonctionne et il me demande de choisir le numbre de trous à percer (if (= con_1 2) (progn (setq HP (getpoint "\nHole starting point) suivie des autres valeurs à entre suivie des points ect.... cependant le programme ne fonctionne pas ou realise des loop à l'infinie. Comment imbique des conditions pour percer le nombre de trous que je veux? 2 ou 4 ou 6 ou 8 ou 10 Merci d'avance pour l'aide que vous pourriez m'apporter sur cette fonction.

Bonjour, Je te remercie pour les explications que tu ma fournis "gile" tres utile pour comprendre le fonctionnement d'un app LISP. J'ais utilisé la fonction (entlast). Il n'y a pas beaucoup d'explication sur (ssadd) et j'aimerais le metriser comme la fonction (entlast). Aussi, je remerci bonuscad pour son app LISP sur l'écrou qui fonctionne à merveille. Cela ma donné l'idée de developper une app LISP pour un boulon, Je souhaite connaitre la procedure pour créer un angle de 30 degree a chaque sommet du polygone. Merci pour l'aide que vous pourrez m'apporter sur cette procedure. Aussi j'aimerais comprendre comment changer le UCS car je souhaite créer une app LISP pour une poutre alveolaires rondes souvent utilisé pour des planchers. Quand je cré la poutre je l'extrude selon l'axe Z et les trous sont percés sur l'ame de la poutre donc les cercle seront creés parallelement à l'ame de la poutre et extrudé selon l'épaisseur de l'ame. un exemple ou une explication serait tres utile pour réaliser cette app. Merci d'avance :) steelbe

Bonsoir, Je suis un progammeur débutant et je me suis inscri pour obtenir de l'aide pour une fonction que je n'arrive pas a réaliser automatiquement. Je souhaite ajouter la fonction subtract à la suite d'un programme lisp pour dessiner une platine de pied de poteau encastre avec quatre tiges d'ancrage dons quatre trous J'ai reussi à creer le programme qui est le suivant: 1) Definition des variables à utilisateur lors de l'exécution du programme de la platine. 2) Definition des points pour le tracé de la platine 3) command "_pline" p1 p2 p3 p4 p1 "") command "_extrud" "D" "" THK "") THK: epaisseur platine 4) Definition des variables à utilisateur lors de l'exécution du programme pour le quatre trous à creer. 5) command "-circle" PP1 D "") command "_extrud" "T" "" THK "") THK: epaisseur platine 6) Je souhaite programmer en lisp si possible la command subtract de maniere automatique. Quand j'utilise command "_subtract" je dois selectionner la patine puis les quatre cylindre pour finaliser la command. je souhaite que cette fonction s'éffectu sans que je n'ai à selectionner la platine puis les cylindres. J'ai recupére un fichier lisp sur ce site appelle (" _soustrac " ) pour completer mon programme mais se app à été creé avec une selection de region et solid_3D. Serait-il possible de le modifier ou m'indiquer la ligne de command a utiliser. 7) command "_-view" "_swiso" ) cette fonction change la platine du plan superieur à un plan 3D Je vous remercie d'avance pour votre aide. :)