lrdb@home

Bonjour, Juste un petit truc, on peut répondre oui ou non pour d'autres raisons, Il faut se méfier des sondages ... En effet, si je réponds non, c'est parce que "les effets nocifs d'un vapotage passif ne sont pas médicalement reconnus" mais le jour où ils le seront (reconnus), alors je répondrai "oui"... PS: Tu as choisi la pilule rouge... ? ;) Cordialement

Bonjour, Je m'y perds aussi. J'aimerais bien savoir pourquoi en utilisant un gps centimétrique, les coordonnées lambert I Grille ou Zone sont différentes du lambert I carto et ce, de quelques mètres? (perso, celà dépend du type de transformation grille ou standard, voir ici) Je ne possède pas autocad MAP mais si une âme charitable pouvait confirmer que le passage des coordonnées lambert I carto à Lambert I grille donne des coordonnées différentes? Merci. LrDb

Bonjour, Menu Elément; Style de texte. Onglet Arrière-Plan mettre la couleur du fond d'écran. Si tes textes sont existants tu les sélectionne tous (applique le nouveau style de texte au besoin) puis Ctrl+G puis Ctrl+U (groupés dégroupés) ils passeront en avant-plan si dessin 2D. LrDb

Bonjour, Oui, mais en anglais, il y même un site qui qui explique cela aux anglophones avec une liste.

Bonjour, pour les lotissements, voir ici . faire un tableau sur excell de la même façon qu'à la page 26. LrDb

Bonjour, @didier A mon avis, c'est peu probable Mais qui sait ? cordialement LrDb

Amélioration quelquesoit le point d'insertion: Module principal Sub Placecell0() If ActiveSettings.CellName = "" Then MsgBox "no active cell" Exit Sub End If Dim oCel As CellElement Set oCel = CreateCellElement2(ActiveSettings.CellName, Point3dZero, Point3dFromXY(1, 1), True, Matrix3dIdentity) If oCel.Range.Low.X - oCel.Range.High.X = 0 Then MsgBox "invalide cell" Exit Sub End If CommandState.StartPrimitive New p_cell_anG_Sca End Sub module de class: Implements IPrimitiveCommandEvents Private m_atPoints(0 To 1) As Point3d Private m_nPoints As Integer Dim Lg2 As Double Dim LgPt As Double Dim Algpt As Double Dim Propp As Double Private Sub IPrimitiveCommandEvents_Cleanup() End Sub Private Sub IPrimitiveCommandEvents_DataPoint(Point As Point3d, ByVal View As View) If m_nPoints = 0 Then CommandState.StartDynamics m_atPoints(0) = Point m_nPoints = 1 ShowPrompt "Place end point" CadInputQueue.SendKeyin "set prompt entrez AX=" Dim cel1 As CellElement Set cel1 = CreateCellElement2(ActiveSettings.CellName, m_atPoints(0), Point3dFromXY(1, 1), True, Matrix3dIdentity) LgPt = Abs(Point3dDistance(cel1.Range.Low, cel1.Origin)) Algpt = Atn2(cel1.Origin.Y - cel1.Range.Low.Y, cel1.Origin.X - cel1.Range.Low.X) Propp = Abs(cel1.Range.Low.X - cel1.Range.High.X) ElseIf m_nPoints = 1 Then m_atPoints(1) = Point Dim oCel As CellElement Set oCel = CreateCellElement2(ActiveSettings.CellName, Point3dAddAngleDistance(m_atPoints(0), Algpt + Atn2(m_atPoints(1).Y - m_atPoints(0).Y, m_atPoints(1).X - m_atPoints(0).X), LgPt * Lg2 / Propp, 1), Point3dFromXY(Lg2 / Propp, Lg2 / Propp), True, Matrix3dFromAxisAndRotationAngle(2, Atn2(m_atPoints(1).Y - m_atPoints(0).Y, m_atPoints(1).X - m_atPoints(0).X))) ActiveModelReference.AddElement oCel oCel.Redraw m_atPoints(0) = m_atPoints(1) End If End Sub Private Sub IPrimitiveCommandEvents_Dynamics(Point As Point3d, ByVal View As View, ByVal DrawMode As MsdDrawingMode) CommandState.ParseAll = False If m_nPoints = 1 Then m_atPoints(1) = Point Dim oCel As CellElement Lg2 = Abs(Point3dDistance(m_atPoints(0), Point)) Set oCel = CreateCellElement2(ActiveSettings.CellName, Point3dAddAngleDistance(m_atPoints(0), Algpt + Atn2(m_atPoints(1).Y - m_atPoints(0).Y, m_atPoints(1).X - m_atPoints(0).X), LgPt * Lg2 / Propp, 1), Point3dFromXY(Lg2 / Propp, Lg2 / Propp), True, Matrix3dFromAxisAndRotationAngle(2, Atn2(m_atPoints(1).Y - m_atPoints(0).Y, m_atPoints(1).X - m_atPoints(0).X))) oCel.Redraw DrawMode Dim oEl As LineElement Set oEl = CreateLineElement1(Nothing, m_atPoints) oEl.Redraw DrawMode End If End Sub Private Sub IPrimitiveCommandEvents_Keyin(ByVal Keyin As String) MsgBox Keyin End Sub Private Sub IPrimitiveCommandEvents_Reset() CommandState.StartPrimitive Me m_nPoints = 0 End Sub Private Sub IPrimitiveCommandEvents_Start() ShowCommand "FROM VBA PlaceLine Example" ShowPrompt "Point d'insertion de la cellule" End Sub

