nazemrap

Bonjour. Réponse très primaire, le paramètre "projeter des ombres " est actif et la valeur de ce paramètre est élevé pour une bonne qualité de rendu. Donc c'est long. nazemrap

Bonjour. Si si, j'insiste, le point crée une intersection avec la ligne. Dans la mesure ou la sélection de la polyligne a été faite avec un accrochage actif "proche", le point est sur la polyligne. nazemrap.

Re Re J'ai décidé de retenter ma chance. Cette fois j'insère un point aux extrémités du segment concerné. Je veux bien qu'on me donne une correction sur mes tentatives. Public Sub bidouille2() Dim objetselection As AcadEntity Dim polyligne As AcadLWPolyline Dim pointdeselection As Variant Dim coordodeselection(0 To 2) As Double Dim explosepoly As Variant Dim point, point1, point2 As AcadPoint Dim intpoints As Variant Dim ligne As AcadLine 'Met les points en croix ThisDrawing.SetVariable "pdmode", 3 'NB l'accrochage "proche" doit être utilisé pendant la sélection 'Récupère la polyligne ThisDrawing.Utility.GetEntity objetselection, pointdeselection, "Sélectionnez la polyligne !" Set polyligne = objetselection 'Récupère les coordonnées du point de sélection coordodeselection(0) = pointdeselection(0): coordodeselection(1) = pointdeselection(1) 'Insère un point Set point = ThisDrawing.ModelSpace.AddPoint(pointdeselection) explosepoly = polyligne.Explode 'Boucle sur les objets résultants Dim I As Integer For I = 0 To UBound(explosepoly) If explosepoly(I).ObjectName = "AcDbLine" Then Set ligne = explosepoly(I) 'Teste l'intersection avec le point intpoints = ligne.IntersectWith(point, acExtendNone) If VarType(intpoints) <> vbEmpty Then If UBound(intpoints) = 2 Then 'met les points aux extrémités Set point1 = ThisDrawing.ModelSpace.AddPoint(ligne.StartPoint) Set point2 = ThisDrawing.ModelSpace.AddPoint(ligne.EndPoint) End If End If End If ligne.Delete Next End Sub nazemrap [Edité le 2/1/2006 par nazemrap]

Re. Mille excuses , j'étais effectivement à côté. nazemrap

Bonsoir. Pour ma part je pense qu'il s'agit de situer le sommet le plus proche du point de sélection de la polyligne. J'ai tenté une bidouille que voici : Public Sub bidouille() Dim objetselection As AcadEntity Dim polyligne As AcadLWPolyline Dim pointdeselection As Variant Dim coordodeselection(0 To 2) As Double Dim sommets As Variant Dim coordosommet(0 To 2) As Double Dim distance As Double Dim cercle() As AcadCircle 'Récupère la polyligne ThisDrawing.Utility.GetEntity objetselection, pointdeselection, "Sélectionnez la polyligne !" Set polyligne = objetselection 'Récupère les coordonnées du point de sélection coordodeselection(0) = pointdeselection(0): coordodeselection(1) = pointdeselection(1) 'Récupère les sommets de la polyligne sommets = polyligne.Coordinates 'Crée un tableau pour un nombre de cercles correspondant ReDim cercle(UBound(sommets)) 'Calcule pour chaque sommet la distance par rapport au point de sélection 'basé sur le carré de l'hypothénus! For tour = LBound(sommets) To UBound(sommets) coordosommet(0) = sommets(tour): coordosommet(1) = sommets(tour + 1) distance = Abs((coordodeselection(0) - coordosommet(0)) * (coordodeselection(0) - coordosommet(0))) _ + Abs((coordodeselection(1) - coordosommet(1)) * (coordodeselection(1) - coordosommet(1))) distance = Sqr(distance) 'crée un cercle de centre point de sélection, et rayon valant le vecteur Set cercle(tour) = ThisDrawing.ModelSpace.AddCircle(pointdeselection, distance) cercle(tour).color = acRed tour = tour + 1 Next 'Le plus petit cercle passe par le sommet le plus près du point de sélection 'partant de la, le sommet est récupérable... End Sub J'espère ne pas être trop à côté... nazemrap

Bonjour. D'une manière directe ou par simple lecture, j'ai trouvé beaucoup de réponses ou de possibilités nouvelles. nazemrap.

Bonjour. A vérifier, le style de texte utilisé dans le style de cote (standard par exemple) ne doit pas être défini avec une hauteur fixe. Si c'est le cas le paramètre du style de cote n' est plus exploitable. C'est peut-être à ce niveau qu'il faut remettre la hauteur du texte à 0. nazemrap PS Je n'avais pas vu que Rebcao en parle sur le forum 2006... [Edité le 5/12/2005 par nazemrap]

