DenisHen

Public Sub FindFreeHeart (Cherche as Genre) ... Cherche = "Féminin" ... End Sub (defun c:FindFreeHeart ( / Genre) ... (setq Genre "Féminin") ... )

Merci Patrick_35 pour ces précisions... C'est une sorte de ATTDIA pour LiSP ? Denis...

Merci Olivier, je n'ai pas pensé à consulter la valeur de cette variable... Ca fonctionne nikel maintenant... la variable s'obtient avec MsgBox ThisDrawing.GetVariable("LAYERMANAGERSTATE") Merci encore, Denis... PS : "thisdrawing.sendcommand("(initdia)")" me répond "nil". Je ne sais pas quoi faire avec. ;)

Ok, j'avais compris, merci les gars... "_.layerclose" ferme la fenêtre "_.layer" ouvre la fenêtre... Mais comment savoir si elle est ouverte ou fermée. Tel est la question (que j'ai dû mal poser). ;) Et en VBA, ça se traduit comment s'il te plait ? Denis...

Bonjour Patrick_35, Merci pour cette commande. Je crois que je vais devoir faire avec... Dommage, j'aurai aimé réactiver cette fenêtre si elle l'était avant que je la désactive... Tanpis. Merci encore à tous, Denis...

Bonjour Olivier, Merci, mais c'est bien dommage çà, je voulais justement pouvoir agir dessus... Enfin je vais faire un tour dans "LAYER" et MANAGER"... On ne sait jamais... Merci encore, Denis...

Bonjour à tous, Voilà, j'ai posté un fichier Excel 2013 avec des macros qui gèrent une "charte graphique". Je créé, depuis Excel, des centaines de calques, mais lorsque la fenêtre de gestion des calques est active, çà prend un temps fou. Alors que, si elle est inactivée, les calques se créés à la vitesse de la lumière ! ! Comment désactivé cetet fenêtre et la réactivée après la macro... Je n'ai pas trouvé de "variable" dans Express Tools/System Variables et rien dans l'aide AutoCAD VBA... Merci pour l'aide, Denis...

J'ai ajouté l'option "Imprimable" qui est le choix entre un calque "Traçable" ou "Non traçable"... Denis...

Bonjour pbrion, Merci pour ta réponse... Je viens de le trouvé à l'instant avec Express Tools, liste des variables... Encore merci... Denis...

Bonjour à tous, Je sais comment inactiver les cadres des images liées dans AutoCAD. Mais comment inactiver ceux des PDF ? Denis...

Re, Je viens de voir qu'il il a un bug dans l'inclinaison des styles de texte, elle ne correspond pas à la valeur entrée dans le classeur Excel. Il me semble qu'elle passe de grades à degrés... Je vais essayé de ce corriger... Denis...

Bonjour à tous, Aujourd'hui, je suis content de partager mon travail... J'ai écris quelques petites macros en VBA dans un fichier Excel2013 (.xlsm). Dans ce classeur, j'ai : # une feuille "Calques" qui se divise en colonnes : - Calque : qui est le nom du calque, - Couleur : qui est sa couleur (de 0 à 255), - Couleur Hexadécimale : qui est la couleur du calque exprimée en hexadécimale, celà m'a été demandé par un client pour lui facilité la configuration des couleurs dans son SIG (cette colonne se remplie toute seule), - Type de ligne : qui est le type de ligne du calque, - Epaisseur : qui est l'épaisseur des lignes du calque, - Description : qui est la description du calque. # une feuille "StyleTexte" qui se divise en colonnes : - Style de texte: qui est le nom du style de texte, - Police : qui est la police utilisée pour ce style de texte (SHX ou TTF), Attention, pour les TTF, mettre l'extention dans la cellule, - Hauteur : qui est la hauteur par défaut, - Facteur : qui est le facteur de largeur du style, - Inclinaison : qui est l'angle de l'italique, - Inversé : qui est la valeur pour inversé le style, - Renversé : qui est la valeur pour renversé le style, - Verticale : qui est la valeur pour rendre le style verticale. Cette option n'est pas disponible pour les TTF. Les macros se trouvent dans le ruban "Charte". Voilà, il y a encore quelques petits bug mais dans l'ensemble, ça fonctionne parfaitement sur les différents postes du bureau... J'espère avoir aidé quelques personnes avec ce classeur qui est pour moi, un gain de temps incroyable, car je gère parfois 200 ou 250 calques que je dois créer "à la volée"... Et ces calques changes selon les différentes chartes de nos clients (communes, département, région, sociétés privées,...). NB : toutes remarques sur mon code est la bienvenue, bien sûr... Je ne suis qu'amateur... Denis...

Salut Patrick_35 Et encore merci, C'est nikel... Denis...

Salut Patrick_35, Merci pour l'aide, ça fonctionne nikel... Denis...

Bonjour à tous, Beaucoup est dit dant le sujet... J'ai : DocAutoCad.Layers.Add (Calque) DocAutoCad.Layers(Calque).Color = Coul TypLign="RES_ARR" FichierLIN = "B:\50-USERS\atelier_Acad\Modèle\Config_Vincennes.lin" If TypLign <> "Continuous" Then DocAutoCad.Linetypes.Load TypLign, FichierLIN DocAutoCad.Layers(Calque).LineType = TypeLign End If Le fichier existe et le type de ligne est bien dans ce fichier... Mais AutoCAD me répond que : "Nom de type de ligne incorrect"... Quelqu'un a une idée ? Denis...