Bonjour, des infos ici LrDb

Bonjour, j'ai moi aussi qq problème avec cette fonction. fais une recherche sur google, sur le site de Bentley...,On n'est pas les seuls ou inscris-toi il y a je pense des têtes qui pourront te répondre (suis autodidacte). ceci dit, j'ai abandonné cette fonction pour feinter en utilisant le placement d'arc tangent à tes 2 droites (un peu à la dégonfle). 'calcul des nouveaux coordonnées Droite(1).init Vecteur(1).P_Start, Calcul_Point_Prolonger(Vecteur, False) Droite(2).init Vecteur(2).P_Start, Calcul_Point_Prolonger(Vecteur, True) Droite(1).Coupe_Quart Droite(2).Coupe_Quart Droite(3).init Droite(1).P_Stop, Droite(2).P_Stop Droite(3).Coupe_Moitier_Millieu Droite(1).Coupe_Moitier Droite(2).Coupe_Moitier Droite(4).init Droite(1).P_Stop, Droite(3).P_Stop Droite(5).init Droite(3).P_Start, Droite(2).P_Stop 'traçage des segments primaires Droite(1).trace Set el_Tp10 = Droite(1).G_Line Droite(4).trace Set el_Tp20 = Droite(4).G_Line Dim liGverif As LineElement 'calcul du rayon mini rayon_mini = Droite(1).Longueur rayon = Droite(3).Longueur If rayon < rayon_mini Then rayon_mini = rayon rayon = Droite(4).Longueur / 2 If rayon < rayon_mini Then rayon_mini = rayon rayon_mini = rayon_mini / 2 'MessageCenter.AddMessage "Le rayon maxi est de " + CStr(rayon_mini) + " m" MsgBox "Le rayon maxi est de " + CStr(rayon_mini) + " m" 'mise en place des coubes Dim ptPick As Point3d ptPick = Point3dInterpolate(el_Tp10.startPoint, 0.5, el_Tp20.EndPoint) CadInputQueue.SendKeyin "choose none" CadInputQueue.SendKeyin "lock snap tangency" 'accrochage tangent CadInputQueue.SendKeyin "PLACE ARC ICON " SetCExpressionValue "tcb->msToolSettings.igen.placeArcMode", 1, "IGEN" 'placement arc par contour CadInputQueue.SendCommand "IGEN CONSTRAIN RADIUS LOCK " CadInputQueue.SendCommand "IGEN CONSTRAIN RADIUS " & rayon_mini 'rayon !!Attention!!,mettre le séparateur décimal . et non , dans les options régionnales CadInputQueue.SendTentativePoint Point3dInterpolate(el_Tp10.startPoint, 0.5, el_Tp10.EndPoint), 1 CadInputQueue.SendDataPoint ptPick, 1 CadInputQueue.SendTentativePoint Point3dInterpolate(el_Tp20.startPoint, 0.5, el_Tp20.EndPoint), 1 CadInputQueue.SendDataPoint ptPick, 1 CadInputQueue.SendReset Bon, tiens nous au courant. Cordialement LrDb [Edité le 27/3/2011 par lrdb@home]

