t.erie

Salut ! Tu as essayé de lancer Autocad en tant qu’administrateur ? Sinon essaie de réparer ton installation. Thierry

J'ai trouvé cette solution : Un paramètre linéaire avec emplacement de base au milieu. Inversion sur le carré et le paramètre linéaire. Nouveau bloc Si ça peut aider. Thierry

Merci Gile, En fait les états de visibilités me servent à autre chose (dans le bloc officiel). Merci d'avoir pris le temps de me répondre Thierry

Bonjour, Ci-après le fichier test Fichier test Merci

Bonjour,

Bonjour, Je n'ai pas trouvé de topic sur le sujet,c'est pourquoi je vous demande de l'aide. J'ai mis un paramètre linéaire sur lequel j'ai appliqué un étirement + une inversion + un déplacer(avec variateur de distance à 0.5). Quand j'étire mon bloc puis je réalise l'inversion, pas de problème, j'obtiens bien le résultat attendu. Si je fais l'inversion avant l'étirement, là par contre ce n'est pas la même histoire, c'est le bazar. Si une personne à la solution, je suis preneur. Je n'ai pas trouvé la solution pour joindre mon fichier, je peux vous l'envoyer par mail Thierry

Bonjour, j'ai essayé de faire une table de consultation double, mais je ne suis pas arrivé à le faire ! Quelqu'un peut me donner la solution ? Merci par avance Thierry

Bonjour, Je m'excuse pour ma réponse tardive, je rentre de déplacement. Je vais aller voir le post. Merci pour cette réponse. Thierry

Bonjour à tous, Mon client me demande de modifier tous les plans que je lui ai faits l'année passée (avec les normes, tous va bien !) Le souci est que dans chaque local j'ai mis un bloc contenant 8 attributs. Au final il veut que le nom du bloc change et que les étiquettes soient presque toutes renommées. J'ai 25 bâtiments avec une moyenne de 3 niveaux le tout multiplié par x pièces vous imaginez le boulot de titan ... Ma question est : est-il possible de le faire automatiquement avec un programme ? Pour information je suis équipé avec la version 2012. D'avance je vous remercie de vouloir étudier ma requête Thierry

merci d'avoir pris le temps de me répondre, je vais de ce pas suivre tes conseils

j'ai oublié de préciser, je ne connait rien du tout à la programmation, non par manque d'envies mais par manque de temps.. Ce code m'avait été fait par un collègue qui par manque de disponibilité ne peut le modifier rapidement. Thierry

Bonjour, Ci-après un bout de code qui tourne sans problème sur un poste équipé de Windows 7 32bits mais qui ne fonctionne pas sur un poste équipé de Windows 7 64, d'Autocad 2011 64 + le pack vba 64. Est-ce qu'un âme charitable peut m'aiguiller sur les modifications que je doit apporter. -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Public valid As Boolean Sub surf_POLYLIGNE() 'cette procédure permet de placer automatiquement un texte simple contenant un champ liéé à une polyligne fermée à sélectionner Dim textString As String Dim objet_TEXTE As AcadText Dim texte As String Dim height As Double Dim returnPnt As Variant Dim returnObj As AcadObject Dim basePnt As Variant Dim pb As Boolean On Error Resume Next pb = True While pb pb = False ThisDrawing.Utility.GetEntity returnObj, basePnt, "Cliquez sur polyligne : " If Err = 0 Then If returnObj.ObjectName = "AcDbPolyline" Then textString = "%<\AcObjProp.16.2 Object(%<\_ObjId " & returnObj.ObjectID & ">%).Length \f ""%lu2%pr0%ps[,cm]%ct8[1]"">%" returnPnt = ThisDrawing.Utility.GetPoint(, "Point d'insertion de la longueur : ") height = 8 Set objet_TEXTE = ThisDrawing.ModelSpace.AddText(textString, returnPnt, height) objet_TEXTE.Layer = "Vérification" objet_TEXTE.Alignment = acAlignmentMiddleCenter objet_TEXTE.TextAlignmentPoint = returnPnt objet_TEXTE.StyleName = "ARIAL" ThisDrawing.Regen (True) Else MsgBox "Je t'avais dis une polyligne .... rejoue encore une fois ...." pb = True End If End If Wend End Sub Merci d'avance Thierr

En renommant certains paramètre cela doit être possible non ?

Je viens de tester votre lisp, du tonnerre, merci beaucoup d'avoir bien voulu consacrer du temps pour moi. J'espère que cela profitera à d'autres personnes. Merci encore

Ci après un bloc test: http://file.ahst.fr/get.php?id=4d3417b32731d