Syntaxe avec c:

[Fraid]

Bonjour,

 

 

Je voudrai rappeler des lisp dans un autre et enchainé les options

 

exemple

 

(c:circle2pl "tout" "")

 

ne marche pas.....

[(gile)]

Salut,

 

Les fonctions définies en LISP avec le préfixe c: peuvent être appelées directement depuis la ligne de commande, mais, de ce fait, ne peuvent pas accepter d'arguments.

 

La solution est de définir 2 fonctions LISP, par exemple : circle2pl qui requiert un argument de type jeu de sélection et une fonction c:circle2pl qui laisse la main à l'utilisateur pour sélectionner les objets et appelle circle2pl en lui passant le jeu de sélection.

 

Un exemple avec une fonction circle2pl (très) sommaire :

(defun circle2pl (ss / n)
 (repeat (setq n (sslength ss))
   (setq ent  (ssname ss (setq n (1- n)))
  elst (entget ent)
   )
   (command "_.polygon"
     16
     "_cen"
     (cdr (assoc 10 elst))
     "_i"
     (cdr (assoc 40 elst))
   )
 )
 (command "_erase" ss "")
)

 

La fonction c:circle2pl appelable en ligne de commande

(defun c:circle2pl (/ ss)
 (if (setq ss (ssget '((0 . "CIRCLE"))))
   (circle2pl ss)
 )
 (princ)
)

 

Si tu veux appeler circle2pl depuis une autre fonction en sélectionnant tous les cercles :

(circle2pl (ssget "_X" '((0 . "CIRCLE"))))

[Fraid]

Merci gile

 

Bon...c'est bien ce qu'il me semblais.

Je vais recopier le code et le modifier

 

sinon terrible le circle2pl, car je le traine en vlx depuis des années.....

 

et la je ne pouvais pas lire le code

[didier]

coucou

 

c'est quoi cette histoire de

circle2pl,

je ne vois pas la finalité, pardon.

 

amicalement

[Fraid]

Bonjour Didier,

 

Circle2pl n'etait qu'un exemple de lisp que j'appel souvent.

 

Mais pas moyen de l'integrer a un autre lisp en enchainant les arguments car enregistrer en .vlx

 

Apres, la finalité de transformer un cercle en polyligne n'a pa vraiment d'importance dans ce post et meme tout cours je le reconnais............

 

Mais quand on a un client qui ne veux que des polylignes................ :P