Bred

Salut, utilise l'espace papier, en faisant la mise en plan et les cotations uniquement dans cet espace, surtout pas en espace objet !

Salut, merci pour vos réponses. Je pensais bien que c'étais un truc du genre. Faut que je regardes si j'arrive à décrypter avec "zlib"... je vous tiens au courant.

Merci pour ta réponse, mais je pose ma question dans la section Lisp.

Salut, je cherche à modifier (ou créer) un fichier .ctb de style de tracé.... Et je ne trouve rien. Merci d'avance pour votre aide...

OK, merci pour ta réponse !

Salut (gile), Je ne me suis pas penché sur le C#. Trouves-tu ça sympa comme logique ? j'avoue que le vb-net ne m'amuse pas du tout (au contraire du lisp), donc c'est pour voir si je ne tendrais pas vers autre chose... merci. [Edité le 4/1/2009 par Bred]

Bonne année, Bonne santé, et Bonne à tout faire !

Bonjour, personnellement, en cette période de Noël, j'ai une mentalité de grand gourou sectaire, et beaucoup de ma famille et amis aussi... En effet, j'essaye de préserver les enfants m'entourant du secret "Père Noëlesque", en leurs mentant outrageusement sur ses faits et gestes, ces manies et les (im)possibles choses qu'ils réalisent... ... (malheureusement) je sais qu'un jour ou l'autre la magie disparaitra, que cela soit par ses propres découvertes, ce qu'on lui à raconter, ou simplement sa logique..... dommage c'est une belle histoire. Mais il faut bien grandir.... (heuresement !) Je crois que j'avais déjà exprimé cette idée dans ce forum, dans les nombreuses discussion où je me lâchais plus qu'il n'aurait fallu par mon humour trop lourd, mais j'ai toujours été étonné que TOUTS enfants au bout d'un certains temps réalisent l'impossibilité de certaines choses.... ....mais une majorité arrive à préserver leur croyance pour certaines choses et c'est quand même très beau, quoi qu'on en dise (n'est ce pas, messieurs les "athées"). Donc et parce que l'époque s'y prête, je félicite usegomme d'avoir garder ce petit morceau de magie en lui, c'est très beau. Par contre, et ce qui m'embête dans la religion (car c'est ce dont je parle), c'est que la croyance pour le conte du père noël ne dure qu'un temps et que je sache n'a pas été la raison de faits plus que répréhensible en prenant pour excuse sa religion. De plus, il ne faut pas faire croire aux gens des choses impossibles, cela est excusable je pense quand on parle à des enfants et que cela reste dans le domaine de la magie de conte de fée et que l'on sait que ça ne va pas durer, mais quand on commence à leur expliquer des choses comme l'origine de l'homme, la création de la nature, il faut apprendre à ne pas raconter n'importe quoi... En effet, je pense qu'il est impossible d'affirmer que la théorie de l'évolution par exemple est un fait avérer, mais c'est le plus logique et le plus démontrable jusqu'à maintenant. Il faut donc en parler, mais en gardant dans un petit coin de son esprit, et le dire, que cela reste une théorie, qu'il y a peut être une autre branche à explorer, d'autre hypothèses à ne pas écarter.... .... sauf bien sûr celle de la reli.... du conte de fée je veux dire.... je ne vais pas apprendre à mes enfants "sérieusement" que certains rennes volent !...

Salut, je ne sais pas quel est ton niveau en lisp, mais grâce à ces routines tu devrais pouvoir faire ce que tu veux.

Salut (gile) j'ai enfin eu un peu de temps pour jeter un coup d'eil plus approfondie sur ton exemple, et c'est vraiment génial ! ça m'ouvre une multitude de possibilité !!!! Encore merci ! J'ai corrigé quelques bugs de la traduction de ton code ci-dessous car il manquait - la méhode < LispFunction("Getfiles") > _ , (erreur de bbcode je pense) - certaines référence importés étais ambigus entre les référence Autodesk et Windows, - il ne m'acceptais pas en variable "file" (et ça je n'ai pas encore compris pourquoi, le message d'erreur étais "La variable 'file' masque une variable dans un bloc englobant." Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Runtime Imports System Imports System.Windows.Forms Namespace GetFileLisp Public Class Files < LispFunction("Getfiles") > _ 'enlever les espaces _ Public Shared Function GetFileDialog(ByVal buff As ResultBuffer) As ResultBuffer Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor Dim result As New ResultBuffer Try If (buff Is Nothing) Then ed.WriteMessage("Erreur: nombre d'arguments insuffisants" & ChrW(10)) Return Nothing End If Dim args As TypedValue() = buff.AsArray If (args.Length < 2) Then ed.WriteMessage("Erreur: nombre d'arguments insuffisants" & ChrW(10)) Return Nothing End If If (args.Length > 3) Then ed.WriteMessage("Erreur: nombre d'arguments trop important" & ChrW(10)) Return Nothing End If If (args(0).TypeCode <> CInt(LispDataType.Text)) Then ed.WriteMessage("Erreur: type d'argument incorrect: stringp {0}" & ChrW(10), New Object() {args(0).Value}) Return Nothing End If If (args(1).TypeCode <> CInt(LispDataType.Text)) Then ed.WriteMessage("Erreur: type d'argument incorrect: stringp {0}" & ChrW(10), New Object() {args(1).Value}) Return Nothing End If Dim mult As Boolean = ((args.Length = 3) AndAlso (args(2).TypeCode <> CInt(LispDataType.Nil))) Dim openDialog As New OpenFileDialog openDialog.InitialDirectory = CStr(args(0).Value) openDialog.Filter = CStr(args(1).Value) openDialog.FilterIndex = 1 openDialog.Multiselect = mult If (openDialog.ShowDialog = DialogResult.OK) Then If mult Then Dim files As String For Each files In openDialog.FileNames result.Add(New TypedValue(CInt(LispDataType.Text), files)) Next Return result End If Dim file As String = openDialog.FileName result.Add(New TypedValue(CInt(LispDataType.Text), file)) Return result End If Return Nothing Catch ex As Autodesk.AutoCAD.Runtime.Exception ed.WriteMessage((ex.Message & ChrW(10))) Return Nothing End Try End Function End Class End Namespace

Que je sache Textfill n'est valable que pour l'impression, non ?

Bonjour monlappin, peut-être est tu en style ombrage caché ?

(setq SEL (ssget (list '(0 . "INSERT") (cons 8 nombloc))))

Salut, j'ai du mal à comprendre ce que tu veux faire... Pourrais-tu énumérer les étapes que tu essayes de faire, car voilà ce que je comprends en lisant tes modifs, et je ne suis pas sûr : - Tu boucle sur ta sélection de cadre : - tu récupères les valeurs des 6 attributs du blocs "cadre" sortis - Si la valeur n'est pas égale à "", tu la récupères, mais toujours la dernières valeur renseigné (vu que tu fait un if et pas un cond, c'est le dernier "if qui gagne" ) - Tu nommes l'onglet avec ce nom récupéré (attention, si tout est vide tu n'as rien renseigné !) - Tu cadres, etc... - puis tu passes au bloc suivant.... - et en effet, si tu récupères un même nom, tu ne peux pas créée un nouvel onglet. Il faut donc tester la liste des noms des onglets, et si il existe déjà de l'indicer par exemple... ou autre Je te laisse regarder ce que tu veux faire, et si tu ne t'en sort pas fais le savoir ! (une piste : (layoutlist) ) ... et si je n'ai rien compris, désolé, explique moi encore !

Salut, en effet, cela est autorisé, mais uniquement si tu as la souscription. [Edité le 15/12/2008 par Bred]

Salut et bienvenue ! Bien sûr, en créant un Gabarit (.dwt) que tu paramétreras comme tu le désirs. Et si tu veux "copier" ta présentation dans un nouvel onglet, un cliq droit sur l'onglet, puis "A partir du Gabarit...."

Salut, Je n'ai pas les droits à mon poste actuel pour charger ton fichier. - As tu essayé l'extrusion suivant chemin ? ou - faire un balayage de tes rectangles, mais en les agrandissant au préalable, puis en faisant un solide des 2 "rives" afin de les soustraires ?

(setq reg (entsel)) (if (or (equal (cdr (assoc 0 (entget (car reg)))) "REGION") (equal (cdr (assoc 0 (entget (car reg)))) "3DSOLID")) (setq I (vlax-get (vlax-ename->vla-object (car reg)) 'MomentOfInertia)))

Je n'avais pas compris que tu avais un folio / dwg, donc 200 dwg... Avec SuperAutoScript offert par Eric ? - Tu modifies ton dwg de référence créée à partir de wbloc - tu crées un script pour insérer ce bloc et mettre à jour à chaque insertion.

Salut, d'expérience je suis quasiment sur que ton problème viens d'une config bi-écran... reagrde dans ta config, et cherche un peu dans ce forum... exemples : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=10811#pid41892

Salut, Pourquoi ne pas changer le bloc lui même ?

Ah oui, désolé, je me suis fait piégé tous seul en oubliant les choses en écrivant.... j'avais en fait commencé à écrire le code en passant par le (vlax-for lay (vla-get-layouts dbx)... et je suis revenu en arrière car je trouvais ça plus compliqué que le (layoutlist) car (vla-get-layouts dbx) te compte aussi l'espace objet, et qu'il faut donc le filtrer (je pense avoir compris dans ta demande que tu ne voulais pas l'espace objet.) Donc fait attention de le faire si tu ne t'en étais pas rendu compte ! Edit : Patrick_35 t'as filer une méthode qu'il m'avais déjà donné !!!!.... et je l'avais oublié car elle ne fontionais pas dans l'exemple.... désolé... [Edité le 8/12/2008 par Bred]

Salut, Tu récupères la présentation en vla et tu l'actives en bouclant : (repeat (setq i (length (layoutlist))) (setq pres (vla-item (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object))) (nth (setq i (1- i)) (layoutlist)))) (vla-put-ActiveLayout (vla-get-activedocument (vlax-get-acad-object)) pres) ... code ... ) j'oubliais : dans mon exemple, à la place de (vla-get-activedocument (vlax-get-acad-object))), tu mets le dessin ouvert en "dbx" !... [Edité le 8/12/2008 par Bred]

Merci !!!! :D :D :D

Merci (gile) ! je n'ai pas encore testé, mais ça à l'air d'être bien !