-
Qui est en ligne 1 membre, 0 anonyme, 83 invités (Afficher la liste complète)
PARTsolutions
Composants mécaniques téléchargeables de la société Cadenas (http://fr.cadenas.de)
7 sujets dans ce forum
-
- 1 réponse
- 10,6 k vues
-
- 6 réponses
- 10,9 k vues
-
- 0 réponse
- 14,9 k vues
-
- 0 réponse
- 9 k vues
-
- 0 réponse
- 8,6 k vues
-
- 2 réponses
- 9,3 k vues
-
- 0 réponse
- 9,2 k vues
-
Statistiques des forums
-
Total des sujets48,7 k
-
Total des messages295,4 k
-
-
Sujets
-
-
Messages
-
Par Invité Julien · Posté(e)
Bonjour , Je suis débutant en LISP, je vous écris car je suis en train de faire un programme lisp "coupe sur porte-a-faux automatique". J'ai réalisé la première parti du programme à savoir le mur, le paf et les traits d'axes mais j'aimerai implémenter une condition " IF " lorsque l'on demande à l'utilisateur si il souhaite créer un plancher avec une zone hourdis négatif derrière le porte à faux. J'ai alors écrit ceci mais ça ne marche pas je pense que c'est une erreur de syntaxe dans mon script. Je vous met en pièce jointe le programme, si vous avez des solutions je suis preneur : (initget 1 "Oui Non") (setq hourdisnégatif (getkword " Plancher + Hourdis négatif ? [Oui/Non]:")) (if (= "Oui" hourdisnégatif) (setq hthourdis (getint " Epaisseur hourdis ?")) ; Trait d'axes hourdis négatif (setq p17 (polar p15 (angle p1 p0) 25)) (setq p18 (polar p16 (angle p0 p1) 25)) (command "ligne" p17 p18 "") ; Dessin hourdis négatif (setq p19 (polar p13 (angle p1 p2) 2)) (setq p20 (polar p19 (angle p0 p1) hthourdis)) (setq p21 (polar p15 (angle p0 p1) hthourdis)) (command "ligne" p13 p19 p20 p21 "") (= "Non" nil) ) -
Merci Messsage perso envoyé. 😉 -
Bonjour Fraid Je voulais remercier pour les deux programmes Lisp que vous m'avez transmis sont géniaux !!!! Je voudrais savoir est ce que vous un programmeur Lisp ? si oui, je voudrais savoir si vous faites des programme lisp personnalisée à la demande ? contre rémunération bien sur -
Rendez-vous mardi 18 juin à 18h30 CEST pour le prochain Tech Meet Up d'Onshape ! Vous pourrez apprendre comment Exotec a adopté Onshape, découvrir le programme de découverte d'Onshape, les nouveautés de notre roadmap et échanger avec d'autres clients d'Onshape et responsables de développement produit. Boissons et collations fournies. Places limitées. Réservez la vôtre dès maintenant! Cliquez ici pour réserver votre place. -
Hello @Jo le projeteur Et voici un autre Lisp/VLisp "KDIM_BLOCK" pour supprimer les Cotes (DIM) dans les Blocs ... Comme d habitude, un REGEN apres execution par securite ... Bye, lecrabe ;; Supprimer (Kill) les cotations (DIMension) dans les blocs (BLOCK) ;; Par GC le 11/03/2011 - Passage en DEFUN par Fraid (defun c:KDIM_BLOCK (/ b o) (vl-load-com) (vlax-for b (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object) ) ) (or (= (vla-get-IsLayout b) :vlax-true) (= (vla-get-IsXref b) :vlax-true) (vlax-for o b (if (wcmatch (vla-get-ObjectName o) "AcDb*Dimension") (vla-delete o) ) ) ) ) )
-
-
Sujets
-
