mateus

Merci beaucoup Bonuscad grâce à toi j'ai réussi, bon jai pas fini le programme mais ça avance tout doucement :) Merci encore

Deux ans plus tard mais je tiens à dire merci rebcao! Car ton aide m'a été précieuse aussi !

Bonjour à tous et à toutes , j'ai trouvé une fonction qui me falicitera la vie pour insérer mes blocs candélabres qui est : "mesurer" . Avec cette commande mon algo sera beaucoup plus simplifié puisqu'il sera le suivant : -Chargement du type de ligne "ECP" qui est dans un fichier existant type ".lin" -création et chargement du calque d'éclaire public avec le type de ligne ECP -Déclaration des variables : D1, D2 , et E : l'entraxe entre candélabre -Décalage de la polyligne (bord de trottoir) de la distance D1 pour obtenir la nouvelle polyligne "PL2" qui sera le réseau ECP -Commande mesurer sur la nouvelle polyligne PL2 pour obtenir les candélabres tout au long de cette polyligne "PL2" Je n'ai pas encore fait le lisp car je suis déjà coincé au niveau de mon programme qui est juste ceci pour l'instant: ; Pgn Réseaux ECP (defun c:ECPC () ; définition des variables: setq D1 (getdist"\n Donner la distance entre le bord de la chaussée et les candélabres : ") setq D2 (getdist"\n Donner la distance de décalage entre les candélabres et le réseaux ECP : ") setq E (getdist"\n Donner la distance entre les candélabres: ") ; insérer ici une commande pour joindre les polylignes (command "-typeligne" "ch" "ECP" "réseaux" "" "o"); chargement du type de ligne ECP (command "calque" "n" "ICI-RES-ECP" "co" "3" "" "tl" "ECP" "" "") ); fin du pgn Ici mon problème est que cela coince au niveau de la création du calque et le type de ligne car ils peuvent être déjà existant. Ma question est comment faire en sorte de dire à l'utilisateur : si le calque existe déjà ne rien faire et si le type de ligne existe déjà ne rien faire également. Merci d'avance

Est ce que quelqu'un aurait une idée? même si ce n'est que me donner quelques pistes ?? :blink: Merci bien !

Bonjour à tous et à toutes , je viens à vous car j'aurai besoin d'aide pour un projet que je dois réaliser dans le cadre d'un projet d'étude: le but est de créer automatiquement à l'aide d'un lisp, les réseaux d'éclairage public en indiquant quelques données au préalable. L'utilisateur devra rentrer donc quelques données, telles que l'entraxe entre les candélabres, la distance entre le bord de la chaussée et les candélabres puis la distance de décalage entre le réseaux ECP(éclairage public) et le candélabre. Sachant que le réseaux pourra figurer en dessous ou bien au dessus du candélabre ( vue en plan). Pour mieux comprendre je joins avec cette demande un imprime écran pour mieux comprendre avec, en vert le travail que le programme lisp devra réalisé. Si quelqu'un aurait une idée, merci beaucoup par avance :)

Bonjour Gile J'ai trouver votre lisp intérésent, Car moi j'ai plus au moins le même problème, c'est à dire que je voudrais appliquer a ma fenêtre de présentation qui auront 3 type d'échelles 1/200; 1/500; 1/1000 avec 3 types de variable echltp (0.2= 1/200; 0.5=1/500; 1= 1/1000) Donc est-ce que c'est possible de faire un lisp qui activera automatiquement ces variable

Merci bcp a vous

bonjour voilà je voudrais savoir si covadis est capable d'éffectue un métré par tranche et par la suite es-ce que c'est possible d'ajouter mes propre calque dans la bibliothéque de covadis et es-ce que il a une limite de nombre de calques merci

bonjour, Esce que c'est possible de geler ou déactiver un liste de calques des différentes présenatation Exemple: j'ai 4 présenatation: VOIRIE PLUVIALE EU/AEP GAZ Dans c'est 4 présentations je voudrais activer les calques qui appartient a chaque reseaux merci

je voudrais déactiver une liste de calques selon leur nom

Bonjour, Il trop bien ce lisp!!! Mais je savoir si c'est possible de geler dans un présentation un certain nombre de calque prédéfini C'est que je voudrais mettre en place un fichier DWT avec des présentation prédéfini Donc moi j'ai une charte graphique qui a plusieurs réseaux (réseaux pluvial, EU, AEP....) je voudrais dans chaque présentation activé mes calques correspondant aux réseaux indiquer dans ma présentation par pour ma présentation RESEAUX PLUVIALE ,je voudrais activé seulement les calques du réseaux pluviale Donc j'ai nommé mes calques par des préfixes exemples: RESEAUX PLUVIALE: PR_PLUVIALE-RESEAUX-CANALISATION PR_PLUVIALE-RESEAUX-CANALISATION2 PR_PLUVIALE-RESEAUX-CANALISATION3 PR_PLUVIALE-RESEAUX-CANALISATION3

