DenisHen

Pfff ! ! ! C'est la galère ! ! ! Si quelqu'un sait comment faire pour savoir dans quel quart du cercle trigo on se trouve par rapport à un angle... Même supérieur ou inférieur à pi. Car je n'arrive pas à comprendre pourquoi j'ai des angles supérieurs ou inférieurs à pi...? Je crois que c'est là que je bute... Voici la partie du code qui déconne : (setq ZoneCadran (- VarSnapAng (angle pt_ins pt_ins_Txt))) (princ (strcat "\nVarSnapAng=" (rtos VarSnapAng 2 5) " ZoneCadran brut=" (rtos ZoneCadran 2 5))) (if (< ZoneCadran (* pi -1)) (setq ZoneCadran (+ ZoneCadran pi)) ) ;_ Fin de if (if (> ZoneCadran pi) (setq ZoneCadran (- ZoneCadran pi)) ) ;_ Fin de if (if (and (>= VarSnapAng (/ pi -2)) (<= VarSnapAng (/ pi 2))) (progn (cond ((and (<= ZoneCadran 0) (>= ZoneCadran (/ pi -2))) (princ (strcat "\nInsertion A1 VarSnapAng=" (rtos VarSnapAng 2 5) " ZoneCadran=" (rtos ZoneCadran 2 5))) (setq OptionIns "BG") ) ((and (< ZoneCadran (/ pi -2)) (>= ZoneCadran (* pi -1))) (princ (strcat "\nInsertion A2 VarSnapAng=" (rtos VarSnapAng 2 5) " ZoneCadran=" (rtos ZoneCadran 2 5))) (setq OptionIns "BD") ) ((and (> ZoneCadran 0) (<= ZoneCadran (/ pi 2))) (princ (strcat "\nInsertion A3 VarSnapAng=" (rtos VarSnapAng 2 5) " ZoneCadran=" (rtos ZoneCadran 2 5))) (setq OptionIns "BD") ) ((and (> ZoneCadran (/ pi 2)) (<= ZoneCadran pi)) (princ (strcat "\nInsertion A4 VarSnapAng=" (rtos VarSnapAng 2 5) " ZoneCadran=" (rtos ZoneCadran 2 5))) (setq OptionIns "BG") ) ) ;_ Fin de cond ) ;_ Fin de progn (progn (cond ((and (<= ZoneCadran 0) (>= ZoneCadran (/ pi -2))) (princ (strcat "\nInsertion B1 VarSnapAng=" (rtos VarSnapAng 2 5) " ZoneCadran=" (rtos ZoneCadran 2 5))) (setq OptionIns "BG") ) ((and (< ZoneCadran (/ pi -2)) (>= ZoneCadran (* pi -1))) (princ (strcat "\nInsertion B2 VarSnapAng=" (rtos VarSnapAng 2 5) " ZoneCadran=" (rtos ZoneCadran 2 5))) (setq OptionIns "BD") ) ((and (> ZoneCadran 0) (<= ZoneCadran (/ pi 2))) (princ (strcat "\nInsertion B3 VarSnapAng=" (rtos VarSnapAng 2 5) " ZoneCadran=" (rtos ZoneCadran 2 5))) (setq OptionIns "HG") ) ((and (> ZoneCadran (/ pi 2)) (<= ZoneCadran pi)) (princ (strcat "\nInsertion B4 VarSnapAng=" (rtos VarSnapAng 2 5) " ZoneCadran=" (rtos ZoneCadran 2 5))) (setq OptionIns "HD") ) ) ;_ Fin de cond ) ;_ Fin de progn ) ;_ Fin de if Avec : VarSnapAng = variable SnapAng Pt_ins = un point cliqué représentant la pointe de la flèche Pt_ins_Txt = un point cliqué représentant le pied de la flèche OptionIns = le choix du point d'insertion du texte (HG=Haut Gauche...) J'ai placé des drapeaux un peu partout pour tenter de comprendre, mais rien n'y fait ! ! !

Sans les * de fin de ligne, je pense que c'est faisable, mais pas par moi, je débute en Lisp et c'est trop complexe pour moi... Désolé...

Oui, mais les lignes ne sont pas toutes "identiques", elles ne sont pas toutes au même endroit, et il y a d'autres cotes qu'il ne faut pas changer, exemple : les diamètres... Sans compter qu'il y a des altitudes avec des astérix, exemple : "T=459.21*"

