sechanbask

Non ne soyez pas nostalgiques, dans mon BE, on a dû échanger de PC entre 2 collègues car malgré le fait qu'il tourne sur XP pro, il faisait des écrans bleus comme dans le temps : presque tous les jours... Bon maintenant, c'est un électricien qui l'a alors pas de risque qu'il le bouscule, les plans électriques sont pas trop surchargés... désolé pour les éléctriciens qui seront choqués par ces propos....

Bonjour, Quand j'ai des plans non orthogonales, je crée un SCU courant avec 3 points puis je mets la vue selon ce SCU. Je peux par la suite créer des présentations selon le (ou les) SCU crée(s) soit selon le SCU général. C'est ça que tu souhaites faire?

bonjour, Je n'ai pas tout compris, tu utilises déjà les vues par SCU?

je serai là pour te filer un coup de main si tu en as besoin et si je suis capable de te répondre... bonne fin de journée

oui je parle de trémie pour montrer où je passe mes réseaux alimentation plomberie, évacutaion, eau chaude, et eau glacée: je travaille dans un BE fluides. Je vais me pencher ce midi sur TranslateCoordinates. Merci et bonne journée

Merci bien grâce à windfield, je fais du relatif et grâce à nazemrap je lance la cotation rapide et me donne une autre façon de faire des rectangle !! Seul bémol le problème du SCU mais bon pour l'instant j'ai des plans d'hopitaux bien rectangle alors...(tiens je viens de voir le sujet : Textes horizontaux pour tout SCU... je vais me pencher dessus) Bon il me reste plus qu'à chercher comment faire trangle dans les rectangles pour les traversées de planchers... là ça semble plus compliqué car je ne peux pas faire de décalage et encore moins des diagonales.. enfin bon, je verrai, la nuit aide bien les choses... ENCORE merci je vais gagner pas mal de temps car faire des truc longs et répétitif, c'est pas le plus passionnant. windfield, je pense qu'avec: ObjHach.Evaluate ObjHach.Update tu gagnerais rien mais tu perdrais moins de temps si tu avais 15 plans d'ouverts... C'est du conditionnel... Merci et bonne fin de soirée.[Edité le 18/12/2006 par sechanbask] [Edité le 18/12/2006 par sechanbask]

bonjour, je cherche à créer un rectangle avec les diagonnales dessinées en pointant 2 points. J'y suis arrivé mais je ne trouve pas comme faire pour que les coordonnées relatives soient fonctionnelles dans le cas où je veux faire ce rectangle en entrant pour le second point : @X,Y voilà mon code qui sait faire le rectangle et les diagonales utilisant 2 points pointés : Option Explicit Dim PTA As Variant Dim PTB As Variant Dim pt1(1) As Double Dim pt2(1) As Double Dim pt3(1) As Double Dim pt4(1) As Double Dim Obj_Decal As AcadLWPolyline Dim points(0 To 15) As Double Dim Decal_Obj As Variant Sub rec() PTA = ThisDrawing.Utility.GetPoint(, "Indiquer le premier coin :") PTB = ThisDrawing.Utility.GetPoint(, "Indiquer le seconde coin") pt1(0) = PTA(0): pt1(1) = PTA(1) pt2(0) = PTB(0): pt2(1) = PTB(1) pt3(0) = pt2(0): pt3(1) = pt1(1) pt4(0) = pt1(0): pt4(1) = pt2(1) points(0) = pt1(0): points(1) = pt1(1) points(2) = pt3(0): points(3) = pt3(1) points(4) = pt2(0): points(5) = pt2(1) points(6) = pt4(0): points(7) = pt4(1) points(8) = pt1(0): points(9) = pt1(1) points(10) = pt2(0): points(11) = pt2(1) points(12) = pt3(0): points(13) = pt3(1) points(14) = pt4(0): points(15) = pt4(1) Set Obj_Decal = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) With Obj_Decal .Closed = True .Update End With End Sub s'il y a moyen d'alléger le code, je suis preneur... Ainsi que pour lancer la commande cotation rapide (pour coter un des coté du rectangle puisque que c'est pour faire de réservations de traversée de voile béton). MERCI par anticipation [Edité le 18/12/2006 par sechanbask]

