rlapt

Bonsoir, Réponse à Titi95. C'est du matériel assez ancien et pas vraiment adapté à la DAO. La carte Nvidia Geforce 9200M GS sur un portable Samsung Q310. Merci à tous

Bonjour, Merci de la réponse et surtout du temps passé. Apparemment je n'ai plus ce problème d'affichage. Je penche donc plutôt vers un bug d'affichage puisque le fichier est identique (j'ai repris également une sauvegarde qui posait problème). Par contre, je n'ai pas bien compris votre explication concernant les deux cubes. Faut-il prendre "l'un sur l'autre" pour l'un au dessus dans un plan de l'autre ou l'un à la même place que l'autre ? Dans mon cas le haut des cloisons est situé au dessous du plafond donc la vue 3d ne devrait pas poser de problème à AutoCAD. Cordialement

Bonjour, Merci de votre réponse. Depuis la dernière manip, je n'ai plus de problèmed'affichage. Par contre, je ne suis pas certain que CClearner y soit pourquelque chose. A la prochaine panne j'essayerai de regarder du coté del'accélération matérielle. Le fichier etait en pièce jointe. Pra contre effectivement,je n'ai pas trouvé comment le récupérer sur le site. A tout hasard je le remets en pièce jointe. Cordialement [quote name='HBS62' timestamp='1426676011' post='230809'] Bonjour, Je ne vois pas fichier...Heu je ne pense pas que CCleaner y sois pour quelque chose ! Par contre i se peux que l'accélération matérielle sois activée/désactivée regarde de ce coté là ! Cordialement

Juste une précision, j'ai passer un coup de nettoyage avec CCleaner. Est-ce que cela à fait quelque chose ? COrdialement

Pour ce que ça intéresse, il semble bien que ce soit un bug. En effet, ce matin plus de problème d'affichage. Qu'est-ce qui a changé ??? Cordialement.

Merci de la réponse. J'ai fait la manip proposée, pas d'amélioration. En fait dans mon cas, je ne perds pas des objets, mais je les vois en transparence (voir fichier joint dans mon premier post). Je posais cette question car il m'avait semblé voir une option qui parlait d'obliques dans une boite de dialogue. Mais je ne me rappelle pas laquelle ni dans quel menu elle se trouve. C'est quand même embêtant ce problème. Je suis donc toujours preneur si quelqu'un à une solution. Merci d'avance

Bonjour, Je rencontre depuis peu un problème d'affichage en mode conceptuel sur autocad 2008. Description du problème : En vue isométrique on voit apparaitre une partie des objets cachés par un autre ainsi que des diagonales sur les surfaces planes (exemple un mur en premier plan est barré par une diagonale). Voir exemple sur fichier joint. Est-ce un problème de driver de la carte graphique ( à ma connaissance rien n'a été modifié récemment) ou une fausse manip ? Merci de votre aide. Système : Autocad 2008 sous Windows Vista

La réponse existait déjà.voir lien Mon lien Cordialement

Bonjour, Je souhaite gérer par programme le nombre d'objets sélectionné lors d'une commande VBA SelectOnScreen. Mieux encore, à partir d'une boîte en mode modal pouvoir gérer le type de filtrage de la commande SelectOnScreen. Exemple : - L'opérateur lance la commande - Une UserForm s'affiche comprenant plusieurs boutons de filtrage de sélection - L'opérateur sélectionne un premier objet d'un certain type (ex.: un bloc) - En fonction de ce type d'objet sélectionné, un ou plusieurs botons apparaissent sur la UserForm. Ils permettent de filtrer la sélection sur un autre type d'objet (ex.: un texte, un cercle etc..) - En fin de sélection, l'opérateur clique sur un bouton de la UserForm pour terminer la commande. Si qelqu'un à une idée, je suis prenneur. Merci d'avance

Après essai cela fonctionne parfaitement. Merci encore de l'idée.

Bonjour, Merci de l'idée. Je vais essayer, mais je pense que cela doit fonctionner.

