oniwo59

Merci pour vos réponses oui lecrabe je voudrais avoir le même principe que le SelbyObj de Gilles le problemes c 'est que je voudrais utiliser excel derière et la programmation LISP je n'y connais rien "trop de (( ) (( )) "a mon gout... je vais me pencher sur la solution de (Gile) Merci

Bonjour Je voudrai mettre dans un jeu de sélection tous les blocs contenus dans une polyligne fermée Cela est t’il possible ? Merci pour vos réponses Oniwo

j'ai le même probleme si une ame charitable peut nous aider

bonsoir grosseel En programmation lisp je ne connais pas grand chose mais j 'avais trouvé sur ce site un petit lisp bien symba qui fait à peu près ce que tu veux faire voici le lien http://www.cadxp.com/sujetXForum-16621.htm bonne chance Oniwo [Edité le 25/2/2009 par oniwo59]

Bonjour tous le monde j'ai récupéré un lisp génial de Patrick_35 (UNVERR.LSP) j aimeré savoir si il est possible de faire le m^me principe mais pour rendre active (afficher les objets fenetre) toutes les fenetres d 'un fichier Merci d avance Oniwo

Bonjour tous le monde Suite a une réinstallation d’autocad Mon correcteur d’orthographe remplace tout les accents par ? Si vous avez la solution a ce problème Merci

Bonjour tu peux essayer de faire un cache avec "WIPEOUT" mais moi j'ai vite abandonné l'idée pour mes blocs de schémas electriques Bonne chance

Que dire de plus que bonne année et bonne santé .... Longue vie à CAD XP par exemple … :D Oniwo

Bonjour J’ai eu le même problème Je sais plus si :casstet: Le chemin du DWG était trop long Ou le chemin de destination du PDF était trop long Si cela peut aider bon courage Oniwo [Edité le 21/12/2006 par oniwo59]

Merci de ta réponse Je ne connais pas l'astuce Mais le problème c'est que le champs ne ce met pas a jours si le chemin de la Xref change Je suis casse pied tu peux le dire ... <acronym class=dict title= Merci comme même [Edité le 18/12/2006 par oniwo59]

Bonjour a tous J’ai une petit question je vient de passé sur la version 2007 MAP depuis un mois ou deux … (J’étais sur la 2004 MAP avant) Donc les Champs c’est un peu nouveau pour moi Je n’ai pas trouvé le moyen de mettre le chemin des références externes utilisé dans mon dessin avec ces champs c’est normal ou c’est moi qui deviens bête Même en passent par une fonction diesel pour faire comme la commande Rtext Vous savez le « $(xrefs,3) « Donc je voudrai savoir si il y a moyen de passé par le champs pour avoir la liste des chemins des Xref Ou toujours passé pas le RTEXT qui m’embête un peu car pour les personnes ayant la version LT ne vois pas ces infos Si vous avez une réponse ? A bientôt Oniwo [Edité le 18/12/2006 par oniwo59]

Salut Vérifie si la case basculer en vue plane quand le SCU est modifié est coché Tu vas dans ta présentation Tu entre dans la fenêtre Puis OUTILS SCU EXISTANT c'est dans l'onglet PARAMETRE Elle ne doit pas être coché je pense que c'est ca bye Oniwo

C'est SUPER ,GENIAL, :D C'est exactement ce que je rechercher ENCORE MERCI (gile)

Bonsoir tous le monde Mon problème est le suivant : Je voudrais avoir des fonctions en lisp (de préférence) qui me permettraient de faire un filtre de sélection. Je m’explique : Je sélectionne un texte ou un Mtext et tous les textes ou Mtext ayant la même hauteur que ce dernier seront sélectionnés. Je sélectionne un texte ou un Mtext (toujours …) et tous les textes ou Mtext ayant le même style de texte que ce dernier seront sélectionnés. J’espère que j’ai été clair Merci de votre aide PS : je ne suis pas très bon, voire même mauvais en lisp <acronym class=dict title=

Il y a plusieurs solution tu peut utiliser une macro VBA de ce style là [surligneur] Sub Nom_fichier() Dim inserpnt As Variant Dim height As Double hauteur_text = 2 inserpnt = ThisDrawing.Utility.GetPoint(, "Point d'insertion: ") Set textObj = ThisDrawing.PaperSpace.AddText("Fichier : " & ThisDrawing.FullName, inserpnt, hauteur_text) textObj.Rotation = 1.57 'rotation à 90 textObj.Layer = 0 End Sub[/surligneur] ou alors il y a toujours la solution de la bannière dans Fichier Imprimer (a droite du style de tracer) Va faire un tour dans l aide en cherchant "Bannière (boîte de dialogue)" J'espère que je t'ai répondu.... Jérô

J'ai cherché dans l'aide « Merci tyrese69_ » J’ai trouvé comment créer une vue mais je ne comprends pas comment définir la fenêtre Je vais mettre une partie de mon code vous allez sûrement mieux comprendre mon dilemme [surligneur] Sub Essais() Dim returnPnt As Variant Dim points(0 To 9) As Double returnPnt = ThisDrawing.Utility.GetPoint(, "Entré le point d'insertion: ") '*** Définition des coordonnées pointx = returnPnt(0) pointy = returnPnt(1) points(0) = pointx: points(1) = pointy points(2) = pointx + 297: points(3) = pointy points(4) = pointx + 297: points(5) = pointy + 210 points(6) = pointx: points(7) = pointy + 210 points(8) = pointx: points(9) = pointy 'Création de la polyligne Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) End Sub[/surligneur] A partir de la je voudrai créer une vue qui commence par mon point d’insersion « returnPnt » Et qui s’étend de X+297 et Y+210 Ceci c’est ce que j’ai trouvé dans l’aide pour la création d’une vue [surligneur] ' Create a new view Dim viewObj As AcadView Set viewObj = ThisDrawing.Views.Add("TESTVIEW") 'Jusqu’ici j’ai compris c’est la suite que je pige pas ' Set the view characteristics viewObj.center(0) = 374: viewObj.center(1) = 313 viewObj.width = 450 viewObj.height = 354 ' Get the current active viewport Dim viewportObj As AcadViewport Set viewportObj = ThisDrawing.ActiveViewport MsgBox "Change to the saved view.", , "SetView Example" ' Set the view in the viewport viewportObj.SetView viewObj ThisDrawing.ActiveViewport = viewportObj ThisDrawing.Regen True End Sub[/surligneur] En espérant trouver un jour … A bientôt Jérô [surligneur] [/surligneur] [Edité le 27/6/2006 par oniwo59]

Merci Christian, Mais je ne pense pas que cela va me servir Ou du moins je ne comprends pas comment Je vais m’expliquer un peu mieux Enfin essayer Ce n’est pas en espace présentation ou je veux créer une vue mais en espace objet Mais apparemment sa serait l’inverse de toi, moi je veux créer une vue dans l’espace objet pour pouvoir la rappeler dans l’espace papier

Bonjour tous le mondes J’aimerai savoir s’il y est possible de créer une vue en VBA (Une vue définie par une fenêtre) Sans avoir a passé par : ThisDrawing.SendCommand "-vue" & vbCr ThisDrawing.SendCommand "f" & vbCr ThisDrawing.SendCommand NOM_VUE & vbCr ThisDrawing.SendCommand x1 & "," & y1 & vbCr ThisDrawing.SendCommand x2 & "," & y2 & vbCr J’espère que j’ai été claire…. :casstet: Merci pour vos réponses A bientôt Oniwo59 [Edité le 26/6/2006 par oniwo59]