Salut, j'ai survolé tout code et plusierus chose peut être améliorées: Lorsque tu declares comme ça: Dim s1 as double Dim s2 As double tu peux opérer une simplifiaction en déclarant s(i) en tant que tableau car on va boucler la somme dim s(i) as double pour les initialiser tes surfaces, tu peux faire : s(i) = 0 et ça suffit car la somme sera boucler dans la partie suivante: ensuite pour remplacer toutes les parties de ton programme, tu peux faire une boucle: for i = 0 to 11 ' Pour piquer l'objet Surface (i) ThisDrawing.Utility.GetEntity returns(i), basePnt(i), "Sélectionnez la pièce (i) SVP" Calqueobjet = returns(i).Layer If Calqueobjet = "SHAB" Then GoTo Objet(i) Else MsgBox "Ce n'est pas une Surface SHAB !", vbInformation, "ATTENTION" GoTo SCAPE Objet(i) : If returns(i).color = acGreen Then returns (i).color = acYellow Else: returns(i).color = acGreen End If s(i) = returns(i).Area+ s next i Après pour afficher la somme tu peux afficher s(i) ça permet d'alléger le code et de rendre l'application plus fluide et ton travail aussi car en épargnant le temps CPU de ton PC en mettant 12 pièces en 1, tu peux agrandir et mettre 40 par exemple pièces juste en mettant dim returns(39) as AcadObject j'ai parcouru le code assez rapidement si tu as des problème sur ton code avec les modifications, je pourrais t'aider.. tu peux aussi aller voir : http:// http://www.vbfrance.com/tutoriaux/OPTIMISER-PROGRAMME-VISUAL-BASIC_519.aspx c'est plutôt bien fait. [Edité le 16/12/2006 par sechanbask] [Edité le 16/12/2006 par sechanbask]

Merci Bred pour le coup de main mais Didier m'a répondu pour le faire en VBA... voilà le lien http://www.cadxp.com/sujetXForum-13094.htm Désolé j'ai pas réussi à te faire comprendre ce que je cherchais... je suis un piètre expéditeur :mad:

Oula la !! Je pense Didier que tu ne te rends pas compte de la porté de ta réponse. Tu me sors d'un sacré pétrin... grâce à toi j'ai fini mon projet.. enfin, il ne me reste plus que le dimensionnement de gaine rectangulaire, à faire en sort que la touche "entrer" fasse une procédure, et que mon projet fasse le café et le thé pendant que je suis au WC. Merci pour ton aide plus que précieuse car c'est au moins la seconde fois que tu me files un coup de paloche Merci et encore merci. Tu mérites ta ceinture noire et tes dan(s). [Edité le 15/12/2006 par sechanbask]

en fait c'est pour écrire le texte sur l'axe des gaine avant de les passer en bi et tri filaire... ça fait le dimensionnement de manière plus rapide.

La gaine est une gaine bifilaire si elle est rectangulaire et trifilaire si circulaire. Le plus simple pour moi ça serait de faire un trait pour désigner le point du départ du texte et la direction du texte...

non j'aimerai que ça soit automatique en fait je rentre le débit dans mon programme et il inscrit le débit avec la taille de la gaine mais comme les gaines ne sont pas toutes horizontales...

Bonsoir, j'aimerai faire pivoter un Mtext que je viens juste de créer ou alors lui indiquer la direction (pas très facile car avant, je lui fait quelques modifications du point de base. 'point d'insertion pins = ThisDrawing.Utility.GetPoint(, vbCrLf & "Veuillez choisir un point pour insérer le texte...") 'Création du text multiligne taille = CSng(TextBox4.text) decalage = (2 / 3 * taille) * 0.5 + taille 'Centrer en Y le texte pins(1) = pins(1) + decalage Set MTextObj = ThisDrawing.ModelSpace.AddMText(pins, width, texte) MTextObj.Height = taille MTextObj.Update Bien sur, je serais pencher de préférence sur une méthode VBA mais si on me dit comment faire pour réaliser mon souhait, je suis pas contre le lancement de Lisp dans mon code. D'ailleurs vu mon envie de me mettre sérieusement à la programmation quelqu'elle soit... je suis près à presque tout. C'est tellement agréable de créer !!

