Merci Gille.
C'est parfaitement ce que je voulais. Du coup le lisp adapté a mes 6 commandes
(defun c:C+ (/ ss)
(if (or (setq ss (ssget "_I"))
(setq ss (ssget))
)
(command-s "_.copy" ss "" "_Displacement" '(0. 100.))
)
(princ)
)
(defun c:C- (/ ss)
(if (or (setq ss (ssget "_I"))
(setq ss (ssget))
)
(command-s "_.copy" ss "" "_Displacement" '(0. -100.))
)
(princ)
)
(defun c:D+ (/ ss)
(if (or (setq ss (ssget "_I"))
(setq ss (ssget))
)
(command-s "_.move" ss "" "_Displacement" '(0. 100.))
)
(princ)
)
(defun c:D- (/ ss)
(if (or (setq ss (ssget "_I"))
(setq ss (ssget))
)
(command-s "_.move" ss "" "_Displacement" '(0. -100.))
)
(princ)
)
(defun c:+ () ;; Se déplace à 100 de+
(command "-pan" "0,0,0" "0,-100,0")
(princ)
)
(defun c:- () ;; Se déplace à 100 de-
(command "-pan" "0,0,0" "0,100,0")
(princ)
)
Turtle76
Je travaille avec des blocs dynamique, et j'aimerais pouvoir changer l'état de visibilité d'un étage sans avoir à décomposer le réseau rectangulaire. Mais je me sert de cette commande quand les étages plombent parfaitement entre eux.
Merci beaucoup.
Maintenant, il faut que je cherche comment attribuer une variable A dans dans le Lisp pour pouvoir modifier la valeur de 100 à une valeur que je souhaite, ex, les grands plans ou a 100 de différences sur X il y a encor des éléments de l'étage inférieur, je le passe a 150 ou 200. sans voir a modifier ligne par ligne la valeur de 100 à 150 ou 200
Merci a vous pour votre réactivité en tout cas.
