formula1

Comment fait-on pour poster un fichier?

J'ai déjà répondu a ce genre de question, les lisp ne fonctionne pas sur tous les ordi que l'on a. Je ne sais pas pourquoi, j'avais programmer plusieur petites routines en lisp et configurer tous les pc de la meme mannière mais voilà il y a 2 pc qui font des ciennes ils ne veulent pas que les fichiers lisp fonctionnent

Oui, je sais mais je veus que au moment de l'insertion du cartouche il ouvre une fenetre demandant à l'utilisateur de remplir le cartouche car il y en a qui oublie des données et qu'il faut leur répéter plusieur fois de rmplir entierement le cartouche.

oui, c'est bien cela mais l'insertion du cartouche, je l'ai déjà. Il s'insere déjà a un point donner, il n'ay a plus qu'a le remplir

Est-ce que ça marche aussi si le cartouche est dans le paperspace? En fait voici tous les attributs que je veus que l'utilisateur entre afin de remplir son cartouche -PROJET -ADRESSE1-PROJET -ADRESSE2-PROJET -ADRESSE3-PROJET -IND-0 -DESC-0 -DESS-0 -DAT-0 -TITRE1 -TITRE2 -TITRE3 -ECH1 -ECH2 -DOSSIER -NUM -IND -DATE -ETAT et ensuite en appuyant sur un bouton "OK" il remplisse le bloc nommé CART

Pas de probleme LSOURD2. En fait ce n'est pas un cartouche de mise en page mais un bloc avec des attributs qu'il faut exporter et qui n'est pas dans la mise en page pour l'impression Les attribut a exporter sont: -PROJET -DOSSIER -NUM -ETAT -IND -DATE -DATIND -TITRE Ces attributs sont a mettre dans des célulles bien précise, avec une attention pour les attributs car il faut les mettre l'un à la suite de l'autre et ne pas mélanger les attribut des plans

Oui en VBA car j'ai déjà des routine en lisp mais elle ne marche pas sur toutes les machines au bureau alors j'ai décider de les faires en vba avec 2 ou 3 petit plus

Ben, j'ai un cartouche identique sur chaqun de mes plans qui comparte: -Le numéro du plan, la date du plan, l'indice du plan, la date de l'indice du plan, le titre du plan. Je voudrais, à l'aide du vba, faire une routine qui ouvre tous les fichiers " *.dwg " d'un dossier que je sélectionnerai et qu'il m'extrait tous les attributs ci-dessus dans un fichier .xls que j'aurrai créer (les cases à remplir seron nommées du meme non que les attributs) afin d'en créer une liste de plan correctement et rapidement. Merci d'avance pour vos réponses. En espérant etre claire

Bonsoir, Est-il possible de programer en VBA un petit logiciel qui ouvre tous les plans d'un dossier et qui extrait certain attribut de tous les dessin ouvert et renvoi les données dans un tableau excel définit.

Bonjours, j'aimerrais faire une routine qui remplisse mon cartouche automatiquement après son insertion. Les champs a remplir son des attributs comme par exemple : -DATE -ECHELLE -N° DE DOSSIER -NUM PLAN -TITRE DU PLAN - - - -etc....... Pourriez-vous m'aider. Merci d'avance pour vos réponses

Je dois le mettre dans le userform ou dans le module?

merci, je vais essayer ce code et voir pour le bidouillé en me servant de l'aide de autocad. Si je ne trouve pas ce que je veus, je reviendrais poser quelques quesions supplémentaire.

Je le met ou userFormX.hide

Bonsoir, il y aurrais quelqu'un qui pourrai m'aider a creer une polyligne en VBA. Merci d'avance

' paramètrage nouvelle fenetre flottante Dim PViewPort As AcadPViewport Dim ViewportOn As Boolean Dim center(0 To 2) As Double Dim width As Double, height As Double ' On définit la taille de la viewport dans le paperspace center(0) = 3: center(1) = 3: center(2) = 0 width = 40: height = 40 ' Création de la viewport dans le paperspace Set PViewPort = ThisDrawing.PaperSpace.AddPViewport(center, width, height) ' On définit l'echelle standard de la viewport PViewPort.StandardScale = acVpCustomScale ' On change entre le modelspace et le paperspace ThisDrawing.ActiveSpace = acPaperSpace ' On change l'echelle pour du 1:100 PViewPort.CustomScale = 10 ' on affiche la viewport en ON PViewPort.ViewportOn = True

J'ai un probleme avec dim pins as variant Pins = ThisDrawing.Utility.GetPoint(, "Veuillez choisir un point : ") Il me dit : "AUTOCAD main window is invisible"

Les blocs dynamique, je ne connais pas car jetravaille essentiellement avec autocad2004 (et oui, je suis en retard) mais quand une version tourne bien on ne change pas.

Merci a tous pour votre aide. J'ai la solution, voici le code pour qui ça interresse : Private Sub Cmd100_Click() ' paramètrage nouvelle fenetre flottante Dim PViewPort As AcadPViewport Dim ViewportOn As Boolean Dim center(0 To 2) As Double Dim width As Double, height As Double ' On définit la taille de la viewport dans le paperspace center(0) = 3: center(1) = 3: center(2) = 0 width = 40: height = 40 ' Création de la viewport dans le paperspace Set PViewPort = ThisDrawing.PaperSpace.AddPViewport(center, width, height) ' On définit l'echelle standard de la viewport PViewPort.StandardScale = acVpCustomScale ' On change entre le modelspace et le paperspace ThisDrawing.ActiveSpace = acPaperSpace ' On change l'echelle pour du 1:100 PViewPort.CustomScale = 10 ' on affiche la viewport en ON PViewPort.ViewportOn = True End Sub[/img]

Merci, je vais essayer ce code, en fait je ne savais pas comment mettre l'echelle sur le viewport

Tu veus exploser le bloc ou juste le décomposer sans perdre les attribut?

Bonjours a tous, J'aimerrais bien faire une routine en VBA qui me crée une VIEWPORT avec une échelle que déffinirai au momment de la création de celle-ci. Ci il y a quelqu'un pour me donner un coup de main car je ne sait pas par ou je dois commencer vu que je suis ultra débutant en VBA. Merci d'avance pour vos réponses.

Ok, j'ai mis mon fichier dans la recherche de autocad et ça marche meme si le bloc n'est pas dans le dessin. Mais maintenenat j'aimerrais a partir de mon code, qu'il demande a l'utilisateur le point d'insertion car pour l'instant, il les mets tous au point 10,10,0 comme tu peus le constater par se morceau du code repris ci-dessus Pins(0) = 10 Pins(1) = 10 Pins(2) = 0

ok merci sechanbask

Bon, au point de vue insertblock, j'ai trouvé mais ça fonctionne uniquement si le bloc existe déjà dans le dessin. Moi je voudrais pouvoir l'insserer meme s'il n'existe pas encore dans le dessin. Voici le code que j'ai actuellement Private Sub CmdA0_Click() Dim BlocObj As AcadBlockReference Dim Pins(0 To 2) As Double Pins(0) = 10 Pins(1) = 10 Pins(2) = 0 Set BlocObj = ThisDrawing.PaperSpace.InsertBlock(Pins, "A0.dwg", 1#, 1#, 1#, 0) BlocObj.Update 'on explose les blocs pour que le texte des cotations soient de meme taille BlocObj.Explode 'il faut l'effacer car sinon on a 2 blocs superposés BlocObj.Delete End Sub

J'ai essayer ton code et il me dit comme erreur Une erreur inconnue est survenue, veuillez contacter le développeur. par contre, je ne sais pas par ou je doit commencer mon code