DenisHen

Superbe démonstration... Réellement... J'ai adoré... Mais juste une petite question, on envisage de développer des scannérisations 3D de façade d’œuvre... Avez-vous une solution pour cette problématique, l'exploitation de données "LIDAR" pour les relevés de façade... En autre, la projection de ces points sur un plan vertical à définir...?

Salut. Juste une question bête, les attributs se gèrent comme les propriétés ? Car sans exemple, je ne peux pas en faire plus... ;)

Salut. Pour ma part, je reste très attaché à AutoCAD, peut-être parce que je ne le paye pas. J'ai développé des centaines de lisp, et dans ce cas, la seule chose qui me "bloque" c'est : seront-ils toujours valables ? ? Et nous avons plusieurs licences de Land2Map. Est-ce réellement "compatible" ? Mais j'assume, je travaille depuis 1992 sur AutoCAD, en changer serait pour moi un "gros" effort... Mais vu que je ne fais "que" de la topo avec quelques polylignes en 3D... Je ne sais pas... J’hésite... C'est comme dire à un fan de PEUGEOT de soudain prendre une CITROÊN... Ou autre... C'est, et j'en suis sûr, un gros changement... Je ne me suis pas encore lancé dans les testes... Mais j'envisage, prochainement, de le faire... Surtout pour le SIG et l'export SHaPefile... Le SAV de ZWCAD est-il aussi compétent que celui de Géomédia (oublions celui d'AutoDesk) ? Je n'utilise Covadis que pour quelques fonctions (à peine 1% du tout) que j'ai fini par remplacer par des Lisp que j'ai fais ou trouvé. Donc, ZWCad est-il réellement un "équivalent" à AutoCAD... Voir BrisCAD...? Qui propose d'énormes choses lui aussi... Avec le même genre de licence... Mais je reste ouvert... Qu'en pensez-vous ?

Alors là, c'est une autre paire de manche... Tu veux créer un SHaPfile depuis un lisp ? Je te le dis, c'est pas gagné d'avance... Perso, pour ce genre d'opération, j'utilise "_MAPEXPORT", et c'est sous QGis que je fais le tri... Mais je reste curieux d'avoir un lisp qui ferait des SHP... Je reste à l'écoute, tiens nous au courant...

Je l'ai trouvé dans l'aide AutoCAD, mais avec ou sans, c'est pareil. Ben en fait, je le croyais... Mais non, c'est donc bien ça... Comment dire... Mille mercis... ;)

Salut Patrick_35. Merci pour cette réponse, j'ai écris mon code en m'inspirant justement de ce code là...

Bonjour à tous. Voilà mon problème, depuis Excel (2013) je créé un dessin dans AutoCAD (2018) et je tente de le sauvegarder avec un .SaveAs, mais Excel me sort une erreur "-2145320861". Je n'ai rien trouvé sur cette erreur. Voici le code test : Sub Test() Dim AutoCAD As AcadApplication Set AutoCAD = GetObject(, "AutoCAD.Application") AutoCAD.Documents.Add AutoCAD.Visible = True AutoCAD.ActiveDocument.SaveAs "C:\toto.dwg", acNative AutoCAD.ActiveDocument.Close Set AutoCAD = Nothing End Sub Si quelqu'un a une solution, une astuce, un conseil... je suis preneur...

Ok, j'ai décroché... Désolé... Ce n'est pas de mon piètre niveau..

Bon, je commence à entamer ma dernière ligne droite pour le "module" de lotissement... Attention, je ne veux et je ne peux en aucun cas, me soustraire à Covadis ou autres logiciels tout aussi complexe. Je n'ai pas cette prétention... Quand je parle de "lotissement", c'est uniquement du point de vu d'un GE, le foncier... Je suis sur le mode d'emploi... Qui est très fastidieux... Jamais je n'aurais pensé que c'est aussi difficile d'en faire un... Je pense opter pour un petit .mnu ajoutable facilement à la barre de menu et, en parallèle une palette d'outils... Très facilement gérable sans trop de compromis... Reste à faire les icônes... GRRR ! ! ! Ça c'est galère... Je vous tiendrais au courant de mes évolutions... Pour l'instant, je bute sur un MAOUSSE problème... Gérer les calques "gelés" dans les fenêtres de l'EP... C'est insurmontable, je pense que je n'ai pas le niveau... mais je persévère... Pour l'instant, je gère plusieurs projet de lotissement (à l'infini) avec des lots (à l'infini) et les présentation des PdV (Plans de Vente) de chaque lots, avec, sur un A3, le plan de situation et le plan de détail... J'espère que ça parle à quelqu'un... Je gère deux échelles, une pour le plan de situation (1/1000, 1/1500...), une pour le plan de détail (1/200, 1/250...), et ça, sur chaque lot... Je ne pensais pas avoir autant de boulo, mais c'est cool... Je reviendrais poster mon travail (après avoir résolu ce "foutu" problème d'Xdata pour geler les calques dans une fenêtre dans l'EP) avec .mnu (pour les récalcitrants) une palette d'outils et les Lisp... D'ailleurs, voulez-vous le code source ? ou des .vlx ? Esprit critique ou contribuable ? Car, si je poste mes .lsp, il va il y avoir des corrections, j'en suis sur vu mon niveau, et tout va se croiser... Une solution... Un MP, puis un autre... Jusqu'au résultat final... la somme de tout les MP... Mais là, il va il y avoir des croisements que je ne suis pas sur de pouvoir gérer... J'attends vos propositions... Je reste ouvert à tout... Tant que c'est pour le bien de tous... J'allais oublier... Bon week-end à tous... Denis...