Bonjour à tous, Je déterre ce vieux post juste pour une petite question. Comment faire pour charger la totalité d'un fichier LIN ? J'ai essayé çà, ThisDrawing.Linetypes.Load "*", "acad.lin" et çà ThisDrawing.Linetypes.Load "", "acad.lin"mais çà ne fonctionne pas... VBA me dit "Nom du type de ligne incorrect"... Quelqu'un aurait-il une idée ? Merci d'avance, Denis...

Salut au forum... Je réveil un vieu post, mais, c'est vrai qu'AXDBLib reste assez vague... Pour ma part, j'essai, depuis Excel 2013, de créer un nouveau dessin, de créer des types de texte (listés dans un feuille Excel) et de créer des calques (listés dans une autre feuille du même classeur)... Je ne suis pas sûr de l'utilité d'AXDBLib dans mon cas, mais Excel m'indique qu'il est "MANQUANT" dans la liste des références... A toutes fins utiles, je joint mon XLSM qui, à l'origine, créé un script pour pouvoir être lancé depuis AutoCAD. Pour faire une macro plus efficace, j'aimerai qu'elle fasse ce dont j'ai envie directement dans AutoCAD et non par l’intermédiaire d'un scripte, qui est plus "contraignant"... Si quelqu'un aurait un bout de réponse... Merci d'avance, Denis...

Bonjour, Personnellement, je reste entièrement d'accord avec vous, mais pour ma part, j'ai tellement "profité" des connaissances des CadXPiens, que dès que je fais un truc, une routine ou une macro, je la partage volontier... Mais celà reste très rare, tellement il y a de "Cadors" sur CadXP qui ont déjà traiter mes problèmes avant même qu'ils n'apparaissent... Merci encore pour les partages... Denis...

Salut, As-tu pensé à ExcelAttribut ? Il exporte les attributs des blocs sélectionnés vers Excel, mais je ne sais pas s'il les met à jour, faudrait faire des essais... Denis... PS : Au temps pour moi, je viens de faire le test, il ne met à jour les attributs dans la feuille Excel... Il créé un classeur à chaque "export"... Désolé.

Bonjour, As-tu tenté d'utilisé ExcelAttribute, C'est le top... Denis...

Bonjour, J'ai eu le même problème sur un de seul de mes PC, c'était entre deux mises à jour Windows... Deni...

Bonjour, C'est vrai que proposer un petit espace perso pour offrir un téléchargement aux clients, c'est toujours plus sympas... Je regarderais ça plus sérieusement que là... Week-end oblige... Et merci à grand_sapin pour cette bonne idée... Denis...

Bonjour à tous... Merci (gile) mais entre midi et deux, j'ai bidouillé un truc en VBA. Il liste tous les LiSp d'un répertoire et il cherche à l'intérieur de chacun d'entre eux les commandes LiSP (les "defun c:"). Je sais que ça ne fait pas exactement ce que j'espérais, mais je ne sais pas le faire... Voici le Code VBA pour ceux que ça peut intéressé : Sub ListeCommandeLsp() Dim Fichiers As String, Commande As String, StrFichier As String Dim LTableau As Integer, NbCommand As Integer Dim objShell As Object, objFolder As Object, oFolderItem As Object Dim Chemin As String, Tableau() As String Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&) Set FSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set oFolderItem = objFolder.Items.Item Chemin = oFolderItem.Path Fichiers = Dir(Chemin & "\*.lsp") Do While Len(Fichiers) > 0 LTableau = LTableau + 1 ReDim Preserve Tableau(1 To LTableau) Tableau(LTableau) = Fichiers Fichiers = Dir() Loop For i = 0 To UBound(Tableau) X = i For K = X + 1 To UBound(Tableau) If Tableau(K) <= Tableau(X) Then X = K Next K If i <> X Then ValTemp = Tableau(X): Tableau(X) = Tableau(i): Tableau(i) = ValTemp End If Next i StrFichier = Chemin & "\_ListeCommandeLiSP.txt" FSO.DeleteFile StrFichier, True Open StrFichier For Output As #2 For a = 1 To UBound(Tableau) Open Chemin & "\" & Tableau(a) For Input As #1 Print #2, Tableau(a) Do While Not EOF(1) Line Input #1, chaine$ chaine$ = Trim(chaine$) If InStr(UCase(chaine$), "(DEFUN C:") <> 0 And Left(chaine$, 1) <> ";" Then Commande = Right(chaine$, Len(chaine$) - 9): NbCommand = NbCommand + 1 If Left(Commande, 1) <> "-" And Left(Commande, 1) <> "+" Then Print #2, " " & Commande End If Loop Print #2, "--------" Close #1 Next Close MsgBox " Il y a " & NbCommand & " dans " & a & " fichiers LiSP..." Shell "NOTEPAD.EXE """ & StrFichier & """", vbNormalFocus End Sub Mais j'enregistre tout de même ton LiSP (gile), histoire de regarder comment ça fonctionne... Pour la petite histoire, mon prédécesseur avait 263 commandes dans 144 fichiers LiSP... J'ai bien fais de faire une macro, j'ai retrouvé mes petits... Enfin, plutôt les siens... Denis...

Salut, Merci de me répondre Steven, mais le LiSP de Patrick_35 donne la liste des LiSP chargés au démarage d'AutoCAD, il me faudrait aussi les commandes qui y sont incluses. Je songeais à un LiSP qui donnerais un truc dans ce style : Fichier LiSP : crnMapTrans.lip contient les commandes : CrnMap CrnTrans Fichier LiSP : crnControleSemafor773.lsp contient les commandes : CrnCtrlSemA Crn.... .... Mais je pense que je vais m'orienté vers un .XLSM. Denis...

Bonjour Patrick_35, Je pensais plus à des commandes "Defun", avec une liste claire des commandes "Defun" et une correspondance avec son fichier LiSP... Mais c'est une bonne idée. Merci à toi, Denis...