mateus

bonuscad ya t'il un moyen plus simple et plus court pour que je puisse créer mon bloc merci :)

Je pensais à utiliser la fonction "entmake" mais je ne sais pas trop comment ça fonctionne

Bonjour à tous, je souhaiterai créer un bloc qui comportera: -un bloc -deux entités (polylignes) Ci-joint le schéma du candélabre(bloc) avec raccordement(polylignes) Je souhaiterai savoir comment je pourrai procéder pour créer le bloc de cela avec wbloc par exemple mais sans que l'utilisateur intervienne pour selectionner les élements... Merci par avance :)

Bonsoir Olivier, et merci pour ta réponse ! Je comprends ce que tu veux dire, ce que je veux c'est tout simplement indiquer la distance qui correspond à celle calculée précédemment dans mon code (entre la poly réseau et celle des candélabres) Etant donné que je l'ai mis en variable, comment puis-je faire pour la rentrer dans ma commande polyligne?

Je n'arrive pas trop à assimiler la différence désolé comment puis-je procéder dans ce cas pour tracer mon raccordement? Merci et désolé pour les lacunes et les explications de bases à me donner...

Merci Giles pour ton aide précieuse, maintenant je voudrais réaliser les raccordements de mes candélabres, ci-joints "aide3" les étapes avec lesquelles j'aimerai poursuivre mon programme La partie du programme concernée (command "decaler" D1 ch pt ""); décalage niveau Réseaux ECP (setq nreseau (entlast)) (command "_chprop" nreseau "" "_layer" "ICI-RES-ECP" "") ;calque ICI-RES-ECP pour la nouvelle polyligne décaléee (command "-calque" "e" "ICI-RES-ECP-candelabre" "co" "vert" "" "TL" "CONTINUOUS" "" "");Chargement du calque candélabre (command "decaler" D2 ch pt ""); décalage niveau candélabre (setq ncande (entlast));mise en variable de la poly (command "_chprop" ncande "" "_layer" "ICI-RES-ECP" ""); calque ICI-RES-ECP pour la nouvelle polyligne décaléee (setq PtInsertion (getpoint "\nCliquez sur un côté du plan: ")) (command "inserer" "candelabre" PtInsertion 1 1 0 "") ; insere le bloc candélabre ;récupération des coordonnées de la poly réseau (setq reseau(entget nreseau)) (setq rx(cadr(assoc 10 reseau)));récupération du x (setq ry(caddr(assoc 10 reseau)));récupération du y ;récupération des coordonnées de la poly candélabre (setq cande(entget ncande)) (setq cx(cadr(assoc 10 cande)));récupération du x (setq cy(caddr(assoc 10 cande)));récupération du y ;obtention de la distance réseau/candélabre et début du tracé de l'antène candélabre (setvar "orthomode" 1) (setq dcr (distance (list cx cy) (list rx ry))) (command "polylign" ptInsertion dcr "") Je bute au niveau de cette commande : (command "polylign" ptInsertion dcr "") la variable "dcr" est pourtant bien la distance entre la poly réseau et la poly candélabre mais le tracé ne se lance pas... Merci d'avance

J'ai vérifier et aucunes valeurs ne vaut "nil" mais seulement les coordonnées en y de mes points sont entre parenthèse, est-ce normal?

Merci Olivier pour ta réponse j'ai essayé avec ta méthode, seulement un message d'erreur est parvenu : "; erreur: type d'argument incorrect: point 2D/3D: (30.5751)" ;récupération des coordonnées de la poly réseau (setq reseau(entget nreseau)) (setq rx(cadr(assoc 10 reseau)));récupération du x (setq ry(cddr (assoc 10 reseau)));récupération du y ;récupération des coordonnées de la poly candélabre (setq cande(entget ncande)) (setq cx(cadr (assoc 10 cande)));récupération du x (setq cy(cddr (assoc 10 cande)));récupération du y ;obtention de la distance réseau/candélabre: (setq dcr (distance (list cx cy) (list rx ry)))

