Aller au contenu

pierrevig

Membres
  • Compteur de contenus

    27
  • Inscription

  • Dernière visite

Contact Methods

  • Website URL
    http://

pierrevig's Achievements

Newbie

Newbie (1/14)

0

Réputation sur la communauté

  1. Bravo Laurent, je n'y avais pas pensé ! c'est exactement ce que je cherchai... merci, merci.
  2. Bonjour, je souhaiterai savoir comment je peux modifier l'altitude des 3 sommets d'un seul coup d'une face de MNT en rentrant juste une altitude. J'explique encore plus, j'ai des face MNT créé spécialement pour un travail précis, ces faces doivent être horizontales donc parfois il y a un coin qui n'est pas à la bonne altitude pour diverses raison que je n'expliquerai pas ici, mais mon interet actuellement est que par une simple selection (entget) d'une face puis en entrant une altitude manuellement, les 3 coins de la face sélectionné changent... au lieu de faire défiler un par un les coins par la fonction propriété qui va me prendre une journée vu le nombre de face a vérifier.
  3. merci pour ta réponse didier @+ Pierre.
  4. Bonjour à tous, Voici mon cas, j'ai plusieurs fenêtres dans une seul présentation et je souhaiterai pouvoir obtenir chaque fenêtre dans un onglet présentation individuelle. exist-il une fonction pour çà dans la version v2008 ou peut etre v2009? Ou dois-je créer un lisp ? Ceci dans le but de pouvoir exporter les présentations depuis autocad v2009 pour infos nous possédons autocad 2008 et 2009. Merci pour votre aide, Pierre.
  5. c'est parfait ! c'est exactement ce que je voulais savoir, merci encore, chapeau bas ! @+ Pierre. [Edité le 16/11/2008 par pierrevig]
  6. Merci, pour cette infos çà roule. Et j'ai une autre question, j'ai des calques "geler" dans une fenêtre et pas dans l'espace objet ou dans les autres fenêtres. j'aimerai faire passer les calques en Geler dans toutes les fenêtres et aussi dans l'espace Objet. Comment faire, j'ai du mal là. Merci de votre aide, Pierre.
  7. Bonjour à tous, Je souhaiterai savoir s'il est possible de faire un ssget uniquement des objets visibles à l'écran. j'essai avec "X" mais celui ci parcours toute la base de donnée. Merci de votre aide, Pierre.
  8. Merci, j'ai finalement fait avec le repeat . Merci didier @+
  9. Bonjour, je souhaiterez soustraire une premier selection à une autre. d'aprés ce que j'ai pu trouver ici et là, il me faut passer chaque élément dans une boucle et comparer pour supprimer ou creer une nouvelle selection à partir des deux... Bref je me perd un peu là. Déjà que mon lisp pèse prés d'une tonne et est un peu lent à cause du nombre d'objet à traiter et de plusieurs manip effectué, j'aurai souhaité trouver ou faire une fonction légère (donc pas de moi !) du genre grossomodo : (setq ss1 (ssget "X")) (setq ss2 (ssget "W" (pt1 pt2))) (setq ss3 (- ss2 ss1)) ou (setq ss3 (ssdel ss2 ss1)) l'impossible idéal quoi... ou alors comment faire le plus simple et efficace possible sachant que chaque selection comporte pas mal d'éléments. le but de cette manoeuvre consiste à effacer du dessin ss3. ou mieux encore..., je peux creer un cadre à la place de ss2. sachant que je voudrais effacer tout ce qui se trouve à l'extèrieur de se cadre, genre clipping... Merci de votre aide, Pierre. [Edité le 11/11/2008 par pierrevig]
  10. pierrevig

    Lisp REA de Patrick_35

    C'est génial, merci beaucoups Patrick_35. pour compléter mon explication: Pour afficher la surface d'une polyligne, l'utilisateur choisi par une boite dcl le type de surface, soit : Lotissement, copro, division ou simple. avec possibilité de choisir l'échelle du dessin. si l'utilisateur choisi Lotissement, après la sélection de la polyligne, il choisi l'emplacement du texte et ainsi, il aura directement un numéro de Lot encerclé qui s'incrémente à chaque selection de polyligne et dessous l'affichage de la surface sans le "s=" et sans décimale. s'il choisi Copro, il aura un texte "désignation" et desous la surface avec le "S=" et une décimale et encore dessous "H.s.pl=". si division il aura, le texte "Lot A" et dessous la surface sans "S=" et sans décimale. si simple, uniquement la surface avec "S=" et sans déciamale. Voili, voilou. Merci beaucoups de ton aide Patrick_35, j'ai pu faire comme je voulais. @+
  11. Bonjour à tous, je me sers du lisp REA de Patrick_35 qui est excellent. j'en ai profité pour l'adapté à mes besoins, mais je suis inculte du vlr ou vlax qui semble pourtant bien puissant. Bref, pour comprendre voici les modifs que j'y ai apporté : - création du texte et position au clic sans avoir a selectionner un texte existant. - choix d'un type de surface avant selection de la polyligne (permet de déterminé le nb de décimale et d'ajouter ou pas du texte en fonction du choix "lotissement, copro, division, standard") si je choisi "lotissement" la surface s'affiche par ex: 500m² si je choisi "copro" la surface s'affiche par ex: S= 500.3m² (S= et Une décimale) c'est super tout fonctionnent parfaitement ou presque. Car si dans le meme dessin j'ai une surface "lotissement" et une surface "copro" et que je modifie le contour d'une des deux surfaces, la surface change, mais le type aussi et prend le dernier type de surface selectionné. Et enfin, ma question ? Comment interroger les données "assoc" du texte pour controler sont type de surface et ainsi activer la variable du bon type de surfaceavant qu'elle ne soit re-écrite. le problème vient peut-être de cette partie du Lisp REA de Patrick_35: (defun modif_poly(obj rea arg-list) (if (and (vlax-read-enabled-p obj)(vlax-read-enabled-p (vlr-data rea))) (vla-put-textstring (vlr-data rea) (strcat prefix1 (rtos (vla-get-area obj) 2 nbdecimale) "m²")) (vlr-remove rea) ) ) Merci à tous de votre aide, Pierre.
  12. Sorry, çà ne fonctionne pas il semble que la variable "ok" est validé à la création de la boucle, soit "ok = 24" la dernière boucle réalisé: (action_tile (strcat "im" (itoa n))) (setq ok (nth n lst)) hors (je crois..) qu'en ajoutant les guillemets, la variable "ok" ne s'initialise que lors de la validation par le dcl: (action_tile "im1" "(setq radiook (nth 1 bloc1))") mais ce n'est pas grave, je vais rester avec mes lignes d'origines. Merci Gile.
  13. Salut, merci de ta réponse, en faite, dans mon code réel j'avais mis un "i", mais remplacé ici par un "T" pour qu'il soit plus visible... sinon, je ne savais pas que le T est réservé. Je comprend ce que normalement c'est la valeur $value, mais mon code dcl n'est pas une list. C'est un code récup sur afralisp qui permet de choisir une image. Voici un morceau du DCL: ...... :image_button{ key="im0"; width=15; height=5; fixed_width = true; allow_accept = true ; } :image_button{ key="im1"; width=15; height=5; fixed_width = true; allow_accept = true ; } :image_button{ key="im2"; width=15; height=5; fixed_width = true; allow_accept = true ; } ...... et un morceau du lisp: ....... (setq io (dos_dir "C:\\PV_Autocad_lisp\\cartouche\\*.dwg")) (setq n (length io)) (setq i 0) (repeat n (setq width (dimx_tile (strcat "im"(itoa i))) height (dimy_tile (strcat "im"(itoa i)))) (start_image (strcat "im"(itoa i))) (fill_image 0 0 width height 0) (slide_image 0 0 width height (strcat (itoa i)".sld")) (end_image) (setq i (1+ i)) ) ...... (action_tile "im1" "(setq radiook (nth 1 bloc1))") (action_tile "im2" "(setq radiook (nth 2 bloc1))") (action_tile "im3" "(setq radiook (nth 3 bloc1))") (action_tile "im4" "(setq radiook (nth 4 bloc1))") (action_tile "im5" "(setq radiook (nth 5 bloc1))") ...... le code fonctionne bien, mais par curiosité, je souhaiterai mettre l'action_tyle en boucle.
  14. Bonjour, juste une question par hasard, je dois tapez une ligne "action_tile" 20 fois et pour pas grand choses, c'est à dire : (action_tile "im0" "(setq ok (nth 0 list))") (action_tile "im1" "(setq ok (nth 1 list))") (action_tile "im2" "(setq ok (nth 2 list))") (action_tile "im3" "(setq ok (nth 3 list))") (action_tile "im4" "(setq ok (nth 4 list))") ...... Mais plutôt, je souhaiterai faire une boucle, et v'là un hic, je n'arrive pas à mettre ma variable "T" dedans pourquoi ? (setq list (list "0.005" "0.01" "0.02" "0.5" .......)) (setq T 0) (repeat 24 (action_tile (strcat "im"T) "(setq ok (nth [b]T[/b] list))") (setq T (1+ T)) ) Merci de votre aide, Pierre.
  15. pierrevig

    problème \"list\"

    C'est parfait ! Un grand Merci à Patrick_35
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité