fredbross

Bonjour, en bas, dans le bandeau tu dois avois ce bouton vert active le en bleu puis clique un sommet tu pourras alors directement modifier le Z ou Dz

Bonjour Gwen, tu te casses bien la tête pour quelques profils, à ta place je ferrais le MNT propre et habillerais les structures d'ilots directement sur les profils en travers dessinés.

Bonjour, une galère récurrente de Covadis/Autopiste est d'habiller des profils en travers ou de faire des mesures dessus lorsqu'ils ne sont pas l'échelle 100 (format fixe / échelles variables) , ce qui serait vraiment pratique c'est de pouvoir dessiner les profils en format bloqué (A4, A3, ...) avec ajustement automatique de l'échelle comme cela existe actuellement, mais avec les profils toujours dessinées à 1/1 avec les cadres plus ou moins grands selon l'échelle, et la fonction d'impression automatique qui utiliserais le facteur d'échelle de chaque profils. De plus il serrais cool que l'échelle en Z des blocs insérés en suivi de polyligne correspondent à l'échelle X ainsi les bloc dynamiques resterais utilisables sans corriger l'échelle Z toujours à 1. Voilà, J'espère avoir été clair. Cordialement.

Bonjour Gwen, pour avoir des solides avec la commande lissage il faut utiliser uniquement des polylignes 2D, il suffit de les dessiner dans le bon scu, dans ton cas tu te mets en scu vertical (par 3 point sur une de tes poly 3D) puis tu redessine deux polys 2D et le tour et joué, pour info ça fonctionne aussi avec des polys non parallèles.

Bonjour et merci, problème résolu c'était bien le chemin, mais pour moi le seul chemin support valable semble être "C:\ProgramData\Sogelink\COVADIS\18.3\Support" et il n'y avait aucun docx (ni ailleurs du reste) , j'ai du les prendre directement dans le "Data1.cab" du dossier d'installation. il y a du avoir un soucis de migration ou de déploiement lors de l'installation de la 18.2b...

Bonjour, avez vous déjà eu ce problème (et surtout sa solution), depuis l'installation de Covadis 18.2b je ne peux plus avoir certains listing comme les cubatures de plateformes ou entre deux mnt. j'ai désinstaller la 18.2b et installer la 18.3c, toujours pareil. voici un exemple, impossible de cocher la case a cocher "écrire un fichier récapitulatif" ou encore ceci: la, à part annuler rien n'est possible sinon le message apparait en boucle.

Bonjour, un minimum de formation serait vraiment nécessaire pour être efficace plus rapidement car si le principe est toujours le même, il y a pas mal de différences de méthode et pleins de subtilités pas innées du tout, notamment sur le traitement des levés topos et surtout les mises en pages qui sont un peu du genre Revit.

effectivement, il faudrait une boucle pour prendre la distance mini sur les triangles environnant.

Bonjour, ci joint un lisp que j'avais fait il y à quelques années pour implanter des points (tcpoint) contenant l'épaisseur (la distance perpendiculaire) entre des points et un MNT (il faut que le MNT soit en faces 3D). il suffit alors d'immatriculer ta poly 3D avec des tcpoints puis de lancer la commande, les point d'épaisseur seront dans le calque "épaiss" (la parti trigo et boite de dialogue est emprunté à nos grands maitres lispeur) Cdt. epaiss.LSP

Bonjour, Covadis 18.3 et 18.0D ne sont plus disponible sur le support Sogelink, ayant déjà installé la 18.0D j'aimerais savoir la raison pour savoir de quoi me méfier ? Merci.

Bonjour Didier, bonne chance... déjà un topo de base sensé, consciencieux et pas faignant c'est très difficile a trouver désormais, mais un chef topo c'est une quête du graal...

Bonjour, peut être en deux fois: pour avoir l'absice du point sur la poly : (vlax-curve-getDistAtPoint courbe-obj point ) puis (vlax-curve-getPointAtParam courbe-obj (resultat précedent))

Avec un autocad Map 3D ou Autocad simple ?, car si c'est un map 3D il suffit d'entrer la commande "MAPCSASSIGN" puis sélectionner l'EPSG:32636.

Bonjour, je vois que "tracé avec style de tracé" est coché alors que le style est "aucun", il vaut mieux alors décocher cette option qui génère souvent des fichiers vides.

