FRED350

Merci je regarde, mais c'est du lisp et je voulais en VBA.

je sais retrouver dans mon dessin mon blocK dynamic "agences" et je voudrais afficher état de visibilité pour le changer Private Sub ToggleButton1_Click() Dim objBloc As AcadBlock Dim strNomDuBloc As String strNomDuBloc = "Agences" If strNomDuBloc = "" Then Exit Sub On Error Resume Next Set objBloc = ThisDrawing.Blocks(strNomDuBloc) If objBloc Is Nothing Then MsgBox "Le bloc '" & strNomDuBloc & "' n'existe pas." Else MsgBox "Le bloc '" & strNomDuBloc & "' existe." End If End Sub

Bonjour, je suis débutant . j'ai un block Dynamics AGENCES je voudrais ouvrir mes prototypes et changer l'état de visibilité du bloc Agences en vba ou lisp si quelqu'un peut m aider. Agences.zip

Bonjour, j'ai un problème sur le chemin de mon bloc (nombloc "C:\00-llisp\datej.dwg") pouvez vous m'aider ;;;______________________________________ ;;;Programme DATEJ.LSP ;;;______________________________________ (defun c:DATEJ ( / lmois jj mm aa datej rep echbloc nombloc ) ;;;;; lmois = liste en clair des mois de l année (setq lmois ( list "janvier" "février" "Mars" "Avril" "Mai" "juin" "Juillet" "Aout" "Septembre" "Octobre" "Novembre" "Decembre" );list datej (rtos (getvar "cdate")2 0) ;;;;20150505 jj (substr datej 7 2 );;;;05 mm (substr datej 5 2 );;;;05 aa (substr datej 1 4 );;;;2015 rep (getstring"\nFormat pour la date :1 04/05/2015 / 2 : 4 Mai 2015 <1>:") echbloc (getdist "\nEchelle du bloc <1>:") nombloc "C:\00-llisp\datej.dwg" );setq ;;;;;_________________________________________________________ ;;;;; test de la condition (if (= rep "2") ;;;;format de la date 4 Mai 2015 (setq datej (strcat jj " " (nth (- (atoi mm) 1) lmois) " " aa)) (setq datej (strcat jj "/" mm "/" aa)) );if ;;;; test la valeur de j echelle (if(= echbloc nil) (setq echbloc 1 ) );if (alert(vl-prin1-to-string nombloc)) (setvar "cmdecho" 0) (setvar "attdia" 0) (prompt "\nPosition de la DATE") (command "inserer" Nombloc pause echbloc echbloc 0 datej) (princ) );defun c:datej

BONJOUR, je n arrive pas a créer mon calque et lui attribuer une couleur ma pièce se dessine dans le calque 0 et mon calque n'est pas crée (defun C:PIECE (/ PT LONG HAUT) ;;;;--------------------------------------------- ;;;;Point insertion de la piece ;;;; (setq PT (getpoint "\nPoint d'insertion de la pièce")) ;;;--------------------------------------------- ;;;;longueur de la piece (setq LONG (getdist "\nLongueur:")) HAUT 0 (while (< HAUT (/ LONG 3)) (prompt"\nHauteur trop faible,Minimun=") (princ (/ LONG 3)) (setq HAUT (getdist "\nLargeur de la piece:")) );while (dessinPIECE PT LONG HAUT) );defun C:PIECE ;;;----------------------------------------------------------- ;;; dessin de la piece (defun dessinPIECE (PT LONG HAUT / PT2 PT3 PT4 PT5 PT6 PTTROU DIAM) ;;;;;;;;;;;;;;;;-------x-------I--y-----I-z-----I (setq PT2 (list (+(car PT)LONG) (cadr PT) 0)) (setq PT3 (list (car PT2) (+(cadr PT)(/ HAUT 2)) 0)) (setq PT4 (list (-(car PT3)(*(/ LONG 3)2)) (cadr PT3)0)) (setq PT5 (list (car PT4) (+(cadr PT4)(/ HAUT 2)) 0)) (setq PT6 (list (car PT ) (+(cadr PT) HAUT ) 0)) (setq PTTROU (list (+(car PT)(/ LONG 6)) (+(cadr PT)(/ HAUT 2)) 0)) (setq DIAM (/ LONG 9)) (alert(vl-prin1-to-string PT6 )) (command "-layer" "E" "PIECE" "" ) (command "polylign" PT "LA" 0 0 PT2 PT3 PT4 PT5 PT6 "C") (command "_circle" PTTROU "D" DIAM) (command "_zoom" "_e") (princ)

