Olivier Eckmann

Bonjour, ICI le lisp téléchargeable chez nos amis tchèques qui permet de mettre à 0 ou à 1 toutes les fenêtres de toutes les présentations. Olivier

Bonjour, Ce qu'il faut vérifier, c'est dans la liste "Programmes et fonctionnalités", pas dans les fonctionnalités complémentaires. Olivier

Bonjour, Avec ça? *SOUT-HT-POSE,SOUT-HT-POSE --··-- A,0.1,-0.05,0.2,["l",WINGDINGS,s=0.2,r=0,x=-0.1,y=-0.09],0.4,["l",WINGDINGS,s=0.2,r=0,x=-0.1,y=-0.09],0.1 Il faut un style nommé WINGDINGS faisant appel à la police WINGDINGS. Olivier

Bonsoir, AutoCAD 2014 a besoin du .Net Framework 4.0 Update1. A vérifier entre les PC qui fonctionnent et ceux qui ne fonctionnent pas, les versions du .Net Framework installé. Personnellement, même sur mes Windows 10, j'installe toujours les .Net Framework 2 et 3.5 en plus. Olivier

Bonsoir, N'ayant plus de version 2014, je l'ai fait avec la version 2015, pas de souci. Ci-joint la vidéo : https://autode.sk/3iXDUMP Je pense que le problème vient du sens horaire pour compter les angles. Il vaut mieux se mettre en mode mathématique pour gérer les angles en 3D => 0 à l'est et sens trigo Olivier

Hello Tu rigoles, je viens de passer à 250% pour le mois de février avec le client vu ce matin. Olivier

Salut Pat, Alors là je ne vois pas du tout qui pourrait faire l'affaire Olivier

Bonjour, Avec un script du genre _-IMAGE _D NOM_DE_L_IMAGE_A_DETACHER Puis Superautoscript pour traiter tout un ensemble de fichier DWG Olivier

Ca s'appelle la récursivité et ça ne pose pas de souci au niveau du langage (mais du cerveau oui!). Il suffit d'une condition pour sortir de la boucle de récursivité. l'exemple le plus couramment utilisé pour présenter ce concept de récursivité, c'est la fonction factorielle n! = n * (n-1)! et 0! = 1 (condition de sortie pour arrêter l'empilage) Olivier

Bonjour, A partir des 2 fonctions de Giles : EXCLUSIVE et MEMBER-FUZZ on peut créer EXCLUSIVE-FUZZ qui permet de renvoyer une liste exclusive avec une tolérance J'en ai profité pour mettre une fonction POINT2D qui renvoie un point 2D à partir d'un point 3D ;; MEMBER-FUZZ ;; Comme MEMBER avec une tolérance dans la comparaison (defun member-fuzz (expr lst fuzz) (while (and lst (not (equal (car lst) expr fuzz))) (setq lst (cdr lst)) ) lst ) ;; EXCLUSIVE ;; Retourne une liste contenant les éléments appartenant exclusivement à l1 (defun exclusive (l1 l2) (if l1 (if (member (car l1) l2) (exclusive (cdr l1) l2) (cons (car l1) (exclusive (cdr l1) l2)) ) ) ) ;; EXCLUSIVE-FUZZ ;; Retourne une liste contenant les éléments appartenant exclusivement à l1 avec une tolérance de comparaison (defun exclusive-fuzz (l1 l2 fuzz) (if l1 (if (member-fuzz (car l1) l2 fuzz) (exclusive-fuzz (cdr l1) l2 fuzz) (cons (car l1) (exclusive-fuzz (cdr l1) l2 fuzz)) ) ) ) ;; retourne un point 2D à partir d'une liste de 2 ou 3 coordonnées (defun Point2D (pt) (list (car PT) (cadr PT)) ) A partir de là ta routine se simplifie pas mal ;il faut que je compare la liste 's' des blocs dans le calque PIP-90 et la liste-sommets de la polyligne listpts (setq s (ssget "_X" '((0 . "INSERT") (8 . "PIP-90"))) ind1 0 listpt '() dTolr 0.02 ) (if s (progn (repeat (sslength s) (setq coordbloc (Point2D (cdr (assoc 10 (entget (ssname s ind1 ))))) ind1 (1+ ind1) );setq (setq listpt (append (listpt (list coordbloc)))) );repeat ;renvoie les éléments de listpts qui ne sont pas dans listpt à la tolérance près (setq listpts-restante (exclusive-fuzz listpts listpt dTolr)) );progn );if Je l'ai écrite à l'arrache sans tester donc code à vérifier Olivier

Salut, Oui tu as raison, c'était mieux avec Map 3. Sinon pour le problème initial, ci-joint une vidéo de la manipulation pour tronquer la valeur d'une étiquette à 2 décimales depuis une OD réelle : ICI Olivier

Bonjour, Ca fait 20 ans que ça fonctionne comme cela (depuis Map R2 basé sur AutoCAD 14 en 1999). Est-ce qu'il serait possible d'avoir un DWG avec 1 point et une étiquette pour voir? Olivier

Salut Steven, quelque chose comme cela (defun c:ssxcle ( / ss clr lty epl oEntLst i lst def lay) (if (setq ss (ssget "X" (list (cons 410 (getvar "CTAB"))))) (repeat (setq i (sslength ss)) (if (not (member (setq lay (cdr (assoc 8 (setq oEntLst (entget (ssname ss (setq i (1- i)))))))) lst)) (progn (setq lst (cons lay lst) def (entget (tblobjname "LAYER" lay))) (if (setq clr (cdr (assoc 62 oEntLst))) (setq def (subst (cons 62 clr) (assoc 62 def) def)) ) (if (setq lty (cdr (assoc 6 oEntLst))) (setq def (subst (cons 6 lty) (assoc 6 def) def)) ) (if (setq epl (cdr (assoc 370 oEntLst))) (setq def (subst (cons 370 epl) (assoc 370 def) def)) ) (entmod def) ) ) ) ) (princ) ) Olivier