Bonjour, je ne comprends pas tout, en sélectionnant 2 lignes liGn (0) et liGn(1) dans un dessin, ceci fonctionne et suffit. Set Arcele = liGn(0).ConstructFillet(liGn(1), Nothing, 10, liGn(0).StartPoint, ActiveDesignFile.Views(1).Rotation) ActiveModelReference.AddElement Arcele Reflexion faite, ton problème est de trouver le bon point "pickpoint" dans l'aide? 2 droites qui se croisent= 4 possibilités de placement d'arc c'est bien çà? Dim ptPick(1 To 4) As Point3d ptPick(1) = Point3dInterpolate(liGn(0).StartPoint, 0.5, liGn(1).StartPoint) ptPick(2) = Point3dInterpolate(liGn(1).StartPoint, 0.5, liGn(0).EndPoint) ptPick(3) = Point3dInterpolate(liGn(0).EndPoint, 0.5, liGn(1).EndPoint) ptPick(4) = Point3dInterpolate(liGn(1).EndPoint, 0.5, liGn(0).StartPoint) Set Arcele = liGn(0).ConstructFillet(liGn(1), Nothing, 10, ptPick(1), ActiveDesignFile.Views(1).Rotation) ActiveModelReference.AddElement Arcele Set Arcele = liGn(0).ConstructFillet(liGn(1), Nothing, 10, ptPick(2), ActiveDesignFile.Views(1).Rotation) ActiveModelReference.AddElement Arcele Set Arcele = liGn(0).ConstructFillet(liGn(1), Nothing, 10, ptPick(3), ActiveDesignFile.Views(1).Rotation) ActiveModelReference.AddElement Arcele Set Arcele = liGn(0).ConstructFillet(liGn(1), Nothing, 10, ptPick(4), ActiveDesignFile.Views(1).Rotation) ActiveModelReference.AddElement Arcele dans ce cas, les 4 arcs sont dessinés. Cordialement LrDb [Edité le 23/3/2011 par lrdb@home]

Bonjour, le trait en pointillé correspond à de la Basse Pression (Fonte ductile, PE) le trait continu à de la moyenne pression MPB (Acier, PE ) sur la droite, tu as de la mpb tubée dans de la fonte c'est la norme V2+ ou V3 erdf grdf réalisé avec microstation à la base avec l'applicatif atlas LrDb

Bonjour, J'ai eu un problème d'affichage avec un autre logiciel. décoches l'aéro peek pour voir. LrDb

bonjour lili2006, tant que l'on a pas les distances, on ne peut rien dire ... non ? LrDb

Bonjour, ne serait-ce pas le symbole décimal , ou . dans les options régionales ? j'ai déjà eu ce pb avec export access excel Lrdb

Désolé Philsogood même avec l'index des commandes en tapant "s" il n'y a pas save ? j'ai la version 8.09.04.51

Bonjour, tu peux enregistrer des dwg avec le viewer de Bentley en tapant la commande "save as dwg" ou "save as v8" dans l'entrée au clavier LrDb [Edité le 13/1/2011 par lrdb@home]

Très intéressant aussi les liens que donne l'incontournable Inga Morozoff dans ce même sujet de discussion. Bon Week End à toi aussi LrDb

Je n'ai que la V8 2004 peut pas tester sur XM mais ceci dit, voici un lien où le sujet de discussion est atool.ma http:// http://communities.bentley.com/products/microstation/microstation_v8i/microstation_v8i_detailing/f/19566/t/24597.aspx regardes le lien de Jon Summers, il existe un autre outils. Vraiment très fort ce Jon :exclam: LA-SOLUTIONS est une bible LrDb

Bonjour, Il existe ceci http:// http://communities.bentley.com/other/old_site_files/member_folders/m/phil_chouinard_bentleys_files/180.aspx cordialement Lrdb

Bonjour Harnoo, tu décales ta ligne, à la distance souhaitée en copie puis utilise l'outils placement de motif linéaire Cordialement LrDb

Bonjour saaidi Si tu es tjrs dans l'impression par lot: clic sur affichage puis propriétés Bordure d'impression choix:désactivé Si tracé unique: Spécifications Attributs d'impression et décoches Borure d'impression cdlt LrDb

Bonjour Philsogood, Surtout si tu prends win 7, prends une version pro ou supp tu pourras installer Virtual PC pour y faire tourner XP On a tous des logiciels non compatibles seven 64 pas de virtual Pc xP Mode avec Home premium Home premium Vérifie le processeur aussi cdlt LrDb

Re, Tu "possèdes" donc la V8i En fait, tu as la V8i mais tu ne veux pas l'utiliser. Bon, si ça peut servir à un autre: Pour faire un zoom étendu sur tous les fichiers: Utilitaire/Traitement par lots dans fichier de commande tu ouvre un .txt dans lequel tu écris au préalable: Fit all selview all filedesign ensuite, Editer /Ajouter fichiers sélectionne tous tes fichiers (CTRL A) puis ajouter et terminer Enfin Fichier/Traiter Ceci te permet de faire un ZOOM ETENDU à tous les fichiers Ensuite trace par lots (avec la vue par défaut) Voilà, enfin si tu veux bien utiliser microstation.... LrDb

Bonjour SAAIDI, télécharge Bentley viewer ici gratuit pas de pb lis bien les instructions de téléchargement, un pack à charger suivant os. après installation tu peux imprimer 1 pdf pou 1 fichier. rassemble les pdf en un, les méthodes sont nombreuses voir google. cdlt lrdb

Re Re, viens de comprendre la précision du solveur: Options excel: Formule: Activer le calcul itératif Joues sur l'Ecart maximal et le nb de calcul. Ouf!! Lrdb