merci j ai trouvé );setq était mal placé il fait le mettre après le );while (defun C:PIECE (/ PT LONG HAUT) ;;;;--------------------------------------------- ;;;;Point insertion de la piece ;;;; (setq PT (getpoint "\nPoint d'insertion de la pièce")) ;;;--------------------------------------------- ;;;;longueur de la piece (setq LONG (getdist pt "\nLongueur:")) (setq HAUT 0) (while (< HAUT (/ LONG 3)) (prompt"\nHauteur trop faible,Minimun=") (princ (/ LONG 3)) (setq HAUT (getdist pt "\nLargeur de la piece:")) );while );setq );defun PIECE

Ca ne marche pas (defun C:PIECE (/ PT LONG HAUT) ;;;;--------------------------------------------- ;;;;Point insertion de la piece ;;;; (setq PT (getpoint "\nPoint d'insertion de la pièce")) ;;;--------------------------------------------- ;;;;longueur de la piece (setq LONG (getdist pt "\nLongueur:")) (setq HAUT 0) );setq (while (< HAUT (/ LONG 3)) (prompt"\nHauteur trop faible,Minimun=") (princ (/ LONG 3)) (setq HAUT (getdist pt "\n\nLargeur de la piece:")) );while );defun PIECE

Bonjour, peux t on m' expliquer pourquoi le code ne me demande pas la largeur de la pièce (defun C:PIECE (/ PT LONG HAUT) ;;;;--------------------------------------------- ;;;;Point insertion de la piece ;;;; (setq PT (getpoint "\nPoint d'insertion de la pièce")) ;;;--------------------------------------------- ;;;;longueur de la piece (setq LONG (getdist"\nLongueur:")) HAUT 0 );setq (while (< HAUT (/ LONG 3)) (prompt"\nHauteur trop faible,Minimun=") (princ (/ LONG 3)) (setq HAUT (getdist "\n\nLargeur de la piece:")) );while );defun PIECE

Bonjour, Je voudrais savoir comment compiler les fichiers lisp pour créer des extensions FAS Merci

Bonjour , je vous remercie pour votre aide et je continu ma formation. pouvez vous m'éclaircir sur (initget 3) je ne comprends pas son utilité. Merci (defun C:RECT(/ PT_INS LONG LARG) (setvar "cmdecho" 0 ) ;;;cmdecho 0 supprime les messages des commandes (graphscr) ;;; fonction de basculement en ecran graphique ;;;------------------------------------ ;;; point intersion du rectangle ;;; (setq PT_INS (getpoint "\nCoin gauche du rectangle")) (initget 3) ;;;----------------------------------- ;;;longueur du rectangle (setq LONG (getdist"\nLongueur:")) (initget 3) ;;;;----------------------------------- ;;;largeur de retangle (initget 3) (setq LARG (getdist"\nLargeur:"))

Merci à tous comment dois je écrire pour voir les coordonnées sont : 10 10 0

Bonjour, je commence Le lisp je voudrais faire apparaître chacune de mes variables 'PT_INS LONG ET LARG avec ALERT merci (defun C:RECT(/ PT_INS LONG LARG) ;;;------------------------------------ ;;; point intersion du rectangle ;;; (setq PT_INS (getpoint "\nCoin gauche du rectangle")) ;;;----------------------------------- ;;;longueur du rectangle (setq LONG (getdist"\nLongueur:")) ;;;;----------------------------------- ;;;largeur de retangle (setq LARG (getdist"\nLargeur:")) (ALERT ""PT_INS) );defun C:RECT

Bonjour lorsque j exporte en STL j ai des petites facettes comment faire pour arrondir plus le solide je joins le fichier Merci VERRIERE.zip

Merci a tous , ça marche maintenant je voudrais la couper en deux ,car elle trop grande pour passer dans ma CNC et donc créer deux pièces stl Merci

Merci la forme est bien et maintenant j arrive à la faire moi même Merci a tous