Bonjour à tous, J'ai déjà posé cette question, mais je n'ai pas eu de réponse en retour et le sujet reste toujours d'actualité pour moi. Je souhaite connaitre les dimenssions hors tout d'un dessin de bloc (sans la partie attributs) et si possible sans exploser le bloc. La commande getboundingbox inclus dans sa réponse l'emplacement du texte En fait le problème est le suivant : Remplacer des blocs par d'autre avec des dimensions brutes et des points d'insertions différents. Merci d'avance pour les idées.

Bonjour, Juste pour info. le problème venait de la déclration des variables : Dim ABPtminCadre(2) As Double, ABPtmaxCadre(2) As Double qui sont utilisées dans la fonction getboundingbox. pour que celle-ci fonctionne il faut absolument les déclarer en tant que variables Variant. Comme quoi la copie de partie de programme sans réfléchier n'a pas que des avantages.

Bonsoir Merci de votre intérêt pour mon problème. En fait, il y a plusieurs causes au fait qu'il soit nécessaire de déplacer les attributs d'un bloc de remplacement : a) La position des attributs dans le bloc de remplacement ne sont pas forcément identique. b) l'opérateur à peut être déplacé les attributs de l'ancien bloc pour des questions de présenation. Après tests et essais, le problème vient de la réponse de la fonction getboundingbox de l'ancien bloc, qui répond 0,0,0 aux deux points (voir listing ci'-dessous). Je vous soumets ces lignes de code. Si vous avez une idée du pourquoi la réponse, cela m'arrangerait. Merci d'avance. ----corps de l'application----------------------- AncAttribut = AncBlock.GetAttributes() NouvAttribut = NouvBlock.GetAttributes() If UBound(AncAttribut) > UBound(NouvAttribut) Then NombreAttribut = UBound(NouvAttribut) Else NombreAttribut = UBound(AncAttribut) End If NouvBlock.Update AncBlock.Update For I = 0 To NombreAttribut NouvAttribut(I).TextString = AncAttribut(I).TextString EchangePlaceAttributs AncAttribut(I), NouvAttribut(I), AncAttribut Next ----Suite du corps de l'application----------------------- Sub EchangePlaceAttributs(AncAttrib As Variant, NouvAttrib As Variant, AncienBloc As Variant) Dim ABPtminCadre(2) As Double, ABPtmaxCadre(2) As Double, ABInsertionPoint As Variant Dim NBPtminCadre As Variant, NBPtmaxCadre As Variant, NBInsertionPoint As Variant, Flag As Boolean Dim ACentre(2) As Double, Ncentre(2) As Double 'pour éviter une erreur dans la fonction GetBoundingBox If AncAttrib.TextString = "" Then AncAttrib.TextString = "zyxwvtsrqp" NouvAttrib.TextString = "zyxwvtsrqp" Flag = True End If Call AncAttrib.GetBoundingBox(ABPtminCadre, ABPtmaxCadre) 'Cette fonction répond 0,0,0 aux deux variables Call NouvAttrib.GetBoundingBox(NBPtminCadre, NBPtmaxCadre) ABInsertionPoint = AncAttrib.InsertionPoint NBInsertionPoint = NouvAttrib.InsertionPoint For I = 0 To 2 ACentre(I) = (ABPtminCadre(I) + ABPtmaxCadre(I)) / 2 Ncentre(I) = ((NBPtminCadre(I) + NBPtmaxCadre(I)) / 2) Next Call NouvAttrib.Move(Ncentre, ACentre) If Flag = True Then AncAttrib.TextString = "" NouvAttrib.TextString = "" End If

Bonjour, Je souhaite remplacer de façon automatique (VBA) certains blocs de mon dessin par de nouveaux blocs. Pour le remplacement du bloc et des textes des attributs pas de problème ça fonctionne. Mon problème est le suivant : La position des attributs et leur point d'insertion ne sont pas forcément identiques sur les nouveaux blocs par rapport aux anciens. Cela fait désordre à l'affichage. J'ai essayé de remplacer le point d'insertion des attributs des nouveaux blocs par celui des anciens. Ce n'est pas bon. Quelqu'un aurait il une solution pour ce problème ? Merci d'avance.