Olivier Eckmann

Bonjour, Sinon, il y a le programme de LeeMac : http://lee-mac.com/tabsort.html Olivier

Je comprends mieux le fonctionnement de ta fonction et pourquoi ça demandait 2 fois un point à cliquer => le 1er permet de choisir le segment sur lequel on travaille et le second point c'est le vrai point à ajouter. Je n'y étais pas du tout. Pour l'ajout de sommet au début, en .Net on a une fonction AddVertexAt qui permet d'insérer un sommet n'importe où y compris en position 0 ce qui l'ajoute en 1ère position => en début de liste. Pour la partie ActiveX, on a bien un AddVertex avec un indice, mais même en spécifiant 0 ça l'ajoute entre le 1er et le 2nd sommet. Je n'est pas trouvé pour ajouter en 1ère position avant la liste des sommets existants. Sinon, en lisp pas de souci, effectivement. Je trouvais juste le AddVertex plus court à implémenter. Pour les make-safe-array ... , rassures toi, moi non plus je n'y comprends rien, j'ai cherché sur Google. Pourquoi utiliser "append", plutôt que "cons" => parce que j'ai l'habitude de faire comme ça, je ne me pose même plus la question. Mais pourquoi pas, ça me fait gagner un "(list" Olivier

Bonjour, J'ai refait une version rapide, sans les accrochages, ni la gestion des SCU, ni les erreurs Il reste 1 problème pour ajouter un sommet avant le 1er point (defun C:PolyAddVtx ( / JEU I rd oPoly PT PtPro PT1 PT2 dParam lsParam) (if (setq JEU (ssget (list (cons 0 "LWPOLYLINE")))) (progn (while (= 5 (car (setq rd (grread T 15 0)))) (redraw) (setq PT (cadr rd) lsParam nil) (repeat (setq i (sslength JEU)) (setq oPoly (ssname JEU (setq i (1- i)))) (setq PtPro (vlax-curve-getClosestPointTo oPoly PT nil)) (setq dParam (vlax-curve-GetParamAtPoint oPoly PtPro)) (cond ((<= dParam (vlax-curve-GetStartParam oPoly)) (setq PT1 nil PT2 (vlax-curve-GetStartPoint oPoly) lsParam (append lsParam (list (list oPoly -1)))) ; ajout le sommet au début ) ((>= dParam (vlax-curve-GetEndParam oPoly)) (setq PT1 (vlax-curve-GetEndPoint oPoly) PT2 nil lsParam (append lsParam (list (list oPoly (vlax-curve-GetEndParam oPoly))))) ; ajoute le sommet à la fin ) (T (setq PT1 (vlax-curve-GetPointAtParam oPoly (fix dParam)) PT2 (vlax-curve-GetPointAtParam oPoly (1+ (fix dParam))) lsParam (append lsParam (list (list oPoly (fix dParam))))) ) ) (if PT1 (grdraw PT1 PT 1 1)) (if PT2 (grdraw PT2 PT 1 1)) ) ) (if (= 3 (car rd)) (progn (redraw) (setq PT (cadr rd)) (repeat (setq i (sslength JEU)) (setq oPoly (ssname JEU (setq i (1- i)))) (setq iParam (cadr (assoc oPoly lsParam))) (OE:InsertVtxAt oPoly PT iParam) ) ) ) (redraw) ) ) ) (defun OE:InsertVertex (oPoly PT idx) (setq oVlaPoly (vlax-ename->vla-object (car oPoly)) PT (reverse (cdr (reverse PT))) 2Dvarpnt (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 (- (vl-list-length PT) 1)) ) PT) ) ) (vla-addvertex oVlaPoly idx 2Dvarpnt) ) (vl-load-com) Olivier