Salut (gile), et merci de m'éclaircir sur ce point... Mais (atan en lisp, c'est la tangente, et non, l'arc tangente ? Donc, une fonction "surchargée" est une fonction qui peut recevoir un ou plusieurs arguments... Alors ça et vos chalenges sur la récursivité (merci aussi à Patrick_35)... Je suis descendu au niveaux -12 dans ma "novicité"... :( Merci... <_< Maintenant, je vais déprimer pendant le week-end... ;)

Un belge... Quel plaisir... Mes grands parents paternels étaient belge... ;) Mon nom est d'origine belge... Hennuyer, c'était les habitants du Hainaut...

Je suis sûr que "VDH" veut dire "récursif" dans une langue... ;)

J'en connais un qui dirait : "Une épine, une bière"... :P Content d'avoir aidé... ;)

J'avoue ne pas avoir tout compris... N'est-ce pas le but de "ste2lst" et "lst2str" ? Ou alors mon niveau est plus bas que je ne pensais... Qui n'est déjà pas très haut... ;) Bon week-end... Denis...

Salut. (gile) a déjà fait des DCL réutilisables très intéressantes... Je suis tout près à t'aider pour ce lisp... Car il m'intéresse beaucoup...

Salut. Peut-être avec ça en début de Lisp : (vl-load-com)

Ces polylignes sont-elles toutes fermées ? Sous quelle forme sont ces données, et pourquoi pas dans le Lisp ? As-tu réussi à faire ton Lisp ? Attention, les Lisp de Maître (gile) sont du très haut niveau...

Salut, et merci pour votre aide. En effet, il manquait bien un (append, mais l'épaisseur est le code DXF 370 et non 39 :huh: Encore merci...

Bonjour à tous. Pour les besoins d'un membre de CadXP, j'ai développé un petit bout de code qui fonctionne très bien : (defun c:Ger_AxeTuyau_PROP (/ i etx ss) (setq SelAxe (car (entsel "\nSélectionnez l'axe du tuyau :"))) (command "chprop" SelAxe "" "tl" "Axes tubes" "ep" "0.09" "") (princ) ) Pour parfaire mon niveau, j'ai tenté de faire la même chose avec un (entmod pour jouer avec les codes DXF, et ça donne ça : (defun c:Ger_AxeTuyau_DXF (/ i etx ss) (setq Select (ssget "_:S")) (setq n 0) (while (setq Ent (ssname Select n)) (setq elst (entget Ent) n (+ 1 n) elst (subst (cons 6 "Axes tubes") (assoc 6 elst) elst) ; type de ligne elst (subst (cons 39 9) (assoc 39 elst) elst) ; épaisseur de ligne ) (entmod elst) ) (princ) ) Mais ce dernier code ne fonctionne pas, quelqu'un peut me dire pourquoi ?

Ben ouais, une copie de tes travaux sont dans le cloud, accessible via Bureau\Ce PC\A360 Drive (NomUtilisateur) Lorsque je me connecte chez moi, j'y accède sans problèmes...

Bon, comme proposé, voici un petit bout de code pour changer le type de ligne et l'épaisseur d'une entité : (defun c:Ger_AxeTuyau_PROP (/ i etx ss) (princ "\nDéveloppé par Denis H. pour GER-onimo (CadXP.com)") (setq SelAxe (car (entsel "\nSélectionnez l'axe du tuyau :"))) (command "chprop" SelAxe "" "tl" "Axes tubes" "ep" "0.09" "") (princ) ) ;_ Fin de defun Tiens nous au courant si c'est ok pour toi...

J'ai du mal m'exprimer, je parlais d'écrire des macros au format Lisp, qui ne comporte pas d'enregistreur, tout comme les macros en VBA. C'est tout à la main, mais ultra puissant quand tu sais bien t'en servir...

Ok, désolé pour le faux espoir... :huh: Si tu as le nom du type de ligne et son épaisseur, il sera possible de passer par un petit lisp...

Mais je crois que c'est par utilisateur... Donc, tes fichiers ne sont QUE sur TON ordinateur (et le cloud d'AutoDESK)...

Ça fait une heure que ça dur ! ! :huh: Le premier fichier "Prevessin_2018.dwg" avait 119.432 entités valables contre plus de 500.000 non valables. Après récupération, le fichier fait 6 Mo... Il a donc perdu énormément de données ! ! Pour le deuxième "Prevessin_2018-2.dwg", il se déroule la même chose... Désolé de ne pas pouvoir en faire plus...