Bonjour, Voilà je voudrais créer un lisp qui permet de géré plusieur type de ligne lorsque je dessine par exemple mes types de reseaux Je m'explique : Je voudrais avoir une commande qui me permet de dessiner mes types de lignes avec 3 trait différents et 3 echelles différentes ex: calque bordures: echelle 1/200, 1/500, 1/1000 Type de ligne: _____________ ------------- - - - - - - -

Merci , Mais voilà moi je voudrais établir un métré base d'article pour les multilignes A vous aussi bonne fêtes bonne années

Merci, Mais je voudrais faire des types ligne pour représenter des bordures de route que je vais pouvoir metre dans la base d'article de covadis et établir le quantitatif c'est à dire le linéaire des multiligne

Bonjour, Je voudrais savoir si le METRE BASE D'ARTICLE DE COVADIS calcule le liénaire des multiligne??

Oui c'est pas mal la fonction multiligne mais le probleme elle donne pas la longueur????

multiligne , je ne connait pas ??? Pouvez vous m'indiquer comment l'utiliser???

Bonjour, je voudrais savoir si c'est possible de créer un fichier .LIN de type de ligne qui donne dans une ligne 3 ligne,c'est-à-dire 3 ligne dans une ligne car je voudrais avoir des type de ligne qui représente des bordures de route, qui elle compose 3 type de ligne différentes avec chacune une echelle différente Voici un exemple de ce que je voudrais: Bordure T2: ___ _ ____ _ ____ ----------------- - - - - - - - - - Donc je voudrais avoir ces 3 ligne dans uhe ligne,es-ce que c'est possible

