Copie un élément identique au même endroit

[yusukens82]

Bonjour,

 

je souhaite copier un élément au même endroit après avoir sélectionné le(s) élément(s) avec une routine

 

Tel quel, Autocad me demande de spécifier un second point.

 

(defun c:CBC (/ base)
(command "COPIER" "0,0" "0,0")
)

 

Merci par avance de votre aide.

[lecrabe]

Hello

 

Pas sur de bien te suivre !?

 

Voir ci-dessous 2 micro-routines Sympas et Simples :

Aligner (COPA) ou Rotation (COPR) en gardant l original !

 

Cela pourra peut etre t aider !?

 

LA SANTE (Stay Safe), Bye, lecrabe "triste"

Automne 2020, la retraite

 

;;
;; Copy_Align & Copy_Rotate
;; Commandes :  COPA  &  COPR
;;

;; (defun c:copy_align ()
(defun c:copa ()
(vl-load-com)
(if (vl-cmdf "_.copy" pause "" "" "")
(command "_.align" "_p" "")
)
(princ)
) 

;; (defun c:copy_rotate ()
(defun c:copr ()
(command "_.rotate" pause "" pause "_copy")
(princ)
) 

[Aleck_Ultimate]

Salut.

 

Ce que tu cherche serait-il là ? https://cadxp.com/topic/48577-selectionner-une-entite-avant-de-lancer-la-commande/

[Tramber]

Sinon on prend les objets, on lance la commande et on appuie deux fois sur ENTREE sans avoir besoin de la souris (ou alors on spécifie au moiins une fois le vecteur de déplacement 0,0).

Pas besoin de routine.

[yusukens82]

Bonjour lecrabe,

ce n'est pas exactement ça. le problème vient du fait que ma routine fonctionne dans un seul sens,

c'est à dire : Lancer la routine ==> sélectionner l'objet.

 

ce que je souhaite c'est sélectionner l'objet puis lancer la routine.

 

Bonjour Aleck Ultimate

c'est exactement ça, mais malgré l'explication, je n'arrive pas à adapter la routine :unsure:

 

Bonjour Tramber

si je sélectionne un objet, et que je lance "COPIER" puis 2 fois sur entrée

ça fonctionne pas.

par contre oui si j'utilise la sourie ça fonctionne, c'est ce double clic supplémentaire que j'essaye de créer cette routine.

le but de ma démarche et de soulager ma main droite qui souffre en fin de journée à force d'utiliser la souris.

[Aleck_Ultimate]

le but de ma démarche et de soulager ma main droite qui souffre en fin de journée à force de cliquer sur la souris

 

Pour ça je ne saurait trop te conseiller de repenser ton périphérique. Quelques lien utiles :

 

https://cadxp.com/topic/42878-spacemouse-pro-contre-g13/

 

https://cadxp.com/topic/44983-razer-orbweaver-et-souris-roccat-tyon/

 

https://cadxp.com/topic/45223-quel-souris-pour-autocad/

[yusukens82]

Pour ça je ne saurait trop te conseiller de repenser ton périphérique. Quelques lien utiles :

 

https://cadxp.com/topic/42878-spacemouse-pro-contre-g13/

 

https://cadxp.com/topic/44983-razer-orbweaver-et-souris-roccat-tyon/

 

https://cadxp.com/topic/45223-quel-souris-pour-autocad/

 

j'ai déjà changé ma souris de sorte à utiliser mon pouce à la place du majeur pour le clic panoramique.

et pour le clic gauche, j'ai pris l'habitude d'utiliser l'index+majeur pour répartir la charge.

 

Merci je pour les liens, je vais voir si ça peut m'aider pour améliorer d'avance les conditions de travail.

[philsogood]

hello

si t'as mal à la main c'est que ton poste de travail n'est aps adapté.

j'ai eu le même problème en début d'année dernière alros que j'avais changé de poste, le bureau était trop bas (je fais presque 2.00m)

j'avais passé une semaine sur chantier à monter de la gaine et j'avais moins mal, retour au bureau, retour des problèmes

il doit y avoir qqch sur ton bureau qui fait que tu as de mauvais appuis d'où ta gène

prends ce problème sérieusement, c'est pas un lisp (ou une souris à mon avis) qui vont résoudre le problème car tu ne travailles pas tout le temps sur AutoCAD...

un problème de fond...

tu peux demander à ta boite qu'elle fasse passer un ergonome (pas sûr du terme exact) ça peut être utile...

perso mon bureau est moche, réhaussé avec des morceaux de palettes, les écrans reposent sur les ramettes de papiers mais mes écrans et mon bureau sont à la hauteur qui me convient et depuis je n'ai plus aucune douleur... :)

++

Phil

[yusukens82]

Bonjour,

Je pense que ça vient du nombre de clic que je fais à la minute et surtout du nombre d'heure que je passe dessus.

(6 jour sur 7 et parfois 7/7 durant depuis 15ans, mais ça c'est une autre histoire).

 

depuis que j'ai levé le pied au travail ça va beaucoup mieux, je cherche continuellement des minimiser le nombre de clic.

 

 

Pour revenir au sujet, quelqu'un pour m'aider à adapter mon lisp ? (je rappelle que je suis nul en programmation)

[bonuscad]

Bonjour,

 

je souhaite copier un élément au même endroit après avoir sélectionné le(s) élément(s) avec une routine

 

Tel quel, Autocad me demande de spécifier un second point.

 

(defun c:CBC (/ base)
(command "COPIER" "0,0" "0,0")
)

 

Merci par avance de votre aide.

 

A essayer

(defun c:CBC ( / )
(cond
	((ssget "_I")
		(command "_.copy" "0,0" "0,0")
	)
	((ssget "_P")
		(command "_.copy" "_previous" "" "0,0" "0,0")
	)
	(T
		(command "_.copy" (ssget) "" "0,0" "0,0")
	)
)
(prin1)
)

 

[yusukens82]

A essayer

(defun c:CBC ( / )
(cond
	((ssget "_I")
		(command "_.copy" "0,0" "0,0")
	)
	((ssget "_P")
		(command "_.copy" "_previous" "" "0,0" "0,0")
	)
	(T
		(command "_.copy" (ssget) "" "0,0" "0,0")
	)
)
(prin1)
)

 

 

 

Bonjour bonuscad,

ça marche nikel

Ma main droite te remercie infiniment !! elle va pouvoir se reposer un peu plus.

 

Vraiment merci à toute la communauté de Cadxp !

[Tramber]

Bonjour Tramber

si je sélectionne un objet, et que je lance "COPIER" puis 2 fois sur entrée

ça fonctionne pas.

Recommence en vérifiant le vecteur 0,0 entre

Car cela marche très bien.

[yusukens82]

Recommence en vérifiant le vecteur 0,0 entre <>

Car cela marche très bien.

 

En effet mon vecteur avait changé.

merci ça marche aussi (et sans routine) :)

[Olivier Eckmann]

Bonjour,

 

@Tramber, ça fonctionne bien

Recommence en vérifiant le vecteur 0,0 entre <>

Car cela marche très bien.

 

...sauf si tu es en saisie dynamique.

On avait déjà abordé le souci sur une autre discussion, où je ne comprenais pas pourquoi ça fonctionnait chez moi et pas chez l'auteur du problème.

 

Olivier