Aller au contenu

joindre des polylignes


eric45

Messages recommandés

je ne sais puls quel lispeur fou m'avait pondu JPL mais ce code est depuis longtemps chargé par défaut dans mon totocrad

 

(defun c:jpl (/ ss)
(and (or
(and (= (getvar "pickfirst") 1)
(setq ss (ssget "_I" '((0 . "ARC,LINE,LWPOLYLINE"))))
)
(setq ss (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
)
(if (= (getvar "peditaccept") 1)
(vl-cmdf "_.pedit" "_m" ss "" "_j" 0.0 "")
(vl-cmdf "_.pedit" "_m" ss "" "_y" "_j" 0.0 "")
)
)
(princ)
) 

 

il faut sélectionner les élément avant et jpl...

 

 

édit

 

oups.... LT... désolé... ça servira à d'autre...

 

[Edité le 4/2/2010 par x_all]

Lien vers le commentaire
Partager sur d’autres sites

Re,

 

EUH !!!!!!!!!!!!!!!!!!!!!!!!

Salut Chrisitan,

 

Tu l'as fait expres ?

 

Je vais réfléchir à la suite à donner ! :exclam:

 

ChrisBlaiBois...etc.

 

 

 

[Edité le 5/2/2010 par rebcao]

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

J'attendais justement ChriChri au tournant.

Car mettre la variable à 1, c'est facile.

 

Non, je pensais que tu allais sortir de ta léthargie des derniers jours avec une bascule. Une getvar User machin truc et tout tout !

 

:cool:

 

Je dois le faire ou quoi :mad:

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

 

 

Car mettre la variable à 1, c'est facile.

 

Pas du tout... Si tu regardes mieux, tu remarqueras un peu de JAUNE à la fin de la macro [surligneur] ; [/surligneur] il manquait un POINT VIRGULE ! Hé !

 

:P

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

^C^C_select;\useri1;$M=$(getvar,peditaccept);osmode;3;pedit;m;p;;j;0.01;;peditaccept;$M=$(getvar,useri1);

 

J'ai fait l'effort. Normalement c'est bon.

N'est-ce pas, Maître ?

:calim:

 

Edit : par contre, j'ai dû refaire mon BBcode.

Le cave !

 

 

[Edité le 5/2/2010 par Tramber]

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

Bonsoir,

 

Pour la variable PEDITACCEPT, je ne vois plus trop l'intérêt de revenir avec la Question débile [surligneur] "L'objet sélectionné n'est pas une polyligne, voulez-vous le ..." [/surligneur]Autant laisser définitivement [surligneur] 1 [/surligneur]!

 

Christian

 

 

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

Bonsoir à toutes et tous,

 

Tu l'as fait expres ?

 

Heu, non, pour une fois,...

 

Donc, il est temps qu'on se voit !

 

Avec grand plaisir, :D

 

^C^C_select;\useri1;$M=$(getvar,peditaccept);osmode;3;pedit;m;p;;j;0.01;;peditaccept;$M=$(getvar,useri1);

 

Ouh là, qu'est-ce que c'est que tout ce charabiat, :o

 

Autant laisser définitivement 1 !

 

Ouf, :exclam:

 

Et eric45, t'en penses quoi au final ?

 

 

Civil 3D 2024 - COVADIS_18.2

https://www.linkedin...3%ABt-95313341/

Lien vers le commentaire
Partager sur d’autres sites

bonsoir,

 

La bataille de la macro ;)

 

Lili2006,

 

Pour la macro, il stocke la valeur de peditaccept dans la variable useri1 pour ensuite la remettre en fin de macro. Il est vrai que dans ce cas, ce n'est pas forcement nécessaire. Mais cela reste une belle démonstration de style (Donc a retenir)

 

 

@plus

 

LB

 

PS: j'en ai appris en décortiquant les macros de Christian

 

Lien vers le commentaire
Partager sur d’autres sites

Re,

 

Peut être hors sujet. Mais vous trouverez ci-joint la même macro réalisée avec l'enregistreur d'action: L'avantage par rapport aux macros traditionnelles c'est que l'on peut lancer celle-ci avec un raccourci clavier.

 

Dans l'exemple ci-dessous le raccourci c'est JPO à taper sur la ligne de commande.

 

http://cjoint.com/?cfvMcEMKXR

 

Mettre le fichier dans :.......\appdata\roaming\autodesk\autocad 2010\r18.0\fra\support\actions

 

Cordialement,

 

Laurent

Lien vers le commentaire
Partager sur d’autres sites

Re,

 

Salut Laurent,

 

J'ai regardé l'aide à ce sujet,...

 

PS: j'en ai appris en décortiquant les macros de Christian

 

Il va falloir que je prenne le tp de le faire aussi,... ;)

 

Dans l'exemple ci-dessous le raccourci

 

Comment as-tu procédé pour arriver à ce résultat ?

 

(Que je n'ai pas testé,...)

 

Merci d'avance,

Civil 3D 2024 - COVADIS_18.2

https://www.linkedin...3%ABt-95313341/

Lien vers le commentaire
Partager sur d’autres sites

En macro, il y a Bonus et Christian. Après ce ne sont que des disciples :D

 

J'ai un doute, ce que je viens de montrer, ça marche sur LT ? Les USERS ?

 

Pour PEDITACCEPT, je suis assez d'accord. Comme tout le monde sait, cette variable a été inventé pour les gens qui auraient créé des routines dans les temps anciens.

 

Hoppla bon WE.

 

 

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

Bonsoir,

 

PS: j'en ai appris en décortiquant les macros de Christian

 

Mince ! On m'espionne ??? Je croyais que tout ça c'était hyper confidentiel en comité très très restreint !!!!!

 

OOPS et RE-OOPS ! j'avais pas vu on a dépassé les 61 000 MEMBRES... mais Chuuuuuttttt ! faut le dire à personne

 

Hé Hé !!!

 

J'ai un doute, ce que je viens de montrer, ça marche sur LT ? Les USERS ?

 

OUI ! ça marche très bien ce genre de truc Tramber. Heureusement d'ailleurs, car sans ces variable USERR... et USERi... on ne ferait rien avec LT... Sauf les USERS... eux n'existent pas avec LT !!! :mad: C'est débile parce du coup on est obligé de BRICOLER avec la commande GETENV. Et cette commande n'existe pas dans les versions complètes... C'est "CHIANT" (désolé) :exclam: Parce que ça rend une APPLI LT, incompatible avec une complète !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

Je ne sias pas si tu avais vu passer ces deux sujets à Titre d'exemple d'applications qui tournent sur LT : exemple APPLI 1 - APPLI 2

 

Avec grand plaisir,

 

Dès que tu as du neuf Lilian !... La balle est dans ton camp ;)

 

Christian

 

 

[Edité le 6/2/2010 par rebcao]

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

Parce que ça rend une APPLI LT, incompatible avec une complète !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

Pour les versions complètes, je pense que tu devrais tenter ce qui suit (le rajouter à un fichier de démarrage automatique au choix.)

 

(defun c:getenv ( ) (getenv (getstring "\nVariable d'environment?: ")))

 

Ainsi dans une version pleine, la fonction lisp (getenv "NomVariable") sera simplement devenue une commande du même nom, comme dans une LT !

 

Je pense qu'ainsi une version pleine pourrait peut être comprendre tes macros (sous réserve de tests que je n'ai pas fait...)

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

Lien vers le commentaire
Partager sur d’autres sites

  • 13 ans après...

Hello,

Je déterre ce très vieux sujet...  🙂

Je me suis rendu compte que HOooooooooooooooo MIRACLE la version AutoCAD LT 2024 a ajouté les variables systèmes :

   USERS1... à ...USERS5

ça c'est du progrès !!!!!!!!!!!!!!  😃 Bof... y a mieux comme pquand on voit encore TOUTES les conneries qui restent à corriger, moderniser... Je serais à la Retraite d'ici là

Sans parler du LISP qui est maintenant utilisable avec la LT 2024.

Christian

PS : Qu'ils sont moches les anciens sujets de CADXP qui ne prennent plus en compte les anciennes BALISE, comme [SURLIGNER] !!! 

 

 

 

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité