yusukens82

Bonjour, Quelqu'un pourrait m'aider à adapter un lips, je souhaite faire une rotation de 90 degré d'un bloc depuis le point de basse du bloc. une première écriture: (defun c:RR90 (/ yy) (setq yy (ssget)) (command "ROTATION" yy "" "0" "90") ) N’étant pas un expert du lips, merci d'être exigeant Cordialement,

C'est ce que je faisais déjà. Comme les présentations sont déjà bien rangé ce n'est pas compliqué en effet. comme je disais dans mon premier message c'était dans un souci d’optimisation et un gain de temps considérable (qui ne vous semble pas visible sur un seul fichier, mais multiplié par XXXX ça prend vite de la proportion).

Ce n'est pas faute d'avoir essayé, la programmation ce n'est vraiment pas ma tasse de thé, d'ou ma demande d'aide. sauf quand ce sont des légères adaptations, mais le code a l'air beaucoup plus complexe que ça. Merci quand même.

Bonjour, Impression Automatique : le but n'est pas de crée un pdf à chaque enregistrement et fermeture du fichier mais bien à la demande, de plus ça m'obligerai de supprimer des présentations. pour l'optimisation c'est en effet c'est ce que je fais déjà : Présention => Shift => publier => espace objet. La vidéo c'était pour montrer ce que je souhaite obtenir comme Routine automatique.

Bonjour JPhil, J'ai compilé les codes dans un fichier LSP ça me sort "erreur: structure incorrecte de la chaîne en entrée" au lancement du fichier J'ai du louper un truc dans la compilation ? Merci pour ton aide ci joint le fichier lsp TEST.lsp

Bonjour, C'est justement pour éviter ce genre de manœuvre que je souhaite rendre ça automatique. Cela semble inutile sur un seul fichier mais quand on passe plusieurs dizaines ou centaines de fichier à publier. il peut arriver qu'on supprime une mauvaise présentation dans la boite de dialogue PUBLIER, et ne parlons même pas du nombre de clic à effectuer.

Bonjour, Toujours dans le but de réduire le nombre de clic. Quelqu'un pourrait m'aider à écrire un LISP permettant : - de sélectionner tous les présentations commençant par les lettres "Exe" et en excluant l'onglet "OBJET" - puis lancer la commande PUBLIER Je joins un dwg et une petite vidéo montrant la version manuelle de cette procédure redondante En vous remerciant par avance pour l'aide que vous pourrez me fournir. merci dwg video.zip

Bonjour, merci pour les LISP c'est exactement ce que je cherchais 😉 Bonne nuit

Laylocksel. semble être une vrai alternative qui pourrait résoudre les gros Xref qui fait planter Autocad. après l'avoir essayé, je peux enfin dire que LAYLOCKSEL est un vrai petit bijoux pour les utilisateurs d'Autocad.

Je suis d’accord avec vous, je m’interdis strictement d’utiliser le defpoint et le calque 0. Le but n’est pas de travailler sur ces 2 calques mais vraiment d’éviter de cliquer sur un Xref par mégardes. En effet il arrive parfois que le Xref soit tellement volumineux qu’un simple clic dessus fait fige Autocad durant plusieurs minutes.

Bonjour Luna, Moi qui utilise à longueur de temps le lisp, j’ai essayé à plusieurs reprises de débuter en lisp. A chaque fois j’abandonne au bout de quelques jours. J’en ai conclus que ma force n’est pas d’en créer mais de les utiliser. Il n’en reste pas moins que j’essaye dès les développer avec mes maigres compétences. Merci pour ta proposition sympathique qui me va droit au cœur Bisous

Bonjour à vous tous, Dessolé si je n'ai pas été précis dans ma requête, je n'aurai peut être pas du mettre ce topic dans la rubrique "débuter en LISP" Si je n'ai pas déclaré de variable 'ss' c'est tout simplement parce que j'ai récupéré ce bout de code sur une autre routine sans savoir exactement la signification de chaque mot. Le but étant de récupérer les propriétés de la première sélection vers une seconde sélection puis d'effacer la sélection source. Les 2 propositions de Maxime063 fonctionne merveille, merci pour la réécriture plus propre. Merci

Bonjour, Je cherche une astuce pour effacer l’élément d'origine après avoir copier ses propriétés. je pensais à quelque chose de simple comme : (defun c:CP2 () (command "_matchprop" ) (command "_erase" ss "") ) mais vous vous doutiez bien que ça ne fonctionne si quelqu'un peut m'aider ? en vous remerciant par avance,

j'ai complétement oublié de suivre cette actualité. cette solution fonctionne à merveille si rien n'est dessiné dans le calque 0. et c'est mon cas alors merci beaucoup pour l'astuce.

Merci pour l'explication, ça fonctionne dans les 2 sens "avant et après sélection" que demander de plus ? un grand merci à toi Luna

Bonjour, Ca marche bien. encore merci pour tout ce que tu fais pour Cadxp 🙂

Bonjour, La routine semble simple mais je bloque tout de même. Je cherche à déplacer des éléments d'une valeur fixe après une sélection d'objet (defun c:DD40 () (command "DEPLACER" "0,0,0" "40,0,0")) Si quelqu'un peut m'aider ? Merci à la communauté

Bonjour, Savez-vous s'il est possible avec une variable ou un programme d'ignorer la sélection d'un Xref ? j'ai trouvé ça dans un forum mais ça ne fonctionne pas : (defun Select-No-Xrefs (/ ActDoc Blocks cnt ent eObj name ss) (vl-load-com) (setq ActDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Blocks (vla-get-Blocks ActDoc) cnt 0 ) (prompt "\nSelect Objects < Pick > ") (setq ss (ssget) ) (if ss (progn (repeat (sslength ss) (setq ent (ssname ss cnt) eObj (vlax-ename->vla-object ent) name (vla-get-name eObj) cnt (1+ cnt) ) (if (or (vl-string-search "*Model_Space" name) (vl-string-search "*Paper_Space" name) (vlax-property-available-p eObj 'Path) ) (ssdel ent ss) ) ) ) ) ;repeat ss ) Merci de votre aide.

En effet mon vecteur avait changé. merci ça marche aussi (et sans routine) :)

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 !

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)

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.

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.

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.

c'est bizarre, c'est en mettant Accélération matérielle en Oui et en ne cochant aucune effet que tout est redevenu en ordre. Merci