Déplacer objet en Z

[chti52]

Bonjour

Je suis débutant avec le LISP et je voudrais créer une commande LSP qui permette à un ou plusieurs objets d'être déplacé en altitude : d'un Z=x vers un Z=0

J'ai commencé par saisir l'objet : (setq a(ssget))

Puis saisir le point de base : (setq b(getpoint))

Et enfin récupérer le X et le Y en créant une liste : (setq c(list(car b)(cadr b)))

Celà fonctionne bien sur la ligne de commande d'AutoCAD mais je n'arrive pas à les mettre en application. Après le " Defun " je ne sais par quel bout commencer.

Qui pourrais venir à mon secours?

Merci d'avance.

[Serge]

chti52,

 

Puisque tu débutes en Lisp, je vais te suggérer 2 techniques simples:

 

(setq deltaZ 100.0) ; en supposant que tu as calculé cette valeur toi même

(setq pt1 (list 0.0 0.0 0.0))

(setq pt2 (list 0.0 0.0 deltaZ)

(setq ss (ssget)) ; Pour sélectionner

(if ss (command "._move" ss "" "_none" pt1 "_none" pt2)) ; Déplacement relatif

;; ou encore

(if ss (command "_change" ss "" "_properties" "_elev" deltaZ "") ; Déplacement absolu

 

Si tu essaie d'y aller avec plus de raffinement, tu devra traiter un à un tes objets et les traiter spécifiquement. Par exemple, une ligne nécessite de modifier 2 codes (pt de départ et d'arrivée), un cercle a un code (le pt centre), une polyligne a plusieurs codes (et c'est assez complexe).

 

En espérant t'avoir éclairer.

 

Serge

 

[LUCCIBEL]

Ne serait-cxe pas plutôt :

 (setq c(list(car b)(cadr b)  [surligneur] 0.0[/surligneur] ))

le Lisp est plus éxigeant pour les points ce sont souvent des points d qu'il faut lui donner.

alors à voir où tu veux le déplacer en Z l'exemple ici c'est en z=0 mais tu peux aussi faire un calcul dont le résultat doit être un nombre de type réel.