-
Compteur de contenus
792 -
Inscription
-
Dernière visite
-
Jours gagnés
15
Tout ce qui a été posté par vincentp010
-
Problème Java pour utiliser la simulation de trafic
vincentp010 a répondu à un(e) sujet de albator44 dans Infraworks 360
Pour télécharger JRE c'est par là https://www.java.com/fr/download/ Dans le lien de la configuration requise, qu'y a-t-il comme informations ? -
Du coup j'ai fait un MNT manuellement en créant des points au niveau des sondages à l'altitude de ma roche. J'ai une collège qui a Mensura en V11 et pour elle ce n'est pas possible aussi. Je veux bien la méthode du coup.
-
Bonjour, J'ai un projet de terrassement avec beaucoup de roche en sous sol. J'ai pu créer ma couche roche avec des points de sondage de l'étude de sol. Je vois bien la couche dans les coupe de mon projet multi plates-formes et les volumes par couches apparaissent bien dans les calculs de Déblais/Remblais. On me demande de faire des optimisations de terrassement et pour cela il me faudrait un MNT du dessus de la couche de roche. Y a-t-il possibilité d'exporter les couches géologiques vers des MNT ou dois-je créer ces MNT manuellement avec les alti des sondages ? Si je pouvais éviter des les refaire à la main ça serait intéressant.
-
Merci pour ce plug-in, ce qui est bien c'est qu'il ne dépend pas d'un service tier. J'ai souvenir d'un vieux plug-in qui faisait appel à une url pour récupérer l'image du qrcode. J'avais essayé d'en écrire un en lisp à une époque, mais je n'ai jamais été au bout.
-
Modification point de base de bloc SANS déplacer le bloc déjà inséré une centaine de fois...
vincentp010 a répondu à un(e) sujet de angelique dans AutoCAD 2019
Salut, J'ai fait une routine il y très longtemps pour le même problème ;########################################################################### ;# Copyright (C) 04-2011 Vincent PRELAT # ;# This program is free software: you can redistribute it and/or modify # ;# it under the terms of the GNU General Public License as published by # ;# the Free Software Foundation, either version 3 of the License, or # ;# any later version. # ;# This program is distributed in the hope that it will be useful, # ;# but WITHOUT ANY WARRANTY; without even the implied warranty of # ;# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # ;# GNU General Public License for more details. # ;# You should have received a copy of the GNU General Public License # ;# along with this program. If not, see <http://www.gnu.org/licenses/>. # ;########################################################################### ; Redefinit le point de base d'un bloc sans le deplacer (vl-load-com) ;; getMatrixRot Retourne la matrice d'une rotation (defun getMatrixRot (rot) (list (list (cos rot) (- (sin rot)) 0 0) (list (sin rot) (cos rot) 0 0) (list 0 0 1 0) (list 0 0 0 1) ) ) ;; getMatrixEch Retourne la matrice d'une echelle (defun getMatrixEch (ech) (list (list (nth 0 ech) 0 0 0) (list 0 (nth 1 ech) 0 0) (list 0 0 (nth 2 ech) 0) (list 0 0 0 1) ) ) ;; getMatrixTranst Retourne la matrice d'une translation (defun getMatrixTrans (trans) (list (list 1 0 0 (nth 0 trans)) (list 0 1 0 (nth 1 trans)) (list 0 0 1 (nth 2 trans)) (list 0 0 0 1) ) ) ;; mxv Apply a transformation matrix to a vector by Vladimir Nesterovsky (defun mxv (m v) (mapcar '(lambda (row) (apply '+ (mapcar '* row v))) m) ) ;; Transpose une matrice Doug Wilson (defun trp (m) (apply 'mapcar (cons 'list m)) ) ;; mxm Multiply two matrices by Vladimir Nesterovsky (defun mxm (m q) (mapcar (function (lambda (r) (mxv (trp q) r))) m) ) ;;; butlast Retourne la liste privée du dernier élément (defun butlast (lst) (reverse (cdr (reverse lst))) ) ;; REMOVE-I ;; Retourne la liste privée de l'élément à l'indice spécifié (premier élément = 0) ;; Arguments : la liste et l'indice de l'élément à supprimer (defun remove-i (ind lst) (if (or (zerop ind) (null lst)) (cdr lst) (cons (car lst) (remove-i (1- ind) (cdr lst))) ) ) ;;; VXV Retourne le produit scalaire (réel) de deux vecteurs (defun vxv (v1 v2) (apply '+ (mapcar '* v1 v2)) ) ;; V^V (gile) ;; Retourne le produit vectoriel (vecteur) de deux vecteurs ;; Arguments : deux vecteurs (defun v^v (v1 v2) (list (- (* (cadr v1) (caddr v2)) (* (caddr v1) (cadr v2))) (- (* (caddr v1) (car v2)) (* (car v1) (caddr v2))) (- (* (car v1) (cadr v2)) (* (cadr v1) (car v2))) ) ) ;; M+M ;; Additionne 2 matrices ;; Arguments : deux matrices (defun m+m (m1 m2) (mapcar '(lambda (v1 v2) (mapcar '+ v1 v2)) m1 m2) ) ;; MXS ;; Multiplie une martice par un nombre ;; Arguments : une matrice et un nombre (defun mxs (m s) (mapcar '(lambda (v) (vxs v s)) m)) ;; IMAT ;; Crée une matrice d'identité de dimension n ;; Argument ;; n : la dimension de la matrice (defun Imat (d / i n r m) (setq i d) (while (<= 0 (setq i (1- i))) (setq n d r nil) (while (<= 0 (setq n (1- n))) (setq r (cons (if (= i n) 1.0 0.0) r)) ) (setq m (cons r m)) ) ) ;; INVERSEMATRIX ;; Inverse une matrice carrée (méthode Gauss-Jordan) ;; Argument: la matrice ;; Retour : la matrice inverse ou nil (si non inversible) (defun InverseMatrix (mat / col piv row res) (setq mat (mapcar '(lambda (x1 x2) (append x1 x2)) mat (Imat (length mat)))) (while mat (setq col (mapcar '(lambda (x) (abs (car x))) mat)) (repeat (vl-position (apply 'max col) col) (setq mat (append (cdr mat) (list (car mat)))) ) (if (equal (setq piv (caar mat)) 0.0 1e-14) (setq mat nil res nil ) (setq piv (/ 1.0 piv) row (mapcar '(lambda (x) (* x piv)) (car mat)) mat (mapcar '(lambda (r / e) (setq e (car r)) (cdr (mapcar '(lambda (x n) (- x (* n e))) r row)) ) (cdr mat) ) res (cons (cdr row) (mapcar '(lambda (r / e) (setq e (car r)) (cdr (mapcar '(lambda (x n) (- x (* n e))) r row)) ) res ) ) ) ) ) (reverse res) ) (defun c:insredef (/ ent bl rot ech invech ptnouv ptins vect vect2 mat matrot matech debut nb nb1 allbl pt n i namebl) (setvar "cmdecho" 0) (command "_.undo" "_m") (setq ent (car (entsel "Selectionner le bloc a modifier :"))) (if (/= ent nil) (progn (setq bl (cdr (assoc 2 (entget ent)))) ;; Calcul du vecteur de deplacement dans le scu du bloc (setq ptins (cdr (assoc 10 (entget ent)))) (setq rot (cdr (assoc 50 (entget ent)))) (setq ech (list (cdr (assoc 41 (entget ent))) (cdr (assoc 42 (entget ent))) (cdr (assoc 43 (entget ent))) )) (vla-highlight (vlax-ename->vla-object ent) :vlax-true) (setq ptnouv (getpoint "Pointez le nouveau point de base du bloc :")) (vla-highlight (vlax-ename->vla-object ent) :vlax-false) (setq ptnouv (trans ptnouv 1 0)) (setq vect (mapcar '(lambda (x y) (- y x)) ptins ptnouv)) (setq invech (mapcar '(lambda (x) (/ 1 x)) ech)) (setq matech (getMatrixEch invech)) (setq matrot (getMatrixRot (- rot))) (setq mat (mxm matech matrot)) (setq vect (butlast (mxv mat vect))) ;;_fin calc vect dep ;; Modif definition du bloc (setq debut 1) (while (/= namebl bl) (setq i (tblnext "block" debut) debut nil) (setq namebl (cdr (assoc 2 i))) ) (if (/= i nil) (progn (setq n (cdr (assoc -2 i))) (while n (if (and (/= (cdr (assoc 0 (entget n))) "VERTEX") (/= (cdr (assoc 0 (entget n))) "COVAPTSEL")) (vla-move (vlax-ename->vla-object n) (vlax-3d-point (list 0.0 0.0 0.0)) (vlax-3d-point (mapcar '(lambda (x) (- x)) vect))) ) (setq n (entnext n)) (if (/= n nil) (if (= (cdr (assoc 0 (entget n))) "SEQEND") (setq n nil)) ) ) ;_while )) ;_if ;; Fin modif bloc ;; Deplace les blocs (setq allbl (ssget "x" (list (cons 2 bl)))) (setq nb 0 nb1 (sslength allbl)) (while (< nb nb1) (setq ent (ssname allbl nb)) (setq ptins (cdr (assoc 10 (entget ent)))) (setq rot (cdr (assoc 50 (entget ent)))) (setq ech (list (cdr (assoc 41 (entget ent))) (cdr (assoc 42 (entget ent))) (cdr (assoc 43 (entget ent))) )) (setq matech (getMatrixEch ech)) (setq matrot (getMatrixRot rot)) (setq mat (mxm matech matrot)) (setq vect2 (butlast (mxv mat vect))) (setq pt (mapcar '(lambda (x y) (+ x y)) ptins vect2)) (entmod (subst (cons 10 pt) (assoc 10 (entget ent)) (entget ent))) (setq nb (+ nb 1)) ) ;; Fin deplace blocs )) ;;_if (/= ent nil) ) -
Salut, Pourquoi ne pas créer un fichier de point avec séparateur en choisissant le point-virgule comme séparateur ?
-
Lisp pour ajuster la taille du papier PDF à la taille d'une impression
vincentp010 a répondu à un(e) sujet de Mayyllis dans Routines LISP
Bonjour, Pas de lisp, mais j'ai déjà utilisé Govert's PDF Cropper -
Import de planches Cadastrales manuellement avec 18.3c
vincentp010 a répondu à un(e) sujet de SuperNoob dans Covadis
C'est la commande _CovaCADIMPORTDXFPCI Elle est encore accessible dans la barre d'outils DMPC -
FICHIER CORROMPU A L'AIDE !!!
vincentp010 a répondu à un(e) sujet de lili2006 dans AutoCAD 2020-2024
C'est à l'aveugle. Je l'ai fait avec un éditeur hexadécimal. J'ai vu qu'à partir du 129em les données étais identiques. On peut le voir sur tes capture d'écran en mode texte -
FICHIER CORROMPU A L'AIDE !!!
vincentp010 a répondu à un(e) sujet de lili2006 dans AutoCAD 2020-2024
J'ai essayé de remplacer les 128 premiers octets du fichier corrompu par ceux d'un fichier sain. Avec une récupération, j'arrive à l'ouvrir, mais avec 16000 erreurs corrigées et 20000 objets supprimés. https://www.swisstransfer.com/d/c2c67fb1-ae14-4c7b-9889-09078cc5a864 -
Convertir .PLT en .PDF
vincentp010 a répondu à un(e) sujet de AntoineB dans AutoCAD trucs et astuces
Bonjour, En ouvrant le fichier avec un éditeur de texte on put voir la version @PJL ENTER LANGUAGE = HPGL2 J'arrive à l'ouvrir avec, au hasard, Splot -
ACAD 3D MAP 2025 - connexion impossible ? en WMS WMTS données IGN SCAN25
vincentp010 a répondu à un(e) sujet de Pieroka dans Autodesk Map
De mémoire apikey=ign_scan_ws doit être une en-tête HTTP, c'est pour cela que ça ne fonctionne pas en paramètre dans l'url. Je ne vois pas de moyen de mettre des en-tête HTTP dans la connexion Autocad -
Remplacer une zone LiDAR dans global mapper
vincentp010 a répondu à un(e) sujet de Nicky dans SIG internet
Salut, Perso, je ferais ça dans CloudCompare. Il faudrait découper le premier nuage avec un polygone de l'emprise du nouveau, pour faire un trou, et ensuite assembler les deux nuages. -
Dézoom au à l'ouverture d'un fichier
vincentp010 a répondu à un(e) sujet de rober dans AutoCAD 2020-2024
Salut, J'ai le même soucis quand j'ouvre des fichiers enregistré sous zwcad. Est-ce le cas aussi chez toi ? -
Copier / Déplacer - Problème récurent [résolu avec OSNAPCOORD]
vincentp010 a répondu à un(e) sujet de CRL dans AutoCAD LT 2020-2023
Bonjour, Dans les options, tu as quoi de coché dans l'onglet "préférences utilisateurs" pour "Priorité lors de la saisie des coordonnées" ? Coche "saisie au clavier" -
Echange de fichiers entre deux versions Covadis v18.2 et la v18.0
vincentp010 a répondu à un(e) sujet de ThiLouis dans Autopiste
En version 18.2, j'obtiens des faces 3D lors de la décomposition. Après tu doit pouvoir recréer un MNT depuis des lignes 3D en utilisant le calque comme lignes de ruptures et un cochant les cases pour créer un nouveau point aux sommets de lignes sans points. -
-
Voir un exemple de macro sur le forum Bricsys Pièce jointe Draw from Excel.zip
-
Pas de soucis de mon côté. Tu n'as pas un proxy filtrant dans ta société, ce qui pourrait expliquer l'erreur SSL ?
-
Bonjour, A première vue, je penche pour un problème de police d'écriture qui n'est pas incluse dans le pdf. Sur le poste des clients, la police affichée est remplacé par celle par défaut et du coup ne correspond pas à la tienne. Je ne sais pas si dans Mensura il y a un réglage pour inclure les polices dans le pdf.
-
autocad debutant - fenetre de sélection de *****
vincentp010 a répondu à un(e) sujet de philsogood dans AutoCAD 2020-2024
-
Merci pour l'info du support, je n'avais pas vu cette commande inintéressante.
-
Bonjour, Elle n'a plus l'air d'exister. Tu peux avoir le Z du MNT avec les infobulles. Covadis 3D -> MNT Objet - > Info-bulles -> activer l'affichage Avec le calque de ton MNT visible, tu auras le Z du MNT qui apparaitra à côté de ton curseur.
-
Recherche guide de personalisation d'Autocad 2005 (ou 2004 , 2003 ...)
vincentp010 a répondu à un(e) sujet de GEGEMATIC dans AutoCAD 2005
Je viens de trouver la version 2005 sur les internet autocad-2005-customization-guide.pdf -
Sur mon PC, j'ai aussi du configurer la variable GS_DEVICE à DX11 bien que je soit en version 2024 https://www.autodesk.fr/support/technical/article/caas/sfdcarticles/sfdcarticles/FRA/How-to-make-AutoCAD-run-with-DirectX-9.html