sechanbask

désolé de gacher tout ça, mais lorsque je lance autocad le dessin ne se ferme pas et j'ai l'erreur suivante. commande introuvable : closelinecommande vu que ça marche pour certain, j'aimerais vivement en profiter

désolé de gacher tout ça, mais lorsque je lance autocad le dessin ne se ferme pas et j'ai l'erreur suivante. commande introuvable : closelinecommande vu que ça marche pour certain, j'aimerais vivement en profiter

Je pense que ce que tu dis n'est pas complètement faux mais il faut également voir dans la démarche de formula1, l'envie de comprendre comment marche les solutions qui lui sont proposées. Et comme, le VBA lui semble plus simple... Un projet quasiment voire totalement abouti ne l'aidera pas à apprendre puisque il lui sera jamais nécessaire de mettre les mains sous le capot... Ceux qui savent réparer un moteur sont soit garagiste soit propriétaire d'une voiture bonne pour la casse... Je dis ça mais, je peux me tromper... De plus ton outil semble si complet qu'il ne lui semble pas adapter à ses besoins...

moi j'aimerais qu'il n'ouvre rien ni boite de dialogue, ni plan, j'aimerais que l'application s'ouvre pendant que je dis bonjour à mes collègues et qu'il attende que je lui dise quels plans ouvrir... car j'ouvre 5 plans le matin j'en ouvre d'autre au cours de la journée mais je garde les 5 premiers et les refermes à la fin de la journée... Et comme il portent des noms à la con et que je veux qu'ils s'organisent étage par étage, je dois les ouvrir à la main sinon dans le menu "fenêtre" ils sont tous mal rangés et donc après c'est loin d'être pratique... Mais je crois que mes désir ne sont pas réalisables

j'ai regardé mon dvb et j'ai aucune dépendance, aucune déclaration extérieur ou générale, alors je le posterais quand j'aurais un peu plus de temps... désolé

Oran tu reçoit tes mails avec thunderbird ? ou ton expéditeur l'utilise car j'ai eu un problème avec la version 2. Quand j'envoyais tous mes courriers arrivés en . ATT ou .DAT....

