(gile)

Salut, Si tu fais clic droit sur la barre bleue, est-ce-que Autoriser ancrage est bien coché ?

Comme çà discute charpente et toiture ici et là, j'ai dépoussiéré mon premier outil "sérieux" en LISP. Il s'agit d'une commande 2D créée pour tracer tout type de pièce rectiligne dont les bouts peuvent être en fausse équerre. On peut le télécharger depuis les téléchargements proposés par les membres http://xs73.xs.to/pics/06120/Trapeze.png.xs.jpg

Il est possibble de télécharger l'application au format VLX (un seul fichier compilé) et les codes source LSP et DCLdepuis les téléchargements proposés par les membres.

Salut et bienvenue, Tu peux t'inspirer de ce sujet. Les dernières versions des LISPs utilisés sont : Helicoide Réseau hélicoidal M2S Sinon, il semble bien que la version 2007 puisse faire çà sans programation, une version démo anglaise peut être téléchargée à partir d'ici

Et quelque chose du genre : http://xs73.xs.to/pics/06126/MNL.PNG À rajouter à la fin de AutoCAD.MNL (si c'est le fichier MNL que tu utilises).

Bon voilà, mais je ne peux dire ni le nombre de fonctions ni le temps passé : http://xs73.xs.to/pics/06126/foot.PNG Tiens, c'est curieux, ton solide a plus de faces que le mien :casstet: Un icosaèdre c'est 20 faces et 12 sommets, on devrait donc bien avoir 20 faces hexagonales et 12 pentagonales (les sommets tronqués) ? [Edité le 24/3/2006 par (gile)]

Il me semble qu'il est juste nécessaire de dévérouiller tous les calques (ssget "_X") agit sur les calques inactifs et gelés, c'est (ssget "_A") qui ne sélectionne pas les calques gelés (mais sélectionne les calque inactifs)

4 fonctions, 3 cotes, 10 minutes ... ... alors là, chapeau :o Quand je pense au mal que j'avais eu à faire un icosaèdre ou un dodécèdre même pas tronqué avec AutoCAD !

Salut, Un autre exemple ici , qui totalise les longueurs de lignes et de polylignes, avec export dans un fichier Excel.

Tout a été fait sur AutoCAD 2002, avec les matériaux standards de la bibliothèque. La texture du mur c'est "BROWN BRICK", je crois me souvenir que je l'avais un peu modifiée avec la boite de dialogue "Modifier le matériau standard" (un peu de relief). La chaise, elle était déjà construite depuis plus de quinze ans, quand j'ai appris à la modéliser.

J'essaye aussi, hier soir je n'y suis pas arrivé : http://xs73.xs.to/pics/06123/chaise.jpg.xs.jpg

http://xs73.xs.to/pics/06123/chaise.jpg

Salut, C'est plutôt vague comme indication, il est possible de faire des filtres de sélection, mais avec des critères précis. Exemples en LISP, pour exploser tous les blocs du dessin : (defun c:expl_bloc (/ ss n) (setq ss (ssget "_X" '((0 . "INSERT)))) (repeat (setq n (sslength ss)) (apply '(lambda (x) (command "_explode" x "")) (list (ssname ss (setq n (1- n)))) ) ) ) Pour n'exploser que les blocs sur les calques non vérouillés et dégelés, remplacer : (setq ss (ssget "_X" '((0 . "INSERT)))) par (setq ss (ssget "_A" '((0 . "INSERT)))) Pour n'exploser que les blocs sur les calques non vérouillés et dégelés dont le nom commence par "cod", remplacer la même ligne par : (setq ss (ssget "_A" '((0 . "INSERT) (2 . "cod*"))))

Salut, J'ai testé en l'état avec excel 2003 : même message d'erreur que Guibout. Après avoir remplacé tous les xlp-put-value par xlp-put-value2 çà marche impécablement :D

Salut et bienvenue, La plupart du temps, quand on parle de LISP sur ce forum, il s'agit des dialectes AutoLISP et VisualLISP utilisés par AutoCAD (et ses clones). D'après ce que j'ai lu, pour ces dialectes, le meilleur environnement (débogage, compilation ...) reste l'éditeur VisualLISP inclus dans AutoCAD. Tu peux trouver dans la faq AutoLISP d'autres éditeurs, certains n'existent peut-être plus, cette faq commence à dater.

Excuse moi j'ai répondu un peu vite et oublié quelque chose d'important. Peut -être ne travailles-tu pas en millimètres, dans ce cas il faut, dans le gestionnaire de mise en page spécifier l'échelle du tracé (10 mm pour 1 unité si tu travailles en cm, 1000 mm pour 1 unité si c'est en mètre ...).

Un petit exemple d'utilisation des routines ci-dessus (à placer, par exemple, dans la barre d'outils ou le menu Renseigements) ANGLE_3D affiche sur la ligne de commande l'angle formé par 4 points 3D (respectivement les extrémité de deux segments) indépendamment du SCU courant. Si le premier et le troisième points sont confondus (sommet de l'angle) il est possible de faire ENTER ou clic droit au lieu de le re-spécifier. Si les segments sont parallèles ou non coplanaires il est retourné un message d'erreur. Les routines ANGLE_4PTS, VEC1, LINEARP, COPLANP, ASIN, REMOVE_DOUBLES doivent être chargées. (defun c:angle_3d (/ pt1 pt2 pt3 pt4 ang) (initget 1) (setq pt1 (getpoint "\nPremier point: ")) (initget 1) (setq pt2 (getpoint pt1 "\nSecond point: ")) (grdraw pt1 pt2 1) (if (not (setq pt3 (getpoint "\nTroisième point ou :")) ) (setq pt3 pt1) ) (initget 1) (setq pt4 (getpoint pt3 "\nQuatrième point: ")) (grdraw pt3 pt4 1) (setq ang (angle_4pts pt1 pt2 pt3 pt4)) (cond ((numberp ang) (if (= (getvar "ANGDIR") 1) (setq ang (- ang)) ) (princ (strcat "\nAngle = " (angtos (+ (getvar "ANGBASE") ang)) " ou " (angtos (+ (getvar "ANGBASE") (- (* 2 pi) ang))) ) ) ) ) (redraw) (princ) )

J'avais donné mon point de vue ici. Pour ce qu'il en est de la prise en charge, en tant qu'intermittent du spectacle, le coût de ma formation a été entièrement prise en charge par un organisme spécifique : l'AFDAS, et je percevais pendant le temps de formation l'Allocation Formation Reclassement (équivalente à l'allocation chômage).

Salut, J'avais déjà répondu ici où tu posais une question similaire. Essaye de lire les réponses aux questions que tu poses :cool:

J'ai modifié ANGLE_4PTS pour corriger une inexactitude en cas de points alignés. Pour les fonctions LINEARP et COPLANP il peut être prudent de supprimer les doublons dans les listes de points : (linearp (remove_doubles (list p1 p2 p3 p4))) avec la fonction REMOVE_DOUBLES : ;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste (defun REMOVE_DOUBLES (lst) (cond ((atom lst) lst) (T (cons (car lst) (REMOVE_DOUBLES (vl-remove (car lst) lst))) ) ) )

Salut, Tu peux aller dans l'onglet présentation, après avoir configuré le traceur (choix de l'imprimante, format du papier, Portrait/paysage ...), tu ouvres la barre d'outils Fenêtres, tu choisis Fenêtre unique et fais entrée (pour avoir une fenêtre aux limites des marges de l'imprimante) ou delimite ta fenêtre avec le poiteur, tu sélectionnes ta fenêtre et, dans le déroulant de la barre d'outils Fenêtres tu choisis (ou spécifies) ton échelle, tu peux ensuite positionner ta vue et la vérouiller. [Edité le 19/3/2006 par (gile)]

Salut et bienvenue, Tu peux créer des solides 3D à partir d'entités fermées (polylignes, cercles, ellipses, régions) à l'aide de la commande extrusion (barre d'outils Solides ou menu Dessin -> Solides) Tu peux voir tes objets 3D à partir d'une vue isométrique Menu Affichage -> Point de vue 3D ou barre d'outils Vue. Tu peux aussi choisir un point de vue en "dynamique" avec la commande Orbite 3D, les options de cette commande (menu contextuel -clic droit-) permettent d'afficher une vue en perspective. Pour une perspective à partir d'un point de vue précis c'est la commande Vuedyn (clavier uniquement) qu'il faut utiliser (consulte l'aide).

Pour le fun, une synthèse "à ma façon" de la routine proposée à CDL et de celle de Bonuscad : (defun c:dxf_lst () (initget "Entité Sous-entité") (mapcar 'print (entget (car (if (= (getkword "\n[Entité/Sous-entité]: ") "Sous-entité") (nentsel) (entsel) ) ) ) ) (textscr) (princ) ) [Edité le 19/3/2006 par (gile)]

Salut, Peux-tu préciser : - copier tous les objets d'un calque sur un autre calque du même dessin ? - attribuer les propriétés d'un calque (couleur, type de ligne ...) à un autre calque, du même dessin ? d'un autre dessin ?

Tu n'as pas besoin de taper la commande à chaque fois si tu mets la macro dans un bouton ou dans un menu (personnalisation de l'interface utilisateur), comme il t'est suggéré dans plusieurs réponses. Les LISP ne fonctionnent pas dans les versions LT, à moins que tu aies LT extender ou autre, si c'est le cas, voici : (defun c:aplat () (command "_.move" (ssget "_X") "" '(0 0 0) '(0 0 1e99) "_.move" "_previous" "" '(0 0 0) '(0 0 -1e99) ) (princ) ) [Edité le 18/3/2006 par (gile)]