Salut Steven, Pour le sujet, tu as celui-ci qui ne fait pas exactement ce que tu veux, mais qui sépare bien tout selon les propriétés forcées. Olivier

Salut Gege, Elles ont une direction d'extrusion, c'est à dire qu'elle n'ont pas été créées dans un plan horizontal, mais très légèrement incliné Voilà la résultat de la commande liste Direction d'extrusion relative au SCU: X=0.00302364 Y=-0.00002936 Z=0.99999543 En fait elle coulisse le long d'un axe Z quasi vertical mais pas tout à fait. Donc en changeant l'élévation, tu la déplaces légèrement . Si tu fait un SCU OBJET sur ta poly tu es très légèrement basculé. Si tu as as un COVADIS sous la main, tu les transformes en poly3D, puis tu les reconvertis en poly 2D (tu auras perdu les arcs qui auront été discrétisés) Sinon avec un MAP EXPORT en SDF (option SDF 2D), puis un MAPIMPORT tu obtiens des poly2D avec une élévation non nulles, mais bien horizontales. Olivier

Dans ce cas, dans ton gabarit d'annotation qui affiche la valeur de ton OD, ça doit être du genre ALTITUDE@PT_GEN_SUP à remplacer par (rtos ALTITUDE@PT_GEN_SUP 2 2) Olivier

Bonjour, Si tu mets la variable LUPREC à 6, combien de décimales as-tu dans ta fenêtre de propriété? Olivier

Bonjour, Gilles a écrit un tas de routine pour manipuler les listes (dernière ligne du 1er message) ICI dont une fonction "exclusive" qui devrait faire le boulot ;; EXCLUSIVE ;; Retourne une liste contenant les éléments appartenant exclusivement à l1 (defun exclusive (l1 l2) (if l1 (if (member (car l1) l2) (exclusive (cdr l1) l2) (cons (car l1) (exclusive (cdr l1) l2)) ) ) ) Olivier

Je ne vois pas bien le rapport entre l'affichage ou non des silhouettes des objets Solide 3D et les performances d'affichage des orthophotos qui sont des images 2D. En règle générale, il y a très peu (voir aucun) solide 3D dans les plans topographiques. Olivier

Bonsoir, Normalement, c'est ici "C:\Program Files\Autodesk\AutoCAD 2020\UserDataCache\Support" Olivier

Salut Phil, Pourquoi un PC portable? parce que je roule en moto et que c'est plus facile de transporter un portable dans un sac à dos plutôt qu'une tour En plus je me vois mal aller faire mes formations et mes démos avec une tour et un 24". Et puis l'année 2020 a été assez pourrie come ça, on peut bien se faire plaisir un peu. Après le prix c'est toujours en rapport avec ce que tu gagnes. Quand je suis passé d'une station portable HP à mon Clevo actuel, j'ai gagné un facteur 8 dans les temps de calcul 24h => 3h. Aujourd'hui avec ce même PC le volume de données étant plus important, je suis régulièrement rendu à 12h de calcul voir plus, Donc si je peux gagner un facteur 2 ou 3 encore, c'est tout bénef et le prix est très rapidement amorti. Olivier

Bonjour, Oui, chez Bentley, ils ont coupé leur logiciel en 2 avec un outil pour le moteur et un outil pour l'interface et la préparation des calculs. On peut mixer les licences au choix mais ça coute un bars comme toujours chez Bentley. Sinon avec le soft que j'utilise, je peux aussi faire du calcul réseau, mais l'autre poste dédié aux calculs intensifs est pas mal chargé avec le traitement des nuages de mobile mapping en ce moment. Il faudrait que je recycle un autre PC, mais j'en ai déjà 6 dans mon bureau et ça chauffe assez comme ça Olivier

Et s'il reste un peu de place dans la hotte, je prendrais bien ça aussi : https://www.ldlc-pro.com/fiche/PB00232515.html Olivier

@nosset, que veux tu que l'on fasse avec ça, on s'amuse ... La nuit dernière j'ai lancé un calcul de photogrammétrie par drone, ça m'a pris 10h30 sur mon pc portable actuel (i7, 4. 2GHz, 32 Go, GTX 980). Et pendant ce temps, je ne peux quasiment rien faire d'autres => calcul de nuit. Le problème, c'est que j'ai 3 sites complets à calculer puis sortir toutes les cubatures avant noël. Ca va être chaud. En passant de 8 thread (4.2 GHz) à 20 thread (5.3 GHz) ça devrait aller mieux. Et puis on doit faire la maquette de l'existant : modélisation de chaque pierre et rocher sur 6 Ha. On devrait avoir au moins 1 à 2 To de nuage de point et je ne sais pas encore pour la maquette finale. Alors oui, on s'amuse... Olivier

Bah oui, mais tout ça doit rentrer dans un PC PORTABLE et pour le moment, je n'ai pas encore vu de RTX série 30XX en version mobile Les 6To, c'est que j'ai trouvé une config avec déjà 1 SSD 500Go, 1 SSD 1To et donc je rajoute un SSD de 4To => 5.5To De toute façon à côté j'ai un autre PC pour les calculs intensifs. Olivier