capde06

comme tout topo qui se respect je suis en grade mais la fonction (angtos) sans précision utilise l'unité du du système courant donc la valeur de la variable AUPREC donc j'pense qu'il ne devrait pas avoir de problème

normalement le prog crée bloc maintenant peut être que sur la 2004 ca ne marche pas je l'ai testé sur 2010 tout va bien PS ce prog marche que sur la version en français si s'est le cas il faut traduire les command en anglais (command "polylign" (command "_pline" _3dface "_insert" pour "inserer" "_circle" pour "cercle"

problème des face 3d de niveau traité (defun c:pente-mnt (/ p1 p2 p3 g pt1 pt2 pt3 pt4 pt5 sel i) (if (not (member "geomcal.arx" (arx))) (arxload "geomcal") ) ;_ Fin de if (setq oldpl (getvar "clayer") oldos (getvar "osmode") oldcolor (getvar "cecolor") ) (setvar "cmdecho" 0) (setvar "osmode" 0) ;creation du bloc (If (Not (tblsearch "BLOCK" "Fleche-pente")) (progn (setq pt1 (list 0 -0.5 0) pt2 (list 0 0 0) pt3 (list 0 0.5 0) pt4 (list 0.125 0.125 0) pt5 (list -0.125 0.125 0) ) ;_ Fin de setq (setvar "clayer" "0") (command "polylign" pt1 pt2 pt3 pt4 pt5 pt3 "") (command "-bloc" "Fleche-pente" pt2 (entlast) "") ) ) ;_ Fin de If (if (not (tblsearch "LAYER" "Pente-Fleche")) (command "_layer" "_N" "Pente-Fleche" "_CO" "3" "Pente-Fleche" "") ) (setvar "clayer" "Pente-Fleche") ;sélection des points d'une face 3D (setq sel (ssget '((0 . "3DFACE"))) i 0 ) ;_ Fin de setq (repeat (sslength sel) (setq ent (ssname sel i)) (setq p1 (cdr (assoc 10 (entget ent))) p2 (cdr (assoc 11 (entget ent))) p3 (cdr (assoc 12 (entget ent))) ) ;calcul centre du triangle (setq g (mapcar '(lambda (x1 x2 x3) (/ (+ x1 x2 x3) 3.)) p1 p2 p3)) ;calcul du vecteur normal du plan passant par les trois points (setq n (cal "nor(p1,p2,p3)") Xg (car g) Yg (cadr g) Xn (car n) Yn (cadr n) Zn (caddr n) ) ;calcul de la direction de la pente (setq ang (angtos (angle g (list (+ Xg Xn) (+ Yg Yn))))) ;insertion de la fleche (if (= (caddr p1)(caddr p2)(caddr p3)) (command "cercle" g 0.5) (command "-inserer" "Fleche-pente" g "1" "1" ang) ) (setq i (+ i 1)) ) ;_ Fin de repeat (setvar "clayer" oldpl) (setvar "osmode" oldos) (setvar "cecolor" oldcolor) )

attention dans l'etat actuel le prog ne trait pas une face3d avec les sommets a la même altitude donc risque d'erreur.

merci gile pour la rectif bbcode j'ai récupère ton fichier de fonctions vectorielles. aussi, la syntaxe centre du triangle vient d'un de tes précèdent post :)

je met en ligne la derniere petite application de Captopo l'appli indique le sens d'écoulement de l'eau sur un MNT en face3d dite moi se que vous en pensez ......... (defun c:pente-mnt (/ p1 p2 p3 g pt1 pt2 pt3 pt4 pt5 sel i) (if (not (member "geomcal.arx" (arx))) (arxload "geomcal") ) ;_ Fin de if (setq oldpl (getvar "clayer") oldos (getvar "osmode") oldcolor (getvar "cecolor") ) (setvar "cmdecho" 0) (setvar "osmode" 0) ;; creation du bloc (If (Not (tblsearch "BLOCK" "Fleche-pente")) (progn (setq pt1 (list 0 -0.5 0) pt2 (list 0 0 0) pt3 (list 0 0.5 0) pt4 (list 0.125 0.125 0) pt5 (list -0.125 0.125 0) ) ;_ Fin de setq (setvar "clayer" "0") (command "polylign" pt1 pt2 pt3 pt4 pt5 pt3 "") (command "-bloc" "Fleche-pente" pt2 (entlast) "") ) ) ;_ Fin de If (if (not (tblsearch "LAYER" "Pente-Fleche")) (command "_layer" "_N" "Pente-Fleche" "_CO" "3" "Pente-Fleche" "") ) (setvar "clayer" "Pente-Fleche") ;; sélection des points d'une face 3D (setq sel (ssget '((0 . "3DFACE"))) i 0 ) ;_ Fin de setq (repeat (sslength sel) (setq ent (ssname sel i)) (setq p1 (cdr (assoc 10 (entget ent))) p2 (cdr (assoc 11 (entget ent))) p3 (cdr (assoc 12 (entget ent))) ) ;; calcul centre du triangle (setq g (mapcar '(lambda (x1 x2 x3) (/ (+ x1 x2 x3) 3.)) p1 p2 p3)) ;; calcul du vecteur normal du plan passant par les trois points (setq n (cal "nor(p1,p2,p3)") Xg (car g) Yg (cadr g) Xn (car n) Yn (cadr n) Zn (caddr n) ) ;; calcul de la direction de la pente (setq ang (angtos (angle g (list (+ Xg Xn) (+ Yg Yn))))) ;; insertion de la fleche (command "-inserer" "Fleche-pente" g "1" "1" ang) (setq i (+ i 1)) ) ;_ Fin de repeat (setvar "clayer" oldpl) (setvar "osmode" oldos) (setvar "cecolor" oldcolor) )

(command "inserer" "*mon bloc.dwg" etc.... quand on met un asterix devant le fichier il arrive décomposé

avez vous des infos sur les nouveautés d'autocad 2011

bravo tout marche nickel et merci pour la leçon sur les vecteurs

merci tramber mais ca ne marche pas. dans le doute voila le code (defun c:eau () (setvar "osmode" 0) ;;selection de la face3D (setq ent (entget (car (entsel))) pt1 (trans (cdr (assoc 10 ent)) 0 1) pt2 (trans (cdr (assoc 11 ent)) 0 1) pt3 (trans (cdr (assoc 12 ent)) 0 1) ) (setq pt12 (c:cal "plt (pt1,pt2,0.5)")) (setq pt23 (c:cal "plt (pt2,pt3,0.5)")) (setq centre3d (c:cal "ill (pt1,pt23,pt12,pt3)")) (command "point" centre3d) ) le but est de creer un point au centre d'une face3D

dans une fonction j'utilise la calculatrice d'autocad cal ex: (setq pt12 (cal "plt (pt1,pt2,0.5)")) ca marche tres bien le problème est qu'il faut, taper CAL dans la fenêtre de commande avant de lancer mon prog sinon ca ne marche pas question : comment charger ce module en lisp l'ai essayé LOAD APPLOAD ca ne marche pas

bravo gile exactement ce qu'il me fallait merci

j' essai mais je ny arrive pas je cherche une fonction qui classe 3 points xyz par ordre croissant par rapport au z des points si vous avez ca je prend merci

salut lili2006 comment tu fais pour mettre une capture ecran merci

ok tu sélectionnes une entité propriétés > hyperliens la fenêtre "insérer un hyperlien" apparait dans "texte a afficher" ecrire ex: "CANALISATION GAZ" dans "Entrez le nom du fichier........" mettre un espace et OK apres il suffit de poser la souris sur la polyligne en question et apparait une info bulle avec "CANALISATION GAZ" en + avec extraction de données on peut exporter cette valeur voir aussi dans dans options, onglet Affichage "Afficher les info-bulles" et voila

hello moi j'utilise les liens hyperliens tu sélectionnes une entité > propriétés > hyperliens quand tu passes la sourie sur le trait une info bulle apparait

Hello jai un fichier avec beaucoup de présentations je voudrais changer d'imprimante sur tous les onglets jai cherché sur le site si il y avait un programme qui faisait ca, je n'ai pas trouvé est ce possible

[Edité le 2/2/2010 par capde06]

modifier dans la fenetre la variable UCSFOLLOW

dans le champ autre expressionDiesel y mettre ca $(substr,$(getvar, dwgname), 1,13) pour la 2eme question $(substr,$(getvar, dwgname), 13,1) [Edité le 2/2/2010 par capde06]

merci pour les infos

en regardant des lisp sur le site j'ai vu ca (ssget "_+.:E:S" '((0 . "LINE"))) "_+.:E:S" a quoi correspond cette sélection merci

un bouton de droite malheureux je ne sais plus comment faire revenir les onglets presentations merci d'avance

le widget marche nickel bravo

très impressionnant avec htc magic la batterie ne dur pas longtemps , dommage