Lisp pour déplacer en Z

[tieri1973]

Bonjour à tous,

 

Je viens d'arriver sur CADxp même cela fait un certain temps que je consulte ce site.

 

Je suis à la recherche d'un lisp qui me permettrais de déplacer des objets sur un plan topographique (plus d'explication ci-dessous).

 

Je suis actuellement en possession d’un plan de géomètre avec des repères topographiques qui n’ont pas d’élévations en Z, mais un texte renseignant celle-ci.

Je souhaiterai pouvoir déplacer les repères en Z, juste en cliquant sur le texte lui correspondant.

Mon niveau de lisp étant très proche de zéro, je ne suis pas capable de le développer moi-même, malgré mon étude du post « débuter en lisp ».

Merci pour votre aide.

[lecrabe]

Hello

 

Tes explications sont bien trop succinctes !

C QUOI tes reperes ?? ... Que veux tu monter en Z ?

 

1) Un Point ou un Bloc avec un texte simple d'altitude a cote

ou

2) Un Bloc avec un attribut donnant l'altitude reelle

ou

3) Un Texte simple montrant l'altitude

ou

etc ...

 

Bye, lecrabe

[Aleck_Ultimate]

Salut.

 

Quoiqu'étant aussi très grand débutant en LISP, je pense qu'il faudrait aussi avoir la formulation précise du texte pour en extraire la hauteur : ( 25.32 m ; Hauteur : 25.32 ; ex...) et faut-il y ajouter un facteur d’échelle ?

Cordialy.

[didier]

Coucou

 

souci récurrent sur les fichiers que les géomètres ne souhaitent pas rendre utilisable pour la 3D

par ignorance ou par malice !

 

le problème est la distance entre le point d'insertion du texte et le point à qui donner une élévation

si cette distance (et son orientation) est toujours identique c'est très simple à réaliser

si ce n'est pas cas il va falloir choisir le texte et ensuite montrer le point concerné ce qui interdit le traitement par lots du fichier

 

je pense pour voir t'aider mais il faut que tu nous renseignes, sachant que le mieux est le fichier ou un extrait sur tu peux mettre à disposition sur le site

 

amicalement

[tieri1973]

Tous d'abord merci pour vos réponses,

 

En ce qui concerne le texte, c’est un texte basique « 52.97 », pour les objets se sont des ellipses et les textes ne sont effectivement pas positionnés toujours aux mêmes emplacements, ni dans les mêmes orientations.

Je pense donc qu’il ne sera pas possible réaliser une commande globale, mais cela ne me dérange pas car je m’y attendais.

Je veux bien vous transmets un extrait en pièce jointe, mais le site me retourne une erreur serveur durant l'envoi. Pourtant le fichier ne fait que 68Ko, je ne comprend pas bien. :unsure: :blink: :(

 

Merci par avance,

[Aleck_Ultimate]

Pour les PJ on est obligés de passer par un hébergeur externe.

[DenisHen]

Salut.

 

Si, le mode opératoire est :

1-cliquer sur le texte représentant l'altitude,

2.cliquer sur l'entité (élipse ou texte) qui sera à l'altitude sélectionnée dans 1.

 

Là, pas de problème. Mais si ça doit passer par un autre mode, je pense que ce sera plus complexe...

[tieri1973]

Bonjour DenisHen,

 

Cette option me convient parfaitement. :) :D

 

Pour plus d'aide, ci-dessous le lien du fichier détail géomètre.

 

https://we.tl/yLfHXDf27x

[DenisHen]

Salut.

 

Je viens de te faire un petit bout de code qui devrait fonctionner si et seulement si les entités sont actuellement à l'altitude 0. Le voici :

;;; *****************************************
;;; Petit Lisp pour tieri1973 de CadXP.com   
;;; Sélection d'une altitude puis, déplacement
;;; de ce Altitude à une autre entité               
;;; *****************************************
(defun c:AltiVersEntite (/ Txt_Alti Alti ent_Ent)
 (setq Txt_Alti (car (entsel "\nSélectionnez l'altitude :")))
 (wcmatch (cdr (assoc 0 (setq elst (entget Txt_Alti)))) "*")
 (setq Txt_Alti (cdr (assoc 1 elst)))
 (princ (strcat "\nAlti=" Txt_Alti))
 (setq ent_Ent (entsel "\nSélectionnez l'entité : "))
 (setq ent_Ent (car ent_Ent))
 (command "_move" ent_Ent "" "0,0,0" (list 0 0 (atof Txt_Alti)))
 (princ)
)

La commande est : "AltiVersEntite".

 

Tu trouveras une petite aide pour charger un LISP -->ici<--.

 

Tiens-moi au courant si c'est bien ça qu'il te fallait...

 

Denis...

[tieri1973]

Super merci :D :D :D :D

 

C'est exactement ce qu'il me fallait.

[DenisHen]

Content d'avoir été utile...

 

N'oublie pas de noter ce sujet [Résolu]...

[Aleck_Ultimate]

Pour ceux qui n'ont pas tout en z=0, voila la MACROS pour tout mettre à plat :

 

^C^Cucsfollow;0;scu;g;déplacer;tout;;0,0,1e99;;déplacer;tout;;0,0,-1e99;;