test d\'entitée

[cadpolo]

Salut ...

Je m'y remet un peu ....

voila j'aimerais savoir comment peux t'on écrire ce code ...

 

Si c'est une Lwpolyline

->>sélection

Sinon

autre fonction ..

Merci ...

[(gile)]

Salut,

 

(if (setq ent (car (entsel)))
 (if (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")
;...
;...
 )
) 

[cadpolo]

Salut Gile ....

 

En faite j'aimerais faire une sélection de toute les entités contrairement entsel qui te permet d'en faire qu'une (si je me trompe pas ) ....

et dans cette sélection si il y a que des polylines .....on fait sinon on passe a utre chose ...

 

 

 

[Patrick_35]

Salut

 

(setq js (ssget "x" (list (cons 0 "*POLYLINE"))))

 

@+

[cadpolo]

Effectivement ....

mais je pensais a un code dxf de la lwpolyline a retourmé ...

Bon merci les gars ...... :D

 

[phil_vsd]

Vous me découragez les gars... Même des petits bouts de codes de rien du tout me dépassent... Je crois que le lisp sera pour dans une autre vie...

[didier]

coucou,

 

révision :

c'est normal à la rentrée d'attaquer par les révisions

 

ENTGET pour choisir UNE ENTITE

SSGET pour choisir PLUSIEURS ENTITES

 

la commande IF fonctionne ainsi :

 

IF test

fairececi

sinonfairecela

end if

 

si fairececi est plus compliqué qu'une ligne de code

 

IF test

(progn

fairececi

)

sinonfairecela

end if