est-il possible de sélectionner plusieurs texte en même temps ? est-il possible d'utiliser le jeux de sélection actif avant la commande pour mettre en boîte les texte précédemment sélectionnés ? j'ai noté que ça ne marche pas pour : - les Mtextes justifiés par le haut gauche avec une rotation de 91 à 269° inclus, pour les Textes tout va pour le mieux. - les attributs non contenu dans un bloc ne sont pas pris en compte (je sais c'est pas bien d'utiliser ces attributs là, mais j'en trouve souvent sur les plans archi...) Merci déjà pour ce travail, qui va me faire gagner du temps :-)

je t'avouerais que j'ai plein de projet sur ce .DVB qui sont pas encore solides alors je le posterais après avoir scindés mes modules... je devrais le faire ce soir et quand le programme marchera, je demanderai à Patrick de le mettre dans téléchargement... @+

essaie de de faire ça sur un plan en MM, CM ou M, et si ça marche toujours pas donne moi la ligne où se situe l'erreur STP... moi aussi je sèche un peu... le .dvb est bien dans un dossier lié à autocad?car parfois on peux utiliser une macro qui plante quasiment à chaque coup car le projet n'est pas dans un dossier support... c'est d'ailleurs bizarre qu'on puisse la lancer...

Personnellement j'ai modifié les paramètres de cet affichage pour qu'il n'apparaisse que lorsque j'ai une commande en cours, et comme ça, je ne jette plus d'œil sur la ligne de commande : "trop basse à mon goût ! mdr"

tu l'a pas la peine d'insérer le bloc, ma macro le fait tout seul... si le fichier "Sect_rect_bloc.dwg" est dans un répertoire lié à autocad... si malgré un suivit à la lettre des instructions de lili2006 (voir message 11) tu as un problème remplace dans le code "on error goto gestion" par "on error goto 0", comme ça tu pourras me dire sur quel ligne le programme s'arrête. P.S. tu possèdes quelle version d'autocad ?? P.P.S. quelles sont les unités de ton nouveau plan? [Edité le 6/11/2007 par sechanbask]

il existe de très bon logiciel PDF to DWG alors personne n'est à l'abri de rien. Mais le fichier conservera donnée liées aux diverse transformation donc les gens malveillants seront bloqués..

en DWF peut-être, c'est con que la charte graphique ne prenne pas en compte les PDF...

à mon avis ça va être difficile...

tu essaies la macro dans un fichier vierge où dans le fichier que j'ai envoyé ?

lili2006 tu es devenu un vrai pro pour le chargement VBA... chapeau

désolé mais je ne comprends rien à ton message, tu peux être plus clair en soignant le français ??

de rien P.S. Oublie pas de mettre ce sujet comme résolu en cliquant sur l'ampoule juste en dessous de ton premier message (lorsque tu es loggé)

essaie le simplissime CTL+C sous EXCEL et CTL-v sous autocad moi j'arrive à insérer 80 lignes.. sans rien changer tu n'a pas limité le taille de ton dessin avec les limites du dessin?

je sais pourquoi je ne peux pas explosé mon bloc après l'insertion. Cela vient de la l'échelle que je lui applique à l'insertion... mais je ne comprends pas pourquoi.. Alors du coup, je vais contourner le problème et lui faire un pied de nez pour pas dire que je vais lui faire un bras d'honneur... [Algorithme] - Insertion du bloc sans échelle - décomposition du bloc - suppression du bloc-fichier - échelle sur le bloc Il me reste la gestion des SCU non-nommé que mon programme prends encore pour le SCG. Sub Impact_rectangulaire() Dim sngLargeur As Single Dim sngHauteur As Single Dim dblPoints(0 To 7) As Double Dim objBloc As AcadBlockReference Dim objRectangle As AcadLWPolyline Dim objTriangle As AcadLWPolyline Dim strUnitvar As String Dim strUCS As String Dim sngCoef As Single Dim booSCU As Boolean Dim dbllargech As Double Dim dblhautech As Double Dim dblteta As Double On Error GoTo gestion strUnitvar = ThisDrawing.GetVariable("INSUNITS") sngCoef = 1 Select Case strUnitvar Case 4 '(millimètre) sngCoef = 1 Case 5 '(centimètre) sngCoef = 0.1 Case 6 '(mètre) sngCoef = 0.001 End Select sngLargeur = ThisDrawing.Utility.GetReal("Veuillez entrer la largeur de la gaine en mm : ") sngHauteur = ThisDrawing.Utility.GetReal("Veuillez entrer la hauteur de la gaine en mm : (Largeur entrée : " & sngLargeur & " mm)") sngLargeur = sngLargeur * sngCoef dbllargech = sngLargeur / 10 sngHauteur = sngHauteur * sngCoef dblhautech = sngHauteur / 10 booSCU = False Dim varPointinsertion As Variant varPointinsertion = ThisDrawing.Utility.GetPoint(, "Indiquer le centre de l'impact: ") Dim strSCU As String On Error Resume Next 'strUCS = ThisDrawing.GetVariable("UCSXDIR") 'strUCS = ThisDrawing.GetVariable("UCSVP") 'ThisDrawing.GetVariable ("UCSNAME") 'MsgBox strUCS strSCU = ThisDrawing.ActiveUCS.Name Debug.Print Err.Number, "ok" Select Case Err.Number Case "-2145386481" booSCU = False Debug.Print "SCG" Case "0" varPointinsertion = ThisDrawing.Utility.TranslateCoordinates(varPointinsertion, acWorld, acUCS, False) booSCU = True Case Else Debug.Print Err.Number, Err.Description, "ie" ThisDrawing.Utility.Prompt "Une erreur inconnue est survenue, veuillez contacter le développeur." Exit Sub End Select On Error GoTo 0 dblteta = 0 Set objBloc = ThisDrawing.ModelSpace.InsertBlock(varPointinsertion, "Sect_rec_bloc.dwg", 1#, 1#, 1#, dblteta) Dim explodedObjects As Variant explodedObjects = objBloc.Explode objBloc.Delete Dim I As Integer For I = 0 To UBound(explodedObjects) explodedObjects(I).XScaleFactor = dbllargech explodedObjects(I).YScaleFactor = dblhautech explodedObjects(I).ZScaleFactor = 1 explodedObjects(I).Update 'Dim objBlock As AcadBlock If explodedObjects(I).ObjectName = "AcDbBlockReference" Then Debug.Print explodedObjects(I).ObjectName Set objBloc = explodedObjects(I) End If Next dblPoints(0) = varPointinsertion(0) - sngLargeur / 2: dblPoints(1) = varPointinsertion(1) + sngHauteur / 2 dblPoints(2) = varPointinsertion(0) + sngLargeur / 2: dblPoints(3) = varPointinsertion(1) + sngHauteur / 2 dblPoints(4) = varPointinsertion(0) + sngLargeur / 2: dblPoints(5) = varPointinsertion(1) - sngHauteur / 2 dblPoints(6) = varPointinsertion(0) - sngLargeur / 2: dblPoints(7) = varPointinsertion(1) - sngHauteur / 2 Set objRectangle = ThisDrawing.ModelSpace.AddLightWeightPolyline(dblPoints) With objRectangle .Closed = True End With If booSCU = True Then Dim TransMatrix As Variant TransMatrix = ThisDrawing.ActiveUCS.GetUCSMatrix objBloc.TransformBy (TransMatrix) objRectangle.TransformBy (TransMatrix) End If Dim varOffset As Variant Dim sngTailleducadre As Single sngTailleducadre = 30 * sngCoef varOffset = objRectangle.Offset(-sngTailleducadre) objRectangle.Delete Exit Sub gestion: Select Case Err.Number Case "-2147352567" ThisDrawing.Utility.Prompt " Annulée par l'utilisateur." Case Else Debug.Print Err.Number, Err.Description ThisDrawing.Utility.Prompt "Une erreur inconnue est survenue, veuillez contacter le développeur." End Select End Sub [Edité le 5/11/2007 par sechanbask] [Edité le 5/11/2007 par sechanbask]

je trouve qu'en ce moment j'ai bien plus souvent mes galoches ici que devant n'importe quoi d'autre.... Alors c'est un peu normal si j'ai eu de l'avance... Promis j'utilise même pas les flux RSS, j'ai du mal à les utiliser, je dois être neuneu [Edité le 5/11/2007 par sechanbask]

est-ce que tu veux que l'utilisateur ne puisse insérer le cartouche que s'il a rempli toute les coordonnées ? tous les attributs sont obligatoirement remplis ?

alors là je ne comprend splus pourquoi tu as besoin du vba... l'utilisateur n'a qu'à éditer les attributs...ça existe sous 2004?

Bienvenue !! Première manipulation avant l'une des 2 autres : Place ton image dans un claque à part exemple "image_de_fond" 2 méthodes La simple : ouvre le gestionnaire des claques et en face de ton calque image_de_fond, tu trouveras la colonne TRACER, si tu clique sur l'imprimante, elle devient rayée et donc ton calque ne sera jamais imprimer. La méthode moins évasive : sur ta présentation, mets-toi dans l'espace objet de la fenêtre dans laquelle le claque ne dois pas apparaitre puis ouvre le gestionnaire des claques et en face de ton calque image_de_fond tout à fait à droite tu devrais trouver une colonne Gel. fen courante... ici tu cliques pour que ce calque ne soit pas imprimable dans cette présentation : valable uniquement pour cette fenêtre... P.S. tu a bien fait de venir là, car on essaie vraiment au max d'aider les gens...Même le dimanche...

voilà comment je vois les choses : on envoie une fenêtre à l'utilisateur, cette fenêtre contient 18 champs vides l'utilisateur les remplit, et clique sur ok on va cherche le bloc CART et on l'insère à l'endroit où l'utilisateur le souhaite. est-ce que l'algorithme te convient? si l'indice du plan change, il faut insérer un autre bloc ou juste le mettre à jour?