pline (le jeune)

[fograf02]

Bonjour,

 

Cette tentative etait censee selectionner des lignes et les transformer en une pline.

Pourquoi ca ne marche pas?

 

(defun c:JJ () (command "PEDIT" """" "J" ""))

 

merci

 

[Arcasdk]

Coucou,

 

Est ce qu'il ne faut pas les sélectionner à un endroit?????

[fograf02]

ok sur, mais

 

(defun c:JJ () (command "PEDIT" (ENTSEL "")"" "Y" "J" ""))

 

ne marche tjrs pas

[usegomme]

Vu que tu es trés mal parti , ci-joint un lisp que j'ai récupéré.

 ;;;     Philippe DE WITTE modif  6-12-04
;joint polylignes

(defun c:jpo( / js ent) 
(Prompt "Selectionnez les lignes , polylignes à joindre: ")
(setq js (ssget '((-4 . ""))))
(setq ent (ssname js 0))
(if (or (eq (cdr(assoc 0 (entget ent))) "POLYLINE")(eq (cdr(assoc 0 (entget ent))) "LWPOLYLINE"))
 (command "_pedit" ent "j" js "" "_exit" )
 (command "_pedit" ent "_yes" "j" js "" "_exit" )
)
(while
 (setq js (ssget "p" '((-4 . ""))))
 (setq ent (ssname js 0))
 (if (or (eq (cdr(assoc 0 (entget ent))) "POLYLINE")(eq (cdr(assoc 0 (entget ent))) "LWPOLYLINE"))
  (command "_pedit" ent "j" js "" "_exit" )
  (command "_pedit" ent "_yes" "j" js "" "_exit" )
 )
) ;fin while

(princ)
)

 

salut

 

J'ai refait la copie du code ,j'avais peut être fait une mauvaise manip.

 

 

[Edité le 26/6/2008 par usegomme]

[fograf02]

Pourquoi j'etais mal parti?:

 

je lance la commande pedit, je selectionne une ligne, il me demande si je veux la transformer en pline, je suis d'accord, ensuite je fais joindre, selectionne les lignes a ajouter et.. ca foire...

 

 

 

bon, mais de toute facon ya un pb avec le lisp de de witte:

 

error: bad argument type: lselsetp nil

 

 

 

[Bred]

Salut,

Est-ce cela que tu veux faire ?

(setvar "peditaccept" 1)
(command "pedit" "M" (ssget) "" "j" "0" "")

 

 

 

[bonuscad]

Il y a aussi la commande "_.MPEDIT" tout simplement (avec des options en +)

 

[fograf02]

yep, merci bred

 

(defun c:JJ () (command "pedit" "M" (ssget) "" "j" "0" "" "x"))

ca marche

 

 

 

[usegomme]

Si tu fais :

 (defun c:JJ () (ssget) (command "pedit" "M" "p" "" "j" "0" "" "x"))

tu pourras également sélectionner les objets avant de lancer la commande.

Et j'ai été étonné qu'avec 2 lignes , on fasse aussi bien que le lisp de De Witte .

Il va falloir que je me modernise !

[(gile)]

Salut,

 

Il peut être intéressant d'utiliser la fonction LISP vl-cmdf à la place de command (surtout quand l'expression contient une autre expression à évaluer comme ssget ou une autre fonction get*).

 

Ces deux fonctions sont similaires à ceci près que vl-cmdf évalue les arguments nécessaire à la commande avant de l'exécuter.

 

L'expression suivante fonctionnera que les objets soient sélectionné avant ou après.

 

(vl-cmdf "_.pedit" "_m" (ssget) "" "_j" 0.0 "") 

[fograf02]

c'est bizarre, la fonction marche, mais une seule fois, la deuxieme fois ca me retourne le message

 

Select objects:

Yes or No, please.

error: Function cancelled

 

si je fais escape et que je recommence, ca a l'air de marcher de nouveau (mais ca ne tire qu'un seul coup)

 

donc...Est-ce que peux transformer mon mousquet en colt automatique?

 

je precise que je viens de passer en 2009, mais je vois pas en quoi ca peut influer

[(gile)]

Salut,

 

Regarde la valeur de PEDITACCEPT.

[fograf02]

ah daaaccord