Aller au contenu

Lisps de DenisHen


DenisHen

Messages recommandés

Content d'avoir rendu service... ;)

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Salut Philippe.

 

Aucun problème, le voici...

Bjr Denis,

Je reviens sur le sujet, car j'ai toujours autant de soucis mais je vais laisser tomber, je ne vois pas de solution.

J'ai essayer ta manip sur un autre projet, et j'ai le même type de problème, ça ne fonctionne pas.

Sur ce nouveau projet, j'ai un fichier études en L1N. De l'autre, j'ai un fichier ecw ortho du département de 28 G0 en CC48. Si je modifie la rotation de ce fichier de x angle en dehors de 90, 180, 270 et donc 0 ma photo(cadre) bouge bien mais uniquement le cadre sans le contenu de cette photo. C'est vide.

J'ai récupérer un extrait de cette dalle départementale uniquement sur les communes de mon projet, du coup mon fichier ecw n'est plus que de 1.5 GO. J'ai essayé ta manip de nouveau, idem, ça ne marche pas.

En plus j'ai tjrs ma variable CMDDIA qui décroche en (0) malgré la modif que tu as effectuée.

Une question donc, quelqu'un a-t-il essayé de transformer via cette manip de Denis un fichier photo IGN CC48 en x autre lambert !

Lien vers le commentaire
Partager sur d’autres sites

Bonjour Philippe,

je relance ma solution du mois d'aout avec l'application IGNMAP. Et en plus, il y a une version portable qui marche bien.

Eric

Bjr Eric,

 

J'ai réussi à télécharger et installer IGNMap_2.0, mais c'est après que j'ai des soucis, je ne sais pas du tout comment ça fonctionne.Mais j'avais très bien vu ta solution.

 

A+

 

Phil

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

Je vous remercie pour le partage de vos lisp :rolleyes: .

Je me permets de vous écrire au sujet du lisp SomPoly.

La commande SomPoly fonctionne correctement ;) .

Malheureusement la commande DHSomPoly ne fonctionne pas et j'ai ce message ci-dessous :

Commande: DHSOMPOLY
Somme des Polylignes par calques; erreur: no function definition: SET_TILE_LIST

Le fichier dcl et placé dans un répertoire reconnu, il est placé au même endroit des fichier dcl d'origine d'autocad :

C:\Users\nen\AppData\Roaming\Autodesk\AutoCAD 2018\R22.0\fra\Support

 

Une autre petite question ;), est-il possible dans la commande SomPoly de rajouter la possibilité de sélectionner qu'une partie de polyligne et non tous ?

 

Merci d'avance

Meilleures salutations

Lien vers le commentaire
Partager sur d’autres sites

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.

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

  • 2 semaines après...

Content d'avoir rendu service... ;)

Bonjour denis

Je reviens vers toi, car encore des soucis avec ton lisp.

Un collègue m'a passé 3 fichiers de cadastre de communes en CC48 à transformer en L1N.

Et je n'arrive pas j'ai toujours le message ci-dessous, le fichier apparait mais toujours en CC48, en plus j'ai toujours ce problème avec CMDDIA qui saute à chaque fois.

Pourtant j'avais testé ton lis sur 2/3 autres fichiers cela fonctionnait mais là rien.

Ne serait-ce pas dû à la taille des fichiers en question, ils font autour de 9 MO chaque.

Bonne fin d'AM.

Merci d'avance de ta réponse que je lirai désormais demain

 

Philippe

 

 

Commande: _appload DHReProjection.LSP correctement chargé(s)

Commande:

Commande:

Commande: DHReProjection

Alias courant:[\Répertoire]: C: = C:

Nombre de dessins source sélectionnés: 1

Code 'RGF93.CC48' assigné à 1 dessin(s)

Fin de la sélection du système source...

Fin de la sélection du système cible...

Requête de C:\Cad. Plédran - 2018.09.28 - CC48.dwg ...

Exécution de la requête d'emplacement...terminé

Affichage des objets interrogés...

Message #0: Code de système de coordonnées incorrect ou manquant.

Code du message: 2.

La requête a extrait 96280 objet(s).

Message #0: 96280 objets interrogés dans le dessin dissocié C:\Cad. Plédran -

2018.09.28 - CC48.dwg seront traités comme de nouveaux objets.

Code du message: 1231.

Message #1: 96280 objets interrogés dans le dessin dissocié C:\Cad. Plédran -

2018.09.28 - CC48.dwg seront traités comme de nouveaux objets.

Code du message: 1231.

InsUnits...terminé

Projection terminée.

Commande: '_id Spécifiez un point:

Trop d'objets sélectionnés pour INTERSECT

X = 1280630.01 Y = 7267158.99 Z = 0.00

Lien vers le commentaire
Partager sur d’autres sites

Content d'avoir rendu service... ;)

Je te contacte de nouveau, j'ai refait des testes ce matin.

Je confirme que convertir un fichier CC48 en L1N ne fonctionne pas chez moi, par contre l'inverse marche soit de L1N en CC48. il y a donc un soucis quelque part.

Ton lisp fonctionne bien dans les 2 sens non Denis !

A +

Philippe

Lien vers le commentaire
Partager sur d’autres sites

  • 7 mois après...

J'utilise beaucoup le lisp de DenisHen "DHDossier" mais j'ai toujours le même problème : il n'écrase pas les valeurs.

Le code ci-dessous écrase les valeurs mais il ne peut pas créer les propriétés.

(defun c:ch_champs ()
(vla-SetCustomByKey(vla-get-summaryinfo(vla-get-activedocument(Vlax-get-acad-object)))"Tableau" "TEXT")
) ;_ Fin de defun

Quelqu'un peut-il m'aider à éviter de jongler avec les deux fichiers ?

Merciii d'avance,

Maxime

Modifié par azrael
Lien vers le commentaire
Partager sur d’autres sites

  • 5 semaines après...

Salut.

 

Je ne suis pas un très fort avec les vl-*.

Mais de quoi parles-tu quand tu dis "deux fichiers" ?

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

  • 1 mois après...

Bonjour Denis,

Désolé mais j'étais HS ;)

Effectivement, j'ai un fichier lisp pour créer les champs puis un autre pour modifier les champs. Rien de vraiment catastrophique. Je ne comprends pas pourquoi ta solution ne modifie pas la valeur du champs.

Lien vers le commentaire
Partager sur d’autres sites

Salut.

 

Non, vraiment, là, je ne vois pas...

 

Désolé, peut-être que quelqu'un d'autre aura une réponse...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant



×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité