Cde pour modif ligne et arc en polyligne

[llefevre]

Bonjour à tous,

 

Etant néophyte en programmation, je souhaiterai créer ou trouver une Macro ou un LISP pour:

Après sélection d'éléments (Lignes et arcs principalement)

Lancer une commande ou un bouton pour les transformer en polyligne, en gardant la possibilité de clore ou non la polyligne créée.

 

Merci d'avance

[Bred]

Salut et bienvenue !

Tu as le commande pedit.

 

 

 

[llefevre]

Salut Bred,

 

Oui je sais, mais je voudrais éviter tous l'enchainement pedit/sélectionner polyligne/transformer en polyligne/oui/joindre/sélectionner les éléments/etc...

Etant donner que je dois le faire souvent une macro ou autre m'arrangerai.

 

Merci

[Bred]

Re,

je ne suis pas un spécialiste en macro, mais test ça :

 

^C^Cpeditaccept;1;select;\pedit;m;precedent;;j;;;

[llefevre]

Re,

 

Ca marche au poil, merci beaucoup.

Petit pinaillage: que faut-il modifier pour pouvoir sélectionner les éléments avant de lancer la Macro.

 

Encore merci

[lili2006]

Bonjour à toutes et tous,

 

Super Bred, ta p'tite macro,.

 

Merci,dans certains cas, cela va être trés pratique!

 

Bonne journée

[Bred]

que faut-il modifier pour pouvoir sélectionner les éléments avant de lancer la Macro.

Je confirme :

je ne suis pas un spécialiste en macro

désolé....

 

[(gile)]

salut,

 

Avec la commande PEDIT, il fauf faire attention à la valeur de la variable PEDITACCEPT suivant sa valeur (1 ou 0) et le fait que la sélection contienne des lignes et/ou arcs ou non, le nombre d'entrées ("") n'est pas le même et peut faire échouer la macro.

 

Je postrais ce soir un petit LISP qui controle PEDITACCEPT pour un fonctionnement optimum.

[Bred]

il fauf faire attention à la valeur de la variable PEDITACCEPT

En effet... regarde ma macro !!! ;)

[llefevre]

Merci Bred de t'être penché sur mon problème, ta Macro marche déjà trés bien et a désormais son bouton désigné dans mes menus

[(gile)]

au temps pour moi, Bred, j'vais mal lu.

 

Je poste quand même le petit LISP promis qui présente quelques petits avantages sur une macro :

- accepte les objets sélectionnés avant le lancement de la commande (PICKFIRST à 1)

- peut être lancé à la ligne de commande (JPL), inséré dans un bouton ou un menu, rappelé avec Entrée ou clic droit.

- devrait fonctionner aussi avec les versions qui n'avaient pas PEDITACCEPT (

 

(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)
) 

[llefevre]

Bonjour gile,

 

Super ce petit Lisp, tout à fait ce qu'il me faut.

Encore merci à toi et Bred

Bonne journée

[Invité samuelM]

bonjour,

 

moi je recherche où insérer la macro pour l'utiliser?

Pouvez vous m'aider?

 

Merci d'avance