Bonjour Luna, Pour ajouter un sommet sur une poly, justement j'évite d'utiliser le grip carré de sommet, car je ne sais pas dans quel sens elle est parcouru. J'utilise le grip rectangulaire central du segment, comme ça je sais sur quel segment ça sera ajouté. C'est d'ailleurs un souci que l'on a sur les poly3D où le grip central n'existe pas! Je m'attendais à un fonctionnement identique où le point (sous la souris) serait projeté sur le segment le plus proche afin de déterminer le segment "courant" et donc les 2 points "avant" et "après" entre lesquels on ajoute le sommet. Dans une logique SIG, lorsque tu travailles sur des polygones adjacents, les contours sont toujours dessinés dans le même sens (normalement trigo) comme ça l'intérieur est toujours à gauche. Donc sur une limite commune, les 2 polylignes sont parcourues en sens opposées, donc l'ajout d'un segment commun doit se faire sur le segment "courant" et pas par rapport au sommet le plus proche : https://autode.sk/3sL3vLW Je comprends ta logique et elle est tout à fait valable, je vais me permettre de reprendre ton code et de l'adapter à mes besoins spécifiques. En tout cas, encore merci. Olivier

Bonjour Luna, Merci pour le partage, la prévisualisation est vraiment sympa. J'ai quand même une question, il semble que l'on change de segment dès que l'on dépasse la moitié du segment, ce qui rend difficile l'ajout d'un sommet sur la seconde moitié du segment de la polyligne. Est-ce le fonctionnement souhaité? Je joins un screencast de ce que j'obtiens : https://autode.sk/32GWWQg Olivier

Bonjour, Je t'ai peut-être répondu un peu vite, car c'est vrai pour la topo. Au niveau de la partie industrie, il y a peut-être d'autre revendeur. Chez Geotopo, le commercial pour la partie scanner en industrie, c'est Samuel DUHAUSSEY. Sinon le patron, c'est Nicolas SCHALER, un copain de promo. Olivier

Bonjour, Il n'y en a qu'un, tu ne risques pas de te tromper, c'est Geotopo : https://www.geotopo.fr Olivier

Ca arrive de temps en temps lorsque l'on enregistre dans un format de DWG antérieur. Fais un enregistrement au dernier format dispo pour ton AutoCAD, puis tu refais un enregistrement au format antérieur. Souvent ça suffit. Olivier

@Curlygoth Si ça change tout. En mode interactif, tu ouvres un autre AutoCAD, tu le mets sur un écran dont tu ne te sers pas (sinon il faudra le mettre en réduction), puis tu ouvres ton DWG, tu vas voir de temps en temps s'il a fini de s'ouvrir, puis lances eTransmit, puis tu vas voir de temps en temps s'il a fini et à la fin, quittes ton AutoCAD, ça prends du temps et de la concentration. En mode offline, clic-droit, une console qui démarre en mode réduit et quand c'est fait c'est dispo, ça se ferme tout seul, sans rien demander. Pour la charge de la machine, AutoCAD ne travaillant que sur un seul cœur, on s'en fout qu'il tourne comme un malade, il me reste 19 autres cœurs pour bosser. Olivier

Bonsoir, Les développeurs d'AutoCAD propose une solution pour utiliser la case de dialogue standard d'AutoCAD pour ouvrir un fichier en VBA https://adndevblog.typepad.com/autocad/2013/03/selecting-file-with-standard-autocad-fileopen-dialog.html Ah bah oui, il faut utiliser du lisp 😂 Olivier

Visiblement, c'est mieux. Hier j'ai fait toutes les manip depuis chez moi et ce matin au bureau, reconnexion automatique directe sur mon PC de bureau. Je vais retester ce soir de chez moi. Olivier

Bonjour, Désolé, pas de LISP (programmation) sous AutoCAD LT. Olivier

Bonjour, A priori, c'est pire que ça, car si je me déloggue (signout), c'est mort pour me reconnecter depuis le même PC, même navigateur. Je suis obligé de reinitialiser mon mdp. Par contre, si je quitte et que je relance mon navigateur, pas de souci, je suis bien reconnecté. J'ai fait un petit screencast de ce qui m'arrive : https://autode.sk/2OuI6Zs Olivier

Bonjour, Dans le gabarit de mise en page, section Divers, sous-section Symbole => dessin automatique d'un symbole à l'intersection de la tabulation avec un chemin 2D ou 3D. Olivier

Bonjour, Petite info, au cas où ça puisse servir. Sur mon PC de bureau, je suis connecté à CadXP à partir de mon navigateur Opera. Je lance Edge (sur le même PC) et j'essaie de me connecter à CadXP, j'obtiens le même message d'erreur "the display name or password was incorrect" Donc à priori impossible de se connecter simultanément depuis 2 navigateurs différents sur le même PC. Olivier

