DenisHen

Merci quand-même... ;)

Salut nen. Pour la première erreur, je ne vois pas de solution, je n'ai qu'ajouter une fenêtre (.dcl) à la commande SomPoly (originaire de (gile)). Quant à la possibilité de sélectionner uniquement des segments de polylignes, je n'ai pas prévu de le faire, pour l'instant.

Salut. Un grand merci à toi, Ô Décapode... ;)

Content d'avoir rendu service... ;)

Ok, merci Patrick_35 pour ces informations...

Je comprends mieux, je travaillais avec des .xls et non .xlsx, comme le programme de (gile) : ExcelAttribute_19. Personnellement, ça ne me dérange pas d'utiliser un .xls. Par contre, je ne connais pas les réaction de ces programmes avec un .xlsm...

Salut big666, mais j'ai Excel 2013 et je n'ai pas le souvenir d'avoir de soucis avec LXL...

Merci Patrick_35 de ton aide... J'avais déjà trouvé tes liens, sauf le principal, celui de "developpez.net". C'est résolu maintenant... Encore merci... ;)

Je ne maîtrise pas vraiment VBA non plu. Mais j'ai fais ça : Set AutoCAD = GetObject(, "AutoCAD.Application")

Salut Philippe. Aucun problème, le voici...

Salut Patrick_35, et merci de m'aider. J'ai essayé "\\" et "/", aucun ne fonctionne avec le "SendCommand". J'ai tenté aussi "InsertBlock", mais j'ai une erreur 438 d'Excel : "Propriété ou méthode non gérée par cette objet" : Dim insertPnt(0 To 2) As Double insertPnt(0) = 0: insertPnt(1) = 0: insertPnt(2) = 0 Dim blockRefObj As AcadBlockReference Set blockRefObj = AutoCAD.ActiveDocument.InsertBlock(insertPnt, "C:/DH_Cadastre/CC/08/08001_CC50.dwg") J'ai peut-être oublié de préciser que mon VBA est dans un fichier Excel...

Bonjour à tous. Voilà, j'ai, en VBA bien sur, une ligne qui insert un DWG avec son nom complet (chemin + nom). Mais AutoCAD me répond qu'il ne trouve pas le fichier ou "Nom de bloc incorrect.", voir "*Incorrect*" selon le nom de fichier. Voici la commande qui me pose problème : AutoCAD.ActiveDocument.SendCommand ("-inserer" & vbCr & "C:\DH_Cadastre\CC\08\08001_CC50.dwg" & vbCr & "0,0,0" & vbCr & vbCr & vbCr & vbCr) Sachant que j'ai déjà essayé : "C://DH_Cadastre//CC//08//08001_CC50.dwg". Si quelqu'un a une réponse, une solution, une astuce... Je suis preneur...

Salut Philippe. Comme je passais par là, voici les fichiers. Tiens moi au courant... Denis...

Salut Philippe. Malheureusement (ou heureusement), je suis encore en congé cette semaine. Je ne sais pas si ce fichier est à toi : "Essai caulnes ORTHO.dwg". Si c'est bien celui-là, je peux te le renvoyer par la même méthode, WeTransfer. Denis...

Salut. +1 avec Olivier, plus il y a de détails, mieux on comprends... ;)

Salut Christian. Tout simplement parce que je ne connaissais pas cette commande... :huh:

Salut patrick_35. Mille mercis ! ! ! Ça fonctionne à merveille ! ! ! ;)

Je viens de découvrir un problème. Lorsque je fais un "copier", puis un "coller vers coordonnées d'origine" "à la main", rien ne se copie... :blink: nul part... :blink:

Bonjour à tous. Voilà, je cherche à copier une sélection dans un autre calque. J'ai écris ceci, mais rien ne se copie : ;;; ****************************************** ;;; Copie une polyligne dans un autre calque ;;; ****************************************** (defun c:CopieCalq (Calq / i etx ss) (if (not (tblsearch "layer" Calq)) (command "-calque" "e" Calq "") ) ;_ Fin de if (setq ss (ssget)) (command "_copyclip" ss "") (command "_pasteorig") (if ss (progn (setq i 0) (while (< i (sslength ss)) (setq etx (entget (ssname ss i))) (setq etx (subst (cons 8 Calq) (assoc 8 etx) etx)) (entmod etx) (setq i (+ i 1)) ) ;_ Fin:while ) ;_ Fin:progn ) ;_ Fin:if ) ;_ Fin de defun Que j'appelle comme ceci : Si quelqu'un a une astuce, un conseil... je suis preneur...

Salut lecrabe. Il doit être vide ton grenier maintenant... ;)

Salut, content d'avoir été utile... ;) Je pense que les champs sont écrasés si tu relance mon lisp... L'avantage de placer les valeurs dans les propriétés du dessin est que si tu as 20 présentations (ou plus comme ça m'arrive souvent), tu n'as pas besoin de retaper les champs identiques à tous les cartouches. Tu lances mon code et Hop, c'est rempli...

Salut. J'ai essayé les deux valeurs de "TEMPOVERRIDES", sans succès... J'ai mis à jour le drivers NVIDIA, je suis maintenant en 70.6.41.0.6... Rien n'y fait...

Salut à toi, Ô Décapode archiviste... Mille mercis pour ce code, j'étais parti pour le faire, mais il aurait été beaucoup plus long... ;) Ça fonctionne nickel sur mon MAP 2014... J'essairai lundi sur mon MAP 2018... Encore merci...

Absolument pas. Mais je commence à voir où tu veux en venir... Est-ce récupérer les quatre sommets de la face 3D pour en faire une polyligne fermée ? Je vais regarder ça... Merci, je n'y avais pas pensé... ;) merci lrdb, je vais communiquer ces informations à mes collègues...

Bonjour à tous. Voilà, mes collègues me font des levés topographiques avec GéoVisual, qui tourne sous MicroStation... Je les importe dans AutoCAD et transforme toutes les données (calques, textes...) comme je le désire. Sauf que je viens de m'apercevoir que ce logiciel, aussi curieux que cela puisse paraître, me créé des faces 3D pour faire des carrés en 2D ! ! ! je cherche donc une routine, si quelqu'un en a une, qui me ferait cette transformation, car je ne vois pas comment m'y prendre... Denis...