Bonjour, voici un lisp simple que j'avais fait il y quelques années, il faut que PDFCreator soit installé. c'est pour du A3 sinon changer dans le lisp. (defun c:impauto() (vl-load-com) (setvar "cmdecho" 0) (setq pl (getlayer "Selectionne le calque des cadres à imprimer:")) (setq SS (ssget "_W" (getpoint "pt haut gauche") (getpoint "pt bas droit") (list(cons 0 "LWPOLYLINE") (cons 8 pl)))) (setvar "expert" 5) (if (and SS (> (sslength SS) 0)) (progn (repeat (setq iPTS (sslength SS)) (setq EN (entget (ssname SS (setq iPTS (1- iPTS)))) PTS (cons (cdr (assoc 10 EN)) PTS) ) ) (setq iPTS (vl-sort-i PTS '(lambda (A B) (cond ( (> (cadr A) (cadr B)) ) ((= 1 1) T) (T nil))))) (foreach iX iPTS (setq ent (ssname SS iX)) (setq ent(entget ent)) (setq j! 0) (setq l_cadre (list )) (setq nb_sommets 0) (repeat (length ent) (setq entit (nth j! ent)) (setq code_entit (car entit)) (if (= code_entit 10) (progn (setq l_cadre (cons (list (car (cdr entit))(cadr (cdr entit))) l_cadre)) (setq nb_sommets(+ nb_sommets 1)) );fin du progn );fin du if (setq j! (+ j! 1)) ) (if (= nb_sommets 4) (progn (setq p1 (car l_cadre)) (setq p2 (caddr l_cadre)) (command "-traceur" "o" "" "PDFCreator.pc3" "A3" "M" "A" "N" "F" p1 p2 "1:1" "C" "N" "." "O" "" "N" "N" "O") )) ) ))) (defun getlayer (titre / lay lst tmp file what_next dcl_id nom) (while (setq lay (tblnext "LAYER" (not lay))) (setq lst (cons (cdr (assoc 2 lay)) lst)) ) (setq lst (acad_strlsort lst) tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ) (write-line (strcat "getlayer:dialog{label=" (cond (titre (vl-prin1-to-string titre)) ("\"Choisir un calque\"") ) ";initial_focus=\"tp\"; :boxed_column{:row{ :column{:text{label=\"Sélectionner un objet\";alignment=left;}} :column{:button{label=\">>\";key=\"obj\";alignment=right;fixed_width=true;} spacer;}} :edit_box{key=\"tp\";edit_width=50;allow_accept=true;} :popup_list{key=\"lay\";edit_width=50;} spacer;}ok_cancel;}" ) file ) (close file) (setq dcl_id (load_dialog tmp)) (setq what_next 2) (while (>= what_next 2) (if (not (new_dialog "getlayer" dcl_id)) (exit) ) (start_list "lay") (mapcar 'add_list lst) (end_list) (or nom (setq nom (vlax-ldata-get "getLayer" "n")) (setq nom (vlax-ldata-put "getLayer" "n" "0")) ) (if (member nom lst) (set_tile "lay" (itoa (- (length lst) (length (member nom lst)))) ) (set_tile "lay" "0") ) (set_tile "tp" nom) (action_tile "obj" "(done_dialog 3)") (action_tile "tp" "(setq nom $value)") (action_tile "lay" (strcat "(if (or (= $reason 1) (= $reason 4))" "(progn" "(setq nom (nth (atoi $value) lst))" "(set_tile \"tp\" (nth (atoi $value) lst))" "(mode_tile \"tp\" 2)))" ) ) (action_tile "accept" (strcat "(if (tblsearch \"LAYER\" nom)" "(progn (done_dialog 1)" "(vlax-ldata-put \"getLayer\" \"n\" nom))" "(progn" "(alert (strcat \"Le calque \" nom \" est introuvable.\"))" "(setq nom nil) (set_tile \"tp\" (vlax-ldata-get \"getLayer\" \"n\"))" "(mode_tile \"tp\" 2)))" ) ) (setq what_next (start_dialog)) (cond ((= what_next 3) (if (setq nom (car (entsel))) (setq nom (cdr (assoc 8 (entget nom)))) (setq nom nil) ) ) ((= what_next 0) (setq nom nil) ) ) ) (unload_dialog dcl_id) (vl-file-delete tmp) nom )