Bonjour à tous je voudrais savoir comment faire pour obtenir une distance entre deux polylignes avec la commande mesurer sachant que mes deux polylignes sont mémorisées en variable, je voudrais utiliser la commande "_dist" mais lorsque je l'utilise, autocad ne reconnait pas mes variables voici la partie concernée du lisp avec la commande distance: IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII (command "decaler" D1 ch pt ""); décalage niveau Réseaux ECP (setq nreseau (entlast)) (command "_chprop" nreseau "" "_layer" "ICI-RES-ECP" "") ;calque ICI-RES-ECP pour la nouvelle polyligne décaléee (command "-calque" "e" "ICI-RES-ECP-candelabre" "co" "vert" "" "TL" "CONTINUOUS" "" "");Chargement du calque candélabre (command "decaler" D2 ch pt ""); décalage niveau candélabre (setq ncande (entlast));mise en variable de la poly (command "_chprop" ncande "" "_layer" "ICI-RES-ECP" ""); calque ICI-RES-ECP pour la nouvelle polyligne décaléee (setq PtInsertion (getpoint "\nCliquez sur un côté du plan: ")) (command "inserer" "candelabre" PtInsertion 1 1 0 "") ; insere le bloc candélabre ;récupération des coordonnées de la poly réseau (setq reseau(entget nreseau)) (setq rx(cadr(assoc 10 reseau)));récupération du x (setq ry(cddr (assoc 10 reseau)));récupération du y ;récupération des coordonnées de la poly candélabre (setq cande(entget ncande)) (setq cx(cadr (assoc 10 cande)));récupération du x (setq cy(cddr (assoc 10 cande)));récupération du y ;obtention de la distance réseau/candélabre: (command "_dist" nreseau ncande "") Merci par avance :)

Bonjour à tous je voudrais savoir comment utiliser pythagore avec autolisp. J'aimerai traduire la formule de pythagore suivante avec autolisp: Racine de : (rx-cx)² + (ry-cy)² Quelqu'un aurait t'il une solution pour la traduire en Autolisp? Merci d'avance :)

Bonjour à tous et à toutes j'aimerai savoir s'il est possible de récupérer tous les points d'insertions de blocs sur un dessin autocad sachant que tous ces blocs sont identiques? Merci d'avance

Personne peut répondre à ce sujet? Merci

bonjour je travaille sur la base d'article de l'entreprise, et j'ai remarquer que les numérotations des articles ne peuvent pas se mettre automatiquement dans l'ordre lorsqu'on ajoute une famille ou un article je trouve que la gestion de l'éditeur de base d'article n'est pas assez souple Es-ce qu'il exsite une amélioration a ce niveau là Merci

Bonjour je vien de decuvrir covadis dans mon entreprise, je travaille sur s

Tout d'abord comment récupérer tous les points d'insertions de mes blocs "candelabre" merci

Bonjour Voilà je cherche une routine qui récupéré les propriétés des mes polyligne, objets... par un simple clic je voudrais quelle m'affiche le nom de calque + couleur + nom du type ligne dans un fichier .txt Quelqu'un peut m'aider merci

Bonjour à tous et à toutes voilà j'ai un soucis avec un programme, ce programme réalise actuellement le tracé automatique de réseau d'éclairage public et positionne des candélabres automatiquement, je voudrais maintenant déplacer mon réseau d'éclairage public de façon à réaliser le raccordement (en forme de V), je joins en pièce jointe deux schémas pour mieux comprendre, l'un s'appelant "aide" est le fichier qui ressemble à ce que je programme doit aboutir et l'autre "pgn actuel" est une capture écran de ce que le programme fait pour le moment. Je pensais à mettre en variable tous les points d'insertions des blocs pour placer à la suite de ça les nouveaux points de mon raccordement mais je ne sais pas comment m'y prendre. Sachant que le raccordement peut être positif comme montré sur le schéma ou bien négatif dans le sens inverse. Quelqu’un pourrait-il m'aider Merci d'avance

Super je vien de refaire les manipulation et sa marche merci pbrion!!!

il me quantifie tout ce qu'il y a dans mon dessin et non ceux qui se trouve dans mon périmètre

je n'arrive pas a quantifié les éléments de ma base d'article