Je ne pense pas que ce soit possible avec un rechercher/remplacer. Ce sont plusieurs altitudes dans différents textes multi-lignes...

On peut... Encore merci à toi...

Découverte d'un dysfonctionnement dans la cotation des XYZ. En effet, le point d'insertion du texte contenant les coordonnées se fait mal si le plan est "à l'envers". Si le NORD est en bas... Je cherche à réparer ce défaut... Je pense que c'est là où je cherche dans quel cadran se trouve le texte par rapport à la direction de la flèche...

Salut Patrick_35. Donc, je peux faire ceci ? (if (eval 'c:CtrlSvGrd) (c:CtrlSvGrd) (princ "La commande CtrlSvGrd n'est pas disponible") ) ;_ Fin de if Car dans une multitude des mes Lisp, j'utilise d'autres Lisp. Je n'aimerai pas qu'ils plantes si quelqu'un n'a pas tous mes Lisp. Merci encore. Denis...

Bonjour à tous. Voilà, j'ai mis à disposition plusieurs de mes Lisp. Ils utilisent souvent d'autres Lisp que j'ai aussi développés. Mais comment savoir, avant de lancer un autre Lisp, s'il est bien chargé ou si la commande est bien disponible ? Si quelqu'un a une astuce ou un conseil, je suis preneur...

Bonjour. Je vois que tu as Covadis. Tu devrais pouvoir t'en sortir avec : Covadis 2D\Points topographiques\Modification des altitudes... En bas à droite de la fenêtre, il y a la constante à ajouter aux altitudes. A condition bien sûr que ce sont bien des points topo... PS : je viens d'ouvrir le fichier Alti.dwg... Ce se sont pas des points topo et je ne vois pas comment automatiser cette opération. Denis...

Bonjour. Je n'ai pas bien saisi ton problème, mais peut-être que la réponse est ICI... Denis...

Bonjour à tous. Voilà, depuis que nous sommes passé à Windows 10, je n'ai plus les dessins récemment ouverts dans l'historique d'AutoCAD. Il est pourtant réglé à 9 dans les options. Lorsque qu'une cessions AutoCAD est ouverte, les différents fichiers ouverts sont bien présent dans la liste. Mais si je ferme AutoCAD et le relance, cette liste est vide... Si quelqu'un a une astuce ou un conseil, je suis preneur... Denis...

Bonjour à tous. J'ai ajouté une petite routine, que je viens de finir, qui écrit les coordonnées d'un point cliqué au bout d'une flèche de rappel. Si le point n'a pas de Z, les coordonnées n'en auront pas, si le point cliqué est en 3D, le Z sera compris dans les coordonnées. Le plus judicieux serait d'orienter le réticule (avec SnapAng) pour qu'il soit parallèle à l'écran afin que les coordonnées le soient aussi... Encore mieux, utiliser mon Lisp "Orientation du plan". Il est aussi intéressant d'utiliser mon Lisp "Changement d'échelle du dessin" (que je viens d'ajouter aussi) pour uniformiser la hauteur des textes... Denis...

Salut Steven. Et ben voilà, dans le mille... C'était bien ça... Merci Steven...

Bonjour à la communauté. Voilà, j'ai un petit souci avec la saisie de mes textes, lorsque je tape des minuscules, les lettres sont en majuscules et inversement. Même si je copie/colle un texte tapé ailleurs en minuscule, elles sont transformées en majuscules. En gros, l'utilisation des touches Shift (Maj) est inversée, et ça n'arrive que sur AutoCAD. Je précise que cela m'arrive depuis une mise à jour vers Windows 10... C'est vraiment louche comme comportement... Si quelqu'un a une idée, une astuce ou un conseil, je suis preneur... Denis...

Bonjour à tous. Perso, je fais l'inverse, je pilote AutoCAD depuis Excel... Car je suis plus à l'aise en VBA qu'en Lisp. Bien que de plus en plus, je dissocie les deux pour passer par des scriptes voir des Lisp. Exemple, avant, j'avais mes chartes graphiques dans Excel que j'insufflais dans AutoCAD. Maintenant, je fais mes chartes dans Excel et les exporte en plusieurs fichiers type ASCII que j'importe en masse dans AutoCAD en Lisp. Car ça fait longtemps qu'on nous dit que le VBA ne sera plus supporté par AutoCAD.

Bon, j'ai continué mes recherches et j'ai trouvé une possible solution, USERR1-5. J'ai donc dans mon lisp : (setq AltiFe (- (atof AltiSurf) DeltaZ)) (setvar "USERR5" AltiFe) Et lorsque je controle directement dans AutoCAD cette variable réelle, j'ai bien : Mais AutoCAD ne veut toujours pas comprendre, voici ma nouvelle ligne de commande : 'cal xyof(_nod)+$(getvar, userr5); AutoCAD fait ceci :

Bonjour à tous. Autre question, mais toujours sur le même sujet. J'aimerai cliquer sur l'XY et ensuite récupérer le Z contenu dans un "vlax-ldata", genre un truc un peut comme ça : 'cal xyof;_nod(Placer ici un "(vlax-ldata-get "DenisH" "AltiFe")"; J'ai donc ecris ça : 'cal xyof(_nod)+(vlax-ldata-get "DenisH" "AltiFe"); J'ai trouvé ça dans l'aide mais je ne suis pas concerné : Ca que j'ai écris donnc ça dans AutoCAD : AutoCAD me dit que mon vlax-ldata n'a pas de valeur, alors que trois lignes plus bas, elle est bien attribuée... Si quelqu'un a une idée, une astuce ou un conseil, je suis preneur... Denis...

J'allais mettre la même chose (déjà piqué au décapode) mais je me suis fais grillé la place... :huh:

Il me semble, c'est pourquoi elle ne sera utile que si AutoCAD te demande une régénération... Sinon, je sais qu'il y a une variable qui gère les REGEN mais je ne m'en souviens plus, par contre, je l'ai déjà lu sur le forum...

Salut. Si AutoCAD te demande la régénération, c'est la variable EXPERT qu'il faut mettre à 1 ?

A mon boulo, c'est aussi le principe de la "démocratie aveugle"... Neuf politiciens véreux et cupides votent "pour" la construction d'une centrale nucléaire discount au milieu de Paris et un savant vote "contre"... Que retient-t-on ? Oui, on aura une centrale dans l'île de la Cité... Pour l'histoire du camion, j'ai dû te lire... Car il me semble que je l'ai lu ici...

Re, didier, je sais par expérience que les fichiers issus de nos tablettes contiennent beaucoup d'illogismes, et un sommet de polyligne pris à coté de son point en fait parti... Mes collègues de terrain ne sont pas "topo"... Ils ne savent même pas se mettre en station... Je sais, j'ai beau hurler dans les bureaux de la direction, ils s'en foutent... Deux heure de formation à la tablette et hop, sur le terrain, tout seul... C'est absurde, abscons et même "insultant" pour les autres, les vrais topo et ceux du bureau, qui récupèrent de la merde... ! ! ! Je leur ai pourtant expliquer que conduire un semi-remorque en ligne droite sur l'autoroute ne donne pas le permis poids-lourd...

Re, Ben ça à l'air d'être ça... Par contre, je ne sais pas quel est le petit drôle du bureau qui a modifier cette option... Un grand merci... Je n'ai pas de mode d'emploi à jour et n'ai rien trouvé dans les centaines de pages des bouquins "papier" (oui, il faudrait peut-être passer au PDF Madame Géomédia).

Bonjour à tous et merci de me répondre. Effectivement, je trouve pas normal qu'un logiciel aussi connu et réputé que Covadis fasse une telle boulette. Ce n'est pas Covadis que je remet en compte, c'est soit ma méthode (je ne fais rien de particulier) soit le fichier, soit l'accumulation des deux... Alors voilà, j'ai un fichier topo (issu d'un levé sur une tablette) qui comporte : - les points en 3D (contenu dans un bloc), - les polylignes 2D qui passent par ces points. Après ouverture de ce dwg, je lance Covadis 3D\Gestion des polylignes 2D\Convertir en polylignes 3D. Une fois l'opération faite, j'ai des polylignes 3D avec des Z "faux". On voit que le Z du point en bas à gauche est bon, mais pas l'autre. Voici l'extrait du fichier topo : Exemple_poly3D_origine.zip Voici un exemple du résultat : Exemple_poly3D_resultat.zip Si quelqu'un a une observation, une astuce ou une idée, je suis preneur...

Salut Demixav et merci pour ta réponse. D'une part, et je ne sais pas pourquoi, les Z des polylignes 3D créées par Covadis sont "approximatifs"... Ca joue à quelques centimètres, D'autre part, il y a beaucoup de sommets qui sont bons en X et Y mais in faut interpoler le Z avec d'autres points que ceux des polylignes 3D. Voilà pour la petite explication... Et merci de ton aide...