vincentp010

Retrouvé: http://cadxp.com/topic/29446-la-macro-qui-ne-marche-quapres-deux-clics/page__view__findpost__p__159957

Salut, je ne sais pas pourquoi il n'y a que atan dans autocad, mais j'ai trouvé cela ;;; WIKI-ASIN (DEFUN WIKI-ASIN (X) ; Returns the arc sine of a number (ATAN X (SQRT (- 1 (* X X)))) ) ;;; WIKI-ACOS (DEFUN WIKI-ACOS (X) ; Returns the arc cosine of a number (ATAN (SQRT (- 1 (* X X))) X) ) http://autocad.wikia.com/wiki/Asin_%28AutoLISP_function%29 http://autocad.wikia.com/wiki/Acos_%28AutoLISP_function%29

Merci pour vos réponses. J'ai fait des profils dans les parties linéaires et des plateformes pour les carrefours, qui avec plusieurs embranchements, auraient étés compliqués à gérer avec les trajectoires. Après tout ça, j'ai bien mérité de partir en week-end :(rires forts):

Merci pour ta réponse, je devrais m'en sortir. Juste une petite question, quand tu parles d'une petite ligne de suivi, tu parles des lignes de trajectoire?

Bonjour à tous, Je débute avec les projets linéaires par profils types en m'aidant du bouquin de covadis. Je dois faire un projet de voirie pour un lotissement et calculer des cubatures deblais/remblais. Le soucis c'est que je ne sais pas comment gérer les carrefours. Ici j'ai fait deux projets avec deux axes en plan. Les lignes bleues sont des trajectoires pour mes bordures de chaussée. Et je ne sais pas trop quoi mettre comme profil type au profil 4 du projet 1. Je met juste un demi profil à gauche et je laisse sur aucun à droite ? Comment se passe le raccord entre mes deux projets? Suis-je partis dans la bonne direction en procédant comme cela ? Merci d'avance pour vos éclaircissements. http://pix.toile-libre.org/upload/thumb/1394126521.png

De rien. Je reste en attente de ton tp quand tu auras finit, ça pourra être intéressant.

Salut, j'ai fait ça (defun c:wkt (/ ss ent f1 f nb lspl pl c strcoords strdelim) (vl-load-com) (print "Selectionnez les polylignes") (setq ss (cadr (sssetfirst nil (ssget (list (cons 0 "LWPOLYLINE")))))) (if (/= ss nil) (progn (setq f1 (getfiled "Fichier wtk a creer" "" "wkt" 1)) (if (/= f1 nil) (progn (setq f (open f1 "w")) (write-line "calque-epaisseur|geometrie" f) (setq nb 0 lspl nil) (while (< nb (sslength ss)) (setq ent (vlax-ename->vla-object (ssname ss nb))) (setq pl (list (strcat (vla-get-layer ent) "-" (rtos (vla-get-ConstantWidth ent) 2)) (vlax-safearray->list (vlax-variant-value (vla-get-coordinates ent))) )) (setq lspl (append lspl (list pl))) (setq nb (+ nb 1)) );_end while ;ordre croissant suivant premiere entite (setq lspl (vl-sort lspl (function (lambda (e1 e2) (< (car e1) (car e2)))) )) (foreach pl lspl (setq strcoords "(") (setq strdelim "") (foreach c (nth 1 pl) (setq strcoords (strcat strcoords strdelim (rtos c 2))) (if (= strdelim " ") (setq strdelim ",") (setq strdelim " ") ) );_end foreach (write-line (strcat (nth 0 pl) "|LINESTRING" strcoords ")") f) );_end foreach (close f) (print (strcat "Fichier " f1 " cree")) (print) ));_end f1 nil ));_end ss nil ) Importer ensuite dans qgis une couche de texte délimité avec comme paramètres: délimiteurs personnalisés: TAB et | ignorer en-têtes 1ere ligne définition géométrie: WKT champ de géométrie: geometrie, détecter

Salut, avec vl-sort (setq lb (vl-sort lb (function (lambda (e1 e2) (< (car e1) (car e2))) ) ))

Si on clique droit sur le champ et qu'on fait "mettre à jour le champ" ça marche

Salut, dans Options, Onglet Affichage. Intensité de l'estompage de l'édition des références Edit: ça répond vite ici!

A zut, je n'ai pas pensé à vérifier si c'était dynamique!

Salut, tu peux modifier ton expression en "Autre" -> "Expression Diesel" $(substr,%<\AcObjProp Object(%<\_ObjId 2122164400>%).Parameter(1).VisibilityState \f "%tc2">%,1,$(-,$(strlen,%<\AcObjProp Object(%<\_ObjId 2122164400>%).Parameter(1).VisibilityState \f "%tc2">%),2))

Oui, voila, ça ne marche que pour la case angle a décrire, ce qui est absurde. Je viens de trouver une solution de contournement. Tu choisis "Nombre total d'éléments & Angle à décrire" et tu met un moins devant la valeur de l'angle. Ensuite tu choisis "Nombre total d'éléments & Angle entre les éléments" et la valeur négative reste ce qui permet de tourner en sens horaire.

Salut, il est écrit, pour l'angle à décrire et non pour l'angle entre les éléments

A mon avis ce n'est pas possible avec les blocs dynamiques. Par contre ça doit pouvoir se faire en lisp.

En fait il ne faut pas mettre d'action d’étirement sur l'image mais une action de déplacement afin qu'elle suive le point. Bloc-photo-dep.zip

Merci pour la petite subtilité.

Salut, c'est tout bête; il te manque un espace après le 0 de ARC Avec ça marche mieux (ssget "X" ' ( (-4 . "<OR") (0 . "ARC") (0 . "CIRCLE") (0 . "LINE") (-4 . "OR>") ))

Salut, après une petite recherche, il te faut un poteau d"aspiration réversible. Par exemple: http://www.bayard.fr/catalogue/pdf/A195.pdf Après si tu as des questions, le mieux c'est d’appeler directement les fabricants de poteau.

Salut, à part faire ta présentation à l’échelle 1:1 et déplacer ta fmult au mêmes coordonnées de l'espace objet, je ne vois pas d'autres solutions

Salut, pareil que les autres, je ne comprend pas la question. Le zoom papier ne change pas avec la molette!

Salut, le truc c'est que ce sont des outils développés en interne chez autodesk et fournis tel quel sans support. C'est du bonus en plus du logiciel, tu ne payes pas pour les express tools.

La correction est OK, plus de soucis avec les sommes.

Salut, c'est très simple avec la commande vlisp-compile

Salut, L'antislash est un caractère d'échappement, permettant d'utiliser des caractères ayant une signification particulière pour le shell. Il faut donc le doubler pour l'utiliser. En regardant l'aide aux développeurs j'ai vu qu'il fallait passer des guillemets à l'argument s'il contenait des espaces. Tu peux aussi essayer (startapp "C:/Program Files/Microsoft Office/OFFICE11/excel" "\"D:/AFFAIRES/DOC TECHNIQUE/calcul piezo.xls\"") Ici l'antislash devant les guillemets permet de dire à autocad de ne pas terminer la phrase, ce qui va permettre de passer les guillemets en paramètre à excel Tu peux aussi remplacer \\ par / dans autocad