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.

Bonjour, Je souhaite remplacer de façon automatique (VBA) certains blocs de mon dessin par de nouveaux blocs avec des caractéristiques proches. 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 ou les utilisateurs ont déplacés les attributs sur le dessin pour des raisons esthétiques. Total après le remplacement des blocs 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 de me répondre. [Edité le 14/2/2008 par rlapt]

Bonsoir et merci, Juste pour info, je pense que ceci est plus simple pour lier l'application à un périphérique. Avantage, ca permet de sécuriser avec un périphérique externe genre clé USB. Par contre la protection par mot de passe VBA est quasi nulle. Public Sub ClefSécurité() Set Disques = CreateObject("Scripting.FileSystemObject").Drives For Each disque In Disques Tempo = disque.SerialNumber If "Nro du disque à tester" = Tempo Then Exit Sub End If Next End End Sub

Bonjour, Cela fait plusieurs heures que je recherche un système pour protéger un peu plus efficacement des macros VBA que par le mot de passe. Pour cela, j'avais trouvé en son temps sur le Web une petite application qui renommait toutes les variables, fonctions et sub avec des mots du style a,aa,aaa etc, mais je suis incapable de remettre la main dessus. Cela me conviendrait pour l'instant le but étant de pouvoir distribuer un travail sans que les utilisateurs lambda puissent le modifier facilement. S'il vous reste du temps, quelqu'un connait-il une tutorial ou explication de la méthode pour créer des applications autocad en VB6. Merci d'avance de votre aide et joyeuses fêtes.

Bonjour, Je souhaite imprimer des dessins en batch en VBA. Pour cela j'ai fait une procédure qui me charge les dessins les uns après les autres suivant des critères qui me sont propre. Mon problème est que je n'arrive pas à trouver l'instruction et le paramétrage des variables sûrement indispensable pour que cela fonctionne. Actuellement avec la procédure ci-dessous, je sorts une page blanche à chaque dessin alors que le dessin s'affiche correctement dans l'onglet objet d'AutoCAD. Quelqu'un peut-il m'aider ? Ca fait quelque temps que je planche sur le sujet sans solution. Merci d'avance Private Sub subPrint() Dim varExtMax As Variant Dim varExtMin As Variant 'Recherche des limites du dessin varExtMax = ThisDrawing.GetVariable("extmax") varExtMin = ThisDrawing.GetVariable("extmin") 'impression en mode étendu du dessin ThisDrawing.Plot.PlotToDevice "Canon MP750 Series Printer.pc3" End Sub

Bonjour à tous, Je souhaite connaitre la commande ou la fonction qui permet d'isérer un bloc en demandant le point d'insertion et en visualisant le bloc au moment de la définition de ce fameux point. Comme dans la commande d'isertion de bloc d'aautocad. Merci d'avance.

Bonjour à tous, 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

Bonjour à tous, Comment récupérer l'action sur les boutons et menus Sauvegarder et imprimer. Je souhaite avant de sauvegarder et d'imprimer lancer une macro VBA.

Bonjour, Merci de votre réponse. La bonne réponse est "backward". Je n'avais pas bien fait mon test et donc les résultats n'étaient pas correct. Toutes mes excuses pour le dérangement.

Bonjour, Dans un dessin j'ai des blocs avec attributs. Je remplace ces blocs par de nouveau blocs par une routine en VBA. Le problème est le suivant : Certains blocs existants dans le dessin ont reçu une commande miroir avec la variable MIRRTEXT à 0. Lorsque j'insère mes nouveaux blocs, je copie les valeurs des X,Y,ZScale et les textes des attributs. Mais au final les textes des attributs du nouveau bloc sont affichés à l'envers. Question : Quelle est la propriété (en lecture et en écriture) contenant le fait que le texte soit retourné ou si cette propriété n'existe pas, la méthode pour insérer mes nouveaux blocs proprement ? Merci d'avance

Bonjour, Merci de ta réponse. En fait j'ai des fichiers blocs dans un répertoire X de mon serveur. Je voudrais pouvoir modifier les attributs des ces blocs, notamment les renommer, modifier la hauteur du texte etc. De plus, ils sont tous identiques dans la position de leurs attributs. Je pourrais donc rajouter des attributs en sachant où les placer. Mais cette fonction n'est pas très importante. Merci d'avance pour tes idées.