Bonsoir, j'aimerai faire pivoter un Mtext que je viens juste de créer ou alors lui indiquer la direction (pas très facile car avant, je lui fait quelques modifications du point de base. 'point d'insertion pins = ThisDrawing.Utility.GetPoint(, vbCrLf & "Veuillez choisir un point pour insérer le texte...") 'Création du text multiligne taille = CSng(TextBox4.text) decalage = (2 / 3 * taille) * 0.5 + taille 'Centrer en Y le texte pins(1) = pins(1) + decalage Set MTextObj = ThisDrawing.ModelSpace.AddMText(pins, width, texte) MTextObj.Height = taille MTextObj.Update Bien sur, je serais pencher de préférence sur une méthode VBA mais si on me dit comment faire pour réaliser mon souhait, je suis pas contre le lancement de Lisp dans mon code. D'ailleurs vu mon envie de me mettre sérieusement à la programmation quelqu'elle soit... je suis près à presque tout. C'est tellement agréable de créer !! [Edité le 14/12/2006 par sechanbask]

J'ai crée un outil dans lequel j'ai fait une procédure pour changer de claque courant. Seulement, le claque change dans le controle uniquement lorsque je ferme l'application... Et bien sûr ça ne me plait guère je souhaiterais avec un visuel sur ce changement pour être sur que le changmeent a eu lieu sans pour autant fermer l'application : En fait j'aimerai faire une regen du controle des calques... j'ai trouvé à forcer de brasser l'aide autocad et VBA dans tous les sens : 'change de calque selon choix dans listbox1 ThisDrawing.ActiveLayer = ThisDrawing.Layers(UserForm4.ListBox1.text) 'update autocad pour voir la modification du calque AcadApplication.Update Alors si ça peut aider quelqu'un

Merci à vous 2. Je vais pas predre trop de temps grâce à vous...

Bonjour, je cherche une lisp pour selectionner des wipeout (nettoyer en fr) pour les supprimer automatiquement... un peu comme eraseblocks de serge... Merci par anticipation

Bonjour, je cherche la même chose pour effacer des wipeout (nettoyer en fr).. mais comme je ne cnnais pas grand chose en lisp je ne vois pas quoi changer dans ton LISP... Merci d'avance

Ben je suis débutant en lisp, moyen en VBA et profane en C++. et là maque de bol je vais devoir programmer en C++. En fait je veux faire un fenêtre qui ne bloque pas l'utilisation d'autocad pour prendre des metrés de gaine de ventilation avec des bouton permettant de choisir la variable qui va contenir la longueur pour un diamètre choisi (je suis pas sur d'être clair...)...

merci mais mince (pour pas dire autre chose) car je ne connais pas le C++

Bonjour Je souhaiterais réaliser un objet type "calculatrice (CTRL+8)" sous autocad 2006 avec les mêmes propriétés à savoir la transparence, l'utilisation sans passer par une macro qui exclue les retours vers le dessin...etc et bien sur veuillez m'indiquer le langage que je vais devoir utiliser... merci par avance...

Bonjour, j'ai un problème que je lance le commandbutton1, VBA me dit que Mid est un projet ou une bibliothèque introuvable pourtant dans l'aide je trouve tout sur mid... Merci par anticipation Dim MTextObj As AcadMText Dim corner(0 To 2) As Double Dim width As Double Dim text As String Dim entree As Double Dim diametre As Double Dim vitesse As Double Dim Pins As Variant Dim resultat As String Dim texte As String Dim mot As String Dim longueur As Single Dim premier_caractere As String Dim le_reste As String Dim taille As Single Dim decalage As Single Private Sub CommandButton2_Click() End End Sub Private Sub CommandButton1_Click() On Error GoTo gestionerreur mot = TextBox1.text longueur = Len(mot) premier_caractere = Mid(mot, 1, 1)

Bonjour, Les propriétés du Mtext m'ont donné la solution j'ai donc pris, pour plusieurs taille de texte, l'interlignage et j'ai tabulé ça sous EXCEL: Soit y l'interlignage, et x la taille du Mtext: Y=(5/3)*x et soit Z la distance séparant le bas de la première ligne et le haut de la seconde Z=(2/3)*x si ça peut servir à quelqu'un. Sait-on jamais...

bonsoir, Si ça interesse quelqu'un, j'ai trouvé comment initialiser un textbox avec le curseur prêt à écrire: Private Sub UserForm_Activate() TextBox1.SetFocus End Sub