Bonjour Je voudrais savoir si quelqu'un peux m'aider au sujet du métré de covadis 13.0 Es-ce que il est possible de réalisé un métré par tranche merci

C'est bon du coup le pgn fonctionne mais si j'ai choisis d'insérer le premier candélabre c'est parce que je désire que le premier soit entré par l'utilisateur et qu'après avec la commande "mesurer", le pgn place automatiquement les candélabres à la bonne interdistance mais à partir du premier, pour l'instant mon pgn fonctionne mais ne prend pas en compte le premier candélabre. J'ai l'impression que le premier bloc inséré sur la polyligne empèche la fonction mesurer de fonctionner car lorsque j'enlève le premier bloc le pgn fonctionne correctement.

(setq dist (getdist"\n Donnez l'entraxe entre les candélabres? :")) (setq ecp (car (entsel "\nSélectionner le réseaux ECP: "))) (setq ecp1 (entget ecp));récupération des propriétés du réseaux ecp (command "mesurer" (entlast) "bloc" "candelabre" "o" dist ""); commande mesurer qui va permettre le décalage des candélabres J'ai modifié (ci-dessus) le lisp en essayant de mémoriser la ligne décalée pour utiliser la fonction "entlast" dans "mesurer" mais le pgn bloque lors de la commande mesurer et me dit :" L'objet ne peut pas être mesuré" ... Est ce que quelqu'un pourrait m'aider please

Personne peut m'aider?? :/

Bonjour à tous, je reviens à vous car je suis coincé avec le pgn ECP, je suis bloqué avec la commande "mesurer" d'autocad" voilà je voudrai l'utiliser pour décaler mes candélabres après l'insertion du premier mais j'aimerai qu'à la place des invites de la commande "mesurer" on demande à l'utilisateur: sélectionner le réseaux ECP, enlever "spécifier la longueur du segment ou [bloc]" et y mettre directement le bloc à insérer etc. En vérité je voudrais complètement remanié les invites de commande de la fonction. Quelqu'un aurait t'il une idée? Ci-dessous je mets le lisp jusqu'à cette commande "mesurer" (defun c:ECPC () (setvar "attdia" 0) (setvar "cmdecho" 0) (setvar "filedia" 0) (setvar "osmode" 0) (if (not (tblsearch "LTYPE" "ECP")) (command "-typeligne" "ch" "ECP" "réseaux" "") ; Si le type de ligne n'est pas chargé, le charger, sinon ne rien faire ) (command "-calque" "e" "ICI-RES-ECP" "co" "vert" "" "TL" "ECP" "" "");Chargement du calque ECP ;sélection de la ligne pour décalage (setq L1 (entsel "\nSélectionner le bord de la chaussée qui va servir de base pour la création du réseau ECP: " )) (setq NomEntite (CAR L1)) (setq Liste (entget NomEntite)) (setq D1 (getdist "\nDonner la distance de décalage entre le bord de la chaussée et le candélabre:")) (command "decaler" D1 NomEntite (/ pi 2) "") (setq ent (car (entsel "\nSélectionner la ligne qui a été décalée pour la mettre dans le calque ECP: "))) (setq ent (entget ent));récupération de la ligne qui a été décalée (setq ent (subst (cons 8 "ICI-RES-ECP") (assoc 8 ent) ent)); Remplacement du calque (entmod ent); application du changement de calques (command "-calque" "e" "ICI-RES-ECP-candelabre" "co" "vert" "" "TL" "CONTINUOUS" "" "") ;Création du calque candélabre (setvar "osmode" 1) (setq PtInsertion (getpoint "\nCliquez sur le point d'intertion du premier candélabre: ")); Choix du point d'insertion du bloc "candélabre" (command "inserer" "candelabre" PtInsertion 1 1 0 "") ; insere le bloc candélabre (command "calque" "e" 0 "") ;remet le calque 0 courant (Command (prompt "Sélectionner le réseaux ECP pour créer les candélabres: ")) (command "mesurer" ent "bloc" "candelabre" "o" "3" ""); commande mesurer qui va permettre le décalage des candélabres Merci d'avance