sechanbask

Salut, Tu fais une présentation pour réaliser ton impression PDF?

Serait-il possible de voir dans les listes des sujets des entêtes pour expliquer si le sujet a été résolu ou pas car vu qu'il n'y a pas d'entêtes sur les 2 premières colonnes c'est pas très clair il me semble : l'enveloppe est parfois fermée alors que qqun a déjà lu le sujet...

Je ne comprends pas trop ce que tu souhaites faire... Lier un bloc pour qu'on puisse l'insérer? J'ai trouvé une erreur lors du lancement de la macro avant dernière ligne: newMenu.InsertInMenuBar _ (ThisDrawing.Application.MenuBar.Count + 1) Mais je ne comprends pas pourquoi...

Il faut que tu ouvres l'éditeur VBA en faisant ALT+F11. Puis tu crées un module, tu y insères la source et tu retournes sur autocad où tu fera F8 pour sélectionner la macro et la lancer.

Bonjour à tous, Je cherche à obtenir dans une variable le nom du calque courant pas ex: Dim Calque_courant as string Calque_courant = ... Merci pour vos réponses

Voici un ouvrage intéressant mais un peu léger lorsqu'on s'implique vraiment... http://www.editions-eyrolles.com/Livre/9782212115970/programmer-autocad-avec-diesel-autolisp-dcl-et-vba bon courage

Sub CouleursTaches() 'début de la précédure Sub CouleursTaches() ' CouleursTaches Macro ' Macro enregistrée le 12/09/2004 par V.LELARGE 'déclarations des variables Dim ii As Integer Dim jj As Integer 'initialisations des incrémentations de boucles For jj = 1 To 100 For ii = 6 To 500 'si la couleur de la cellule ii,3 de la feuille "Codes" If Worksheets("Codes").Cells(ii, 3).Interior.ColorIndex = jj Then 'alors la feuille dont le nom est "Analyse pour graph - grue" la couleur de la cellule ii,2 sera jj Worksheets("Analyse pour graph - grue").Cells(ii, 2).Interior.ColorIndex = jj Worksheets("Analyse pour graph - grue").Cells(ii, 1).Interior.ColorIndex = jj Worksheets("Analyse pour graph - grue").Cells(ii, 3).Interior.ColorIndex = jj End If 'prochain ii, prochain jj Next ii Next jj 'fin de la précédure End Sub si tu as besoin d'aide...

il faut essayer un attribut invisible qui trouve la rotation de ton bloc et un attribut qui se reflète en fonction du premier attribut... j'ai fait la première partie je cherche pour la seconde si je trouve je t'enverrais le bloc... [Edité le 14/4/2007 par sechanbask]

Salut, je peux t'envoyer la pallette architecture dès maintenant et genie civil lundi...

Bonjour à tous, J'ai crée des blocs dynamiques de pièces avec des vues et des dimensions paramétrables (visibilité, consultation et attribut avec champs dynamique). L'attribut et vérifié, invisible, prédéfini, sa place vérouillé. Je change les dimensions de ma pièce et sa vue grâce à la visibilité. La consultation me sert à renseigner l'attribut après avec modifié la valeur de la visibilité car je ne veut pas que l'attribut possède la vue de la pièce : en gros j'ai une pièce vue de face et de coté la visibilité : VF & dimension et VC & dimension. Avec la consultation, je ne récupère que la dimension et je l'affiche dans l'attribut (pas trouvé plus simple)... Malheureusement, lorsque l'on double clique sur le bloc dans l'espace objet, il est possible de modifier la valeur de l'attribut qu'il contient et donc de supprimer le champs dynamique et cela peut-être préjudiciable car si après cette modification, on modifie la forme de la pièce, la nomenclature ne sera pas modifiée et la commande auprès du fournisseurs sera fausse. Existe-il un moyen de rendre l'attribut non modifiable par l'utilisateur? Merci par avance [Edité le 13/4/2007 par sechanbask]

Bonjour, J'ai besoin ponctuellement quelques jours par mois, d'avoir plus de 9 fichiers d'ouverts, seulement voilà quand j'ouvre plus de 9 fichiers, le menu Fenêtre change, seulement 9 fichiers sont disponibles directement par ce menu. Le reste est contenu dans une boîte de dialogue contenu par "Plus de fenêtres". Je voudrais pouvoir voir au moins 20 fichiers sans que cela apparaîsse... Dans l'attente d'une réponse, Bonne soirée

Bon faut aussi dire que j'ai de gros doights et des lunettes certainement pas assez fortes...

Après avoir cherché dès que j'avais du temps de libre au boulot (c'est à dire jamais) j'ai fait sauter la touche F1, la touche de raccourci WINDOWS et la touche INSER (depuis j'ai changé de clavier avec un collègue car il avait besoin d'INSER mais ne l'avait pas...) mais j'ai fait les mêmes manipulations avec mon nouveau clavier :D .... Si j'avais su que dans ce monde de barbare, on pouvait être subtil.... J'ai pas trouvé la solution avec autocad 2006 mais bon c'est pas grave si j'ai encore une touche que me gonfle, elle saute... Il faut pas que je m'étonne si je fais parfois peur avec mon tournevis... N.B. je fais parti de CCTC... Collectif Contre les Touches Chiantes