(defun c:Grue ( / oldlayer Choix Pt0 Ray Long Ang0 R Pt1 Pt2 Pt3 Pt4 Pt5 Pt6 Pt7 L1 NomEntite liste p1 p2 ang2) ;Saisie des paramètres ;Pt0 : Point de départ du rail ;Long: Longueur du rail ;Ang0: Angle d'orientation du rail /Ox ;R : Rayon d'emprise de la grue ;Pt1 Point de fin du rail ;pt2 point d'un batiment ;ang2: Angle d'orientation du bâtiment (command "-calque" "n" "Grue" "co" "10" "Grue" "ch" "Grue" "") (vl-load-com) (initget 1 "Fixe Rails") (setq Choix (getkword "\nChoisissez un type de grue [Fixe/Rails]:")) ;Grue fixe (cond ((eq Choix "Fixe") (initget 1) (setq Pt0 (getpoint "\nPoint de base de la grue: ")) (initget 3) (setq Ray (getdist Pt0 "\nDonner la rayon de la grue: ")) ) ;Cas d'une grue sur rails ((eq Choix "Rails") (initget 1) (setq Pt0 (getpoint "\nPoint de départ du rail: ")) (initget 3) (setq Long (getdist Pt0 "\nLongueur du rail: ")) ) ) (initget 1 "Seul Batiment") (setq Choix (getkword "\nChoisir l'orientation de la grue [seul/Batiment]: ")) ;orientation seul (cond ((eq Choix "Seul") (initget 1) (setq Ang0 (getangle Pt0 "\nAngle d'orientation du rail /Ox: ")) (initget 3) (setq R (getdist Pt0 "\nRayon d'emprise de la grue: ")) (setq Pt1 (polar pt0 ang0 R) Pt2 (polar pt0 (+ Ang0 (* 1.5 pi)) R) Pt3 (polar Pt1 (+ Ang0 (* 1.5 pi)) R) Pt4 (polar Pt1 (+ Ang0 (* 0.5 pi)) R) Pt5 (polar Pt0 (+ Ang0 (* 0.5 pi)) R) Pt6 (polar Pt0 (+ Ang0 pi) R) Pt7 (polar Pt1 (+ Ang0) R) ) (command "polylign" pt0 pt1 "") (command "polylign" pt2 pt3 "") (command "polylign" pt4 pt5 "") (command "arc" pt2 pt6 pt5) (command "arc" pt4 pt7 pt3) (command "inserer" "bloc_grue" pt0 1 1 0 "");insertion de bloc ) ;orientation suivant un bâtiment ((eq Choix "Batiment") (while (null (setq L1 (entsel "\nSélectionner une ligne:")))) (setq NomEntite (car L1) liste (entget NomEntite) ) (cond ((eq (cdr (assoc 0 liste)) "LINE") (setq p1 (cdr (assoc 10 liste)) p2 (cdr (assoc 11 liste)) ang2 (angle p1 p2) ) (initget 3) (setq R (getdist Pt0 "\nRayon d'emprise de la grue:")) (setq Pt1 (polar pt0 ang2 R) Pt2 (polar pt0 (+ Ang2 (* 1.5 pi)) R) Pt3 (polar Pt1 (+ Ang2 (* 1.5 pi)) R) Pt4 (polar Pt1 (+ Ang2 (* 0.5 pi)) R) Pt5 (polar Pt0 (+ Ang2 (* 0.5 pi)) R) Pt6 (polar Pt0 (+ Ang2 pi) R) Pt7 (polar Pt1 (+ Ang2) R) ) (command "polylign" pt0 pt1 "") (command "polylign" pt2 pt3 "") (command "polylign" pt4 pt5 "") (command "arc" pt2 pt6 pt5) (command "arc" pt4 pt7 pt3) (command "inserer" "bloc_grue" pt0 1 1 0 "");insertion de bloc ) ) ) ) (command "scu" "general") (command "-calque" "ch" 0 "") )

excus moi mais je connais pas cette facon de mettre mon code

[Grue]

[/bbbbbbbbbbb]

bbb

Grue

Bonjour j'ai probléme dans mon lisp quand je fais tourner mon programme c'est à dire au moment je prend l'option grue fixe tout se passer bien, mais à la fin de ma procédure, le programme donne suite à l'option grue sur rails es-ce que quelqu'un peut m'aider? voici le lisp: (defun c:Grue ( / oldlayer Choix Pt0 Ray Long Ang0 R Pt1 Pt2 Pt3 Pt4 Pt5 Pt6 Pt7 L1 NomEntite liste p1 p2 ang2) (command "-calque" "n" "Grue" "co" "10" "Grue" "ch" "Grue" "") ;Saisie des paramètres ;Pt0 : Point de départ du rail ;Long: Longueur du rail ;Ang0: Angle d'orientation du rail /Ox ;R : Rayon d'emprise de la grue ;Pt1 Point de fin du rail ;pt2 point d'un batiment ;ang2: Angle d'orientation du bâtiment (vl-load-com) (initget 1 "Fixe Rails") (setq Choix (getkword "\nChoisissez un type de grue [Fixe/Rails]:")) ;Grue fixe (cond ((eq Choix "Fixe") (initget 1) (setq Pt0 (getpoint "\nPoint de base de la grue: ")) (initget 3) (setq Ray (getdist Pt0 "\nDonner la rayon de la grue: ")) (command "point" Pt0) (command "cercle" Pt0 Ray) ) ;Cas d'une grue sur rails ((eq Choix "Rails") (initget 1) (setq Pt0 (getpoint "\nPoint de départ du rail: ")) (initget 3) (setq Long (getdist Pt0 "\nLongueur du rail: ")) ) ) (initget 1 "Seul Batiment") (setq Choix (getkword "\nChoisir l'orientation de la grue [seul/Batiment]: ")) ;orientation seul (cond ((eq Choix "Seul") (initget 1) (setq Ang0 (getangle Pt0 "\nAngle d'orientation du rail /Ox: ")) (initget 3) (setq R (getdist Pt0 "\nRayon d'emprise de la grue: ")) (setq Pt1 (polar pt0 ang0 R) Pt2 (polar pt0 (+ Ang0 (* 1.5 pi)) R) Pt3 (polar Pt1 (+ Ang0 (* 1.5 pi)) R) Pt4 (polar Pt1 (+ Ang0 (* 0.5 pi)) R) Pt5 (polar Pt0 (+ Ang0 (* 0.5 pi)) R) Pt6 (polar Pt0 (+ Ang0 pi) R) Pt7 (polar Pt1 (+ Ang0) R) ) (command "polylign" pt0 pt1 "") (command "polylign" pt2 pt3 "") (command "polylign" pt4 pt5 "") (command "arc" pt2 pt6 pt5 "") (command "arc" pt4 pt7 pt3 "") ) ;orientation suivant un bâtiment ((eq Choix "Batiment") (while (null (setq L1 (entsel "\nSélectionner une ligne:")))) (setq NomEntite (car L1) liste (entget NomEntite) ) (cond ((eq (cdr (assoc 0 liste)) "LINE") (setq p1 (cdr (assoc 10 liste)) p2 (cdr (assoc 11 liste)) ang2 (angle p1 p2) ) (initget 3) (setq R (getdist Pt0 "\nRayon d'emprise de la grue:")) (setq Pt1 (polar pt0 ang2 R) Pt2 (polar pt0 (+ Ang2 (* 1.5 pi)) R) Pt3 (polar Pt1 (+ Ang2 (* 1.5 pi)) R) Pt4 (polar Pt1 (+ Ang2 (* 0.5 pi)) R) Pt5 (polar Pt0 (+ Ang2 (* 0.5 pi)) R) Pt6 (polar Pt0 (+ Ang2 pi) R) Pt7 (polar Pt1 (+ Ang2) R) ) (command "polylign" pt0 pt1 "") (command "polylign" pt2 pt3 "") (command "polylign" pt4 pt5 "") (command "arc" pt2 pt6 pt5) (command "arc" pt4 pt7 pt3) (command "inserer" "bloc_grue" Pt2 1 1 0 "");insertion de bloc ) (T (princ "\nCe n'est pas une ligne!") ) ) ) ) (command "scu" "general") (command "-calque" "ch" 0 "") )