Pas mieux ce soir sur mon PC perso. Toujours le même message avec l'option "remember me" décochée. C'est pas grave je réinitialiserai à chaque fois que je change de PC. Olivier

Bonjour, Si on récupère chaque sommet de polyligne pour obtenir un ensemble de point, puis que l'on fait tourner un algo de ConcavHull ça devrait le faire. La fonction de ConcavHull existe dans PostGis : http://www.postgis.org/documentation/manual-svn/ST_ConcaveHull.html Je pense qu'il y a pas mal d'algo disponible pour cette problématique Olivier

OK, imaginons : - je travaille sur un dessin A.DWG - le chef arrive et me demande de faire un eTransmit de la livraison du dossier "untel" - j'ouvre le fichier de livraison avec ses 30 Xref, ses 2 orthophotos et ses 5 projet Autopiste/réseau... => 5 minutes - je lance la commande eTransmit et je crée le ZIP => 5 minutes pour nettoyer et compresser les 500Mo de données => résultat je suis bloqué 10 minutes sans rien pouvoir faire. L'idéal c'est un clic-droit sur le fichier de livraison => "eTransmit offline" => ça lance une console en batch, ça ouvre le fichier DWG et ça crée le eTransmit sans me plomber mon AutoCAD. Olivier

OK, j'essaie ce soir. Merci

Bonjour, Ce matin, impossible de me logger sur mon PC de bureau. C'est pas grave je réinitialiserai mon mot de passe à chaque changement de PC. Olivier

Bonsoir, J'ai réinitialisé mon mot de passe ce matin sur mon PC de bureau. Pas de souci toute la journée. Ce soir à la maison, je lance CADXP, il me dit que je ne suis pas connecté. Vidage des mot de passe enregistrés pour le site CadXP, puis saisie de mon courriel et du mot de passe et j'obtiens toujours le même message d'erreur. Je le réinitialise avec le même mdp pour pouvoir poster, je verrai demain matin au bureau. Olivier

Bonjour, Je n'ai pas bien vu le côté "opensource" de Cadtools. Je ne vois pas les sources en libre téléchargement. Pour le côté gratuit, certaines fonctionnalités sont limitées pour les utilisateurs non enregistrés (enregistrement fait en retour d'une donation paypal - sans minimum imposé toutefois) Je ne remets pas en cause le travail effectué ni la mise à disposition "gratuite" de ce développement mais son utilisation et sa mise à jour reste conditionnée au bon vouloir du seul développeur. Ceci est acceptable pour un travailleur isolé ou une toute petite équipe, mais inconcevable pour une structure importante qui doit pouvoir s'appuyer sur un éditeur fiable et pérenne. Evidemment cela à un coût. Olivier

Salut Didier, J'ai essayé avec mon pseudo ou mon adresse mail, j'obtiens la même chose. @Cadmin, C'est peut-être le mot de passe, mais si je demande une réinitialisation et que je remets mon mot de passe, c'est OK sur le nouveau PC à partir duquel j'ai fait la demande de reinit, mais dans ce cas, c'est l'autre PC qui refuse mon mdp alors qu'il fonctionnait sans problème. Je vais refaire le test avec un mdp très simple, je vous tiens au courant. Olivier

Bonjour, Voilà le message d'erreur de login Olivier

Bonjour, J'essaie de me connecter depuis 2 PC différents (au bureau et à la maison), et je me fais systématiquement jeter. Je suis connecté au bureau avec mon pseudo et mon mot de passe. Le soir j'arrive à la maison, impossible de me connecter avec mon PC perso. Je demande la réinitialisation du mot de passe, je remets le même mot de passe et OK je suis connecté. Le lendemain matin, je retourne au bureau, impossible de me connecter. Je demande la réinitialisation de mon mot de passe, je rentre à nouveau le même mot de passe et OK, je suis connecté. Le soir à nouveau impossible de me connecter depuis mon PC perso. Finalement, je reste connecté la semaine au bureau, et je réinitialise le we pour la maison et le lundi matin je réinitialise à nouveau pour mon PC de bureau. Ce n'est pas catastrophique, mais c'est un peu pénible. Est-ce qu'il y a une solution pour être connecté avec le même compte sur 2 PC différents? Merci Olivier