J'ai pas dû bien m'exprimer : Quand j'ouvre plus de 9 fichiers, le menu Fenêtre change, seulement 9 fichiers sont disponibles directement par ce menu. Le reste est contenu dans une boîte de dialogue contenu par "Plus de fenêtres" visible dans le menu Fenêtre (uniquement quand on a plus de 9 fichiers d'ouverts)... Je pourrais montrer facilement ce qui me gène si je savais insérer une image mais ce n'est pas la cas... -epsig : Je n'ai pas accès à cette option est elle par défaut décochée et grisée...

Le problème ce n’est pas les fichiers récemment ouverts, c’est les fichiers actuellement ouverts… merci quand même... P.S. pour infos le nombre de fichiers récemment ouverts est max de 9 fichiers.

Bonjour, J'ai besoin ponctuellement quelques jours par mois, d'avoir plus de 9 fichiers d'ouverts, seulement voilà quand on a plus de 9 fichiers ouverts, certains sont cachés et pour pouvoir y accèder, il faut cliquer sur "autres fichiers" dans le menu fenêtre... Je voudrais pouvoir voir au moins 20 fichiers sans que cela apparaîsse... Dans l'attente d'une réponse, Bonne soirée

Autre petite question... Je cherche à purger tout (sans faire apparaitre la boite de dialogue d'autocad) comme je le fait avec ThisDrawing.PurgeAll en VBA, mais en lisp pour l'intégrer à la lisp précédente... sans conjuguer lisp et VBA... Merci par anticipation [Edité le 11/3/2007 par sechanbask]

merci pour tous tes conseils... à bientôt sûrement...

Merci voilà pour la solution finale : Désolé si c'est mal écrit mais je débute en lisp... si des modifications sont possibles, je suis preneur (defun c:test (/ ss n obj) (vl-load-com) (if (setq ss (ssget "_X" '((0 . "LINE,LWPOLYLINE")))) (repeat (setq n (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n))))) (if (= 0 (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj) ) ) (vla-delete obj) ) ) ) (setq sel (ssget "_X" '((0 . "POINT" )))) (command "_erase" sel "") (princ) ) (princ) )

Bonjour, Je souhaite effacer les lignes et polylignes dont la longueur est zéro et également effacer les points... pour les points, j'ai ce qu'il me faut: (defun c:suppoint (/ sel) (setq sel (ssget "_X" '((0 . "POINT" )))) (command "_erase" sel "") (princ) ) merci par avance[Edité le 2/6/2007 par sechanbask] [Edité le 30/6/2007 par sechanbask]

bonjour, Essaie avec le type de ligne zigzag du fichier acadiso.lin en changeant un caractère sur 2... Bonne chance. Les types de ligne sont tellement paramètrables que leur création est trop complexe... là dessus y'a pas de problème autocad n'est pas intuitif!!

merci beaucoup, j'avais trouvé les paramètres mais je ne voyais pas quoi y faire.. merci encore et bonne journée

Bonjour, je ne trouve pas comment faire une copie de propriété sans que l'objet de destination prenne la même rotation que l'objet source... si quelqu'un pouvait m'aider ça me ferait gagner beaucoup de temps. Merci par anticipation

Merci Patrick_35 et surtout (gile) car j'ai utilisé EDIT_BLOC en modifiant Edit_bloc.lsp ;; Modification des propriétés des entités composant le bloc (defun edit_prop (ent) (if (= lay "Oui") (vla-put-Layer ent "0") ) (if (= col "Oui") (vla-put-Color ent acByLayer) ) (if (= tl "Oui") (vla-put-LineType ent "ByBlock") ) (if (= el "Oui") (vla-put-LineWeight ent acLnWtByBlock) ) (if (= plt "Oui") (vla-put-PlotStyleName ent "ByBlock") ) ) Je ne suis pas très doué pour programmer alors j'ai modifié l'interface pour avoir une correspondance entre l'interface et les fonctions Edit_bloc.DCL : :toggle{ label="Couleur DuCalque"; key="col"; fixed_width=true; allow_accept=true; et modification de Edit_bloc.VLX :toggle{ label="Couleur DuCalque"; key="col"; fixed_width=true; allow_accept=true; } Si vous souhaitez faire les modifications je peux renvoyer les fichiers modifiés car une fois sur deux mes modifications sur le lsp ne changent pas les fonctions ???? (d'ailleurs heureusement que j'avais déjà copié le code dans mon post sinon j'aurai eu des problemes pour bien travailler aujourd'hui (rire!! C'est pour dire mes compétences en lisp !!!) Encore en grand merci je vais vraiment gagner un temps fou!! :D Aller hop à la douche et au boulot

salut, j'ai eu le même problème que toi (sauf que pour moi c'était pour du texte), solutionné par Didier, ici : http://www.cadxp.com/sujetXForum-13094.htm Bonne continuation..