Aller au contenu

vinz34

Membres
  • Compteur de contenus

    340
  • Inscription

  • Dernière visite

  • Jours gagnés

    1

Tout ce qui a été posté par vinz34

  1. Bonjour, Je ne vais pas trop m'aventurer ce sur terrain glissant alors, merci pour cette info culture "G". Pour en revenir au sujet, j'ai une proposition : (defun c:vblat (/ e elist lst) (while (or (not (setq e (car (entsel "\nSélectionner un bloc :")))) (/= (cdr (assoc 0 (setq elist (entget e)))) "INSERT") ) ) (if (assoc 66 elist) (progn (setq e (entnext e) lst "") (while e (cond ((= (cdr (assoc 0 (setq elist (entget e)))) "ATTRIB") (setq lst (strcat (cdr (assoc 2 elist)) " : " (cdr (assoc 1 elist)) "\n" lst) e (entnext e))) ((= (cdr (assoc 0 (setq elist (entget e)))) "SEQEND") (setq e nil)) ) ) (alert lst) ) (princ "\nCe bloc ne contient pas d'attribut.") ) (princ) )
  2. vinz34

    Calques non rapprochés

    Salut, Ce n'est pas une erreur de manip, regarde ici
  3. Salut Matt, J'espère que je ne t'ai pas blessé, c'est le triple 6 qui m'a inspiré. Pour Pascal, La solution est toute trouvée, tu l'as toi même donnée, elle est juste à réorganiser comme te l'a suggéré l'initiateur de ce sujet.
  4. Bonjour et bonne année Lili, Il ne te manque qu'à mettre des [surligneur]guillemets[/surligneur] : Affclich [b]"[/b]C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\plan PARKING-A1-1-200.sld[b]"[/b] Delai 3000 Affclich [b]"[/b]C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\courbes de niveau.sld[b]"[/b] Delai 3000 Affclich [b]"[/b]C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\DETAILl n°1.sld[b]"[/b] Delai 3000 Affclich [b]"[/b]C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\DETAILn°2.sld[b]"[/b] Delai 3000 Affclich [b]"[/b]C:\Users\Lilian\Desktop\Diaporama AutoCAD Exemple\DETAIL3.sld[b]"[/b] Delai 3000 Rscript Bonne journée .
  5. Bonjour et bonne année, Bravo pour cette initiative"El Diablo", je pense que nous sommes très nombreux à avoir besoin de recommencer sur de bonnes bases pour cette nouvelle année. Pour ma part, j'aurais suggéré un test de plus avec le entsel, à savoir s'il s'agit bien d'un bloc : ((defun c:bl_att(/ blatt) (while (not blatt) (setq blatt (entget (car (entsel "\nSélectionnez le bloc: ?")))) (if (/= (cdr(assoc 0 blatt)) "INSERT") (setq blatt nil))) ;;; la suite (princ) ) Je laisse la suite à Pascal.
  6. Salut, Le problème vient justement de là dès qu'on a un facteur d'échelle sur un bloc dynamique et qu'on lui fait une rotation ou autre, on perd ses propriétés dynamiques.
  7. vinz34

    Echelle d\'annotation

    Merci encore à bonuscad, Voilà le code adapté à mes besoins qui ne conservent que les échelles commencant le préfixe VD et non issues d'une Xref : (defun c:nettoie_échelles (/ lst) (while (setq ename (cdr (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST")) ) ) (progn (if (and (= "VD" (substr (setq scname (cdr (assoc 300 (setq elist (entget ename))))) 1 2 ) ) (/= "XREF" (substr scname (- (strlen scname) 3))) ) (setq lst (cons elist lst)) ) (vla-delete (vlax-ename->vla-object ename)) ) ) (setq i 1 x (strcat "Z" (rtos i)) ) (repeat (length lst) (setq n (nth (1- i) lst) dict (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_SCALELIST")) ) ent1 (entmakex (list '(0 . "SCALE") '(100 . "AcDbScale") '(70 . 0) (cons 300 (cdr (assoc 300 n))) (cons 140 (cdr (assoc 140 n))) (cons 141 (cdr (assoc 141 n))) ) ) ) (dictadd dict x ent1) (setq i (1+ i) x (strcat "Z" (rtos i)) ) ) )
  8. Bonjour, J'ai des blocs dynamiques qui perdent parfoient leurs propriétés dynamiques après une rotation par exemple. Je retrouve en général ces propriétés en modifiant les échelles en x, en y, et en z dans la barre de propriétés. J'ai essayé par un entmod mais là je ne comprends pas, ce qui fonctionne sous autocad ne fonctionne pas en lisp... :P Quelqu'un connaît il une solution pour réinitialiser un bloc dynamique ?
  9. vinz34

    Echelle d\'annotation

    Salut, Merci à toi bonuscad, tu m'as ouvert la voie sur le sentier que je vais explorer. Mes échelles personnalmisées comporrtent un préfixe qui me permet de les différencier, je vais donc me contenter de supprimer toutes celles qui n'ont pas ce préfixe.
  10. vinz34

    Echelle d\'annotation

    Bonsoir Daniel. Je pense que (gile) t'as déja fait part de ses remarques sur "ACADDOC.LSP". Précisons quand même qu'il faut se le créer et ne pas utiliser celui d'autocad au cas où certains ne le sauraient pas. En fait ce n'est pas ce que je cherche, là tu restaure la liste par défaut que je supprime systématiquement. Ce que je cherche c'est purger ces échelles car je me crée les miennes et j'aimerais les conserver, ce qui n'est pas possible avec le scalelistedit. Merci quand même. [Edité le 18/12/2007 par vinz34]
  11. Bonjour, Fervent utilisateur des échelles d'annotations,pour chaque nouveau dessin je me crée systématiquement mes échelles personnalisées et je supprime les standards (sauf le 1:1). Quand j'insère une Xref, je retrouve dans ma liste les "annoscales" de l'Xref... , je les supprime. Je réouvre mon dessin et je retrouve à nouveau ces échelles d'annotations. Quand on a plusieurs Xrefs ces listes sont sans fin !.... (ajd'hui près de 200 dans la liste ! ) Quelqu'un connaît il un moyen de purger les échelles d'annotations inutilisées ?
  12. Salut, Je n'ai pas de LT 2006 pour tester mais essaye ça : ^C^C_layerp Edit : Désolé, j'ai testé sous LT 2008 la commande n'existe pas.
  13. vinz34

    calque rapproché

    Salut, Ce n'est pas ce message qui provoque un pb d'impression, il est là pour t'avertir qu'il y a de nouveaux calques sur ton dessin que tu n'as peut être pas géré dans tes présentation. Quand tu vas dans ton gestionnaire de caque tu séléctionne les calques traités, puis click droit, rapprocher calque. Il ne t'affichera ce message que si de nouveaux calques ont été ajouté au dessin. (Xref par exemple) Edit : Je n'ai pas regardé dans l'aide mais je pense que tu y trouveras ton bonheur. [Edité le 27/11/2007 par vinz34]
  14. Chapeau bas (gile), je n'en demandais pas tant. Que dire de plus .... Merci à tous ceux qui ont participé à ce sujet. [Edité le 26/11/2007 par vinz34]
  15. vinz34

    Champ date de tracé

    Bonjour Jalna, Bien vu pour le fieldeval, le pb doit venir de là au moins pour Ludwig. FIELEVAL = 31 chez moi, c'est la valeur par défaut. Ca fonctionne parfaitement que ce soit dans un texte dynamique ou multiligne. Je confirme ma première réponse :
  16. vinz34

    Champ date de tracé

    Bonjour Jalna, Bien vu pour le fieldeval, le pb doit venir de là au moins pour Ludwig. FIELEVAL = 31 chez moi, c'est la valeur par défaut. Ca fonctionne parfaitement que ce soit dans un texte dynamique ou multiligne. Je confirme ma première réponse :
  17. Merci à toi bseb67 c'est exactement ce que je cherchais. Je n'ai pas pour habitude de créer des routines avec arguments ça m'a un peu dérouté... Je l'adapte et je l'adopte !!! Eh vive les 35 heures ! :D
  18. Bonjour à tous et merci pour vos réponses. Patrick_35 : Merci la solution que j'utilise depuis longtemps mais si je change la syntaxe d'une routine ou si j'en rajoute une il faut touours penser à aller modifier la liste manuelle. bseb67 : Je n'arrive pas à lancer ton lisp Je fais bien (listing_des_fonctions_simple ("nom_du_lisp.lsp")) ? Il me retourne : ; erreur: fonction incorrecte: "nom_du_lisp.lsp". bonuscad : Je ne saisi pas le fonctionnement ; à quel moment voit-on une liste des fonctions ? C'est que ce atomlst1.ori ? Je continue à chercher avec le lien que tu as donné. Matt666 : C'est toi qui te rapproche le plus de ce que je cherche à faire, mais ca me reourne : ; erreur: type d'argument incorrect: FILE nil. Je ne comprends je suis pourtant aller chercher un fichier qui se trouve dans les chemins de recherche de fichiers support d'Autocad. Encore merci pour votre participation.
  19. Bonjour, Est-il possible d'obtenir une liste des fonctions présentes dans un fichier lisp ? Je m'explique : J'utilise un fichier lisp chargé au démarrage qui contient les routines que j'utilise quasi quotidiennement, mais il m'arrive parfois de ne plus me souvenir de la syntaxe exacte d'une commande récemment créée par exemple. Je cherche donc un moyen de lister tout ce qui commence par un (defun c: J'ai bien pensé à un open_file et read_line mais je me suis heurté à bien des difficultés ! Si quelqu'un a une idée ...
  20. Tu as surement dans ton style de côtes pour les options de textes l'option d'alignement horizontal sélectionnée.
  21. Salut Martial, C'est certainement parce que tu as tourné ton scu ou ton plan avant de faire tes cotations. Les textes de cotes sont alignés par défaut à ton scu.
  22. vinz34

    Champ date de tracé

    Salut Ludwig, Certainement une mise à jour depuis la 2006 alors, je travaille avec la 2008 et pas de pb.
  23. vinz34

    Champ date de tracé

    Bonjour Jalna, Le champ date de tracé se met à jour au moment de l'impression. Si il affiche "---", c'est que le document n'a pas été imprimé depuis que tu as inséré le champ. Il s'affichera à la date du jour lorsque tu l'imprimera. Désolé je n'avais pas vu la réponse de Ludwig. Pour compléter sa réponse ça fonctionne aussi sur un texte dynamique. [Edité le 22/11/2007 par vinz34]
  24. vinz34

    ouverture fichier autocad

    Salut Jpeg, Je pense que tu n'as pas du chercher trop longtemps. Il y au moins deux sujet récent qui répondent à ta question.
  25. Salut, Tu as le dwg true view q'autodesk qui est prévu pur ça. Il est disponible ici : http:// http://usa.autodesk.com/adsk/servlet/index?id=6703438&siteID=123112
×
×
  • 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é