Bonjour. Afin d'éviter les "conflits de génération", il me semble pour ma part important de connaître et pouvoir pratiquer les différentes méthodes. Suivant les circonstances de travail, l'une ou l'autre peut être choisie. N'est-ce pas la philosophie d'Autocad ? Le rôle de la formation est aussi de faire connaître des possibilités, même si il faut naturellement être "efficace",. Certains environnements professionels n'exploitent pas du tout la présentation . L'ajustement d'un style de cote peut aussi aider à faire percevoir la notion d'échelle d'impression et d'unités d'écran. nazemrap

Bonjour. Même méthode que Rebcao, toutefois avec plusieurs styles de cotes suivant les échelles. En général un style de cote un calque, et parfois une commande qui permet d'activer les 2 en relation. Les cotes en espace papier nécessitent un verrouillage des fenêtres flottantes, sinon un zoom ou un pan ont un effet il me semble.Avec modération donc. nazemrap

Bonjour. Après avoir indiqué le centre de la base du cylindre, il y a une option disponible sur la ligne de commande :[Diamètre]. Inscrire d et valider. C'est alors la valeur du diamètre qu'il faut indiquer . nazemrap

Bonjour. Il faut modifier le style ou les styles de cotation concernés. Pour cela aller dans le menu déroulant "format" puis "style de cote" puis sélectionner le style concerné. Cliquer ensuite sur l'onglet "Unités principales". Dans la zone "échelle de mesure" , mettre le "facteur d' échelle "=10. Ceci multiplie les valeurs des cotes par 10, sans changer l'unité d'écran. Il est parfois plus prudent de créer un nouveau style recevant ce paramètre et changer le style des cotations concernées si elles ne sont pas toutes en cause. Cela peut aussi être fait par les propriétés de la cote si il n'y en pas beaucoup, puis copier les propriétés. nazemrap

Bonsoir. Je ne sais pas si je suis dans le sujet. mais dans la boîte alias apparaît POP519. J'inscrit sur la ligne en dessous OBJECT_ARC puis OK. J'associe ensuite une commande au Menu contextuel1 par glisser déposer. J'applique. Je récupère la commande dans le menu contextuel de l'arc. nazemrap

Bonsoir. AllPlan dispose d'une commande exportation de fichiers vers autocad. Au moins pour all plan 2004 vers format autocad 2000. Fichier > exporter > exporter des données autocad nazemrap.

Bonjour. Essaies \X\P pour le suffixe unité principale. La partie inférieure est décalée vers le bas, mais cela peut peut-être suffire. nazemrap

Bonjour. Ces blocs sont les blocs utilisés pour définir les pointes des flèches des styles de cotation. Si ils ne sont [surligneur] pas utilisés[/surligneur], c'est à dire pas présents dans la zone graphique ou dans le style de cote courant, il faut alors les purger par la commande [surligneur] PURGER[/surligneur]. nazemrap

Bonjour. Pour le plancher, je pense au site de http://www.rector.fr/ pour l'utilisation de [surligneur] prédalles [/surligneur]par exemple. nazemrap

rebonsoir. Je n'ai rien de disponible ce soir. Je pense toutefois avoir quelques éléments sur mon lieu de travail. Je ne promet rien, je verrai mercredi (le pont !!!) nazemrap

Bonsoir. Quels types de plans ? Juste des schémas de principe ou des plans complets (fermes, chevronnage...avec dimensions) Sans relevés cela parait un peu flou. nazemrap

Bonjour. Dans des fenêtres différentes ? En gérant les calques dans la fenêtre courante. nazemrap

Bonjour. Je ne sais pas si j'ai bien interprété la question. Il semble que dans l' opton [multiple] de la commande raccord et en mode "non-ajuster", avec un rayon à 0 pickadd soit à 0 et donc nécessite d'appuyer sur la touche "maj" pour "ajouter". Me trompe-je ? nazemrap.

Bonsoir. Merci Didier. Super ! Quelle élégance ! Je m' 'y colle derechef. Je ne sais pas si cela me permettra d'aboutir, mais le potentiel est là. Je te tiendrai au courant . nazemrap.

coucou aussi La spline a été fermée avec l'option clore. J'ai besoin depuis vba de récupérer 2 sommets (départ et fin) en "ouvrant" la spline. Je ne sais pas si je suis plus explicite ?

Bonsoir. Comment ouvrir une spline depuis vba ? Merci . nazemrap

Bonjour. Je suis tout à fait en accord pour créer ses propres bibliothèques. J' ai fait un tuto disponible au format pdf sur mon site, concernant l'utilisation des blocs, omettant toutefois la commande wbloc. Oserais-je ???? A plus

bonjour ! Après avoir supprimé les entités (ref de blocs) des calques créés par solprof, purger les définitions des blocs résultants style *U1 *U2. Après cela les calques doivent pouvoir être supprimés. En espéranr que cela soit conforme... A plus nazemrap.