milieu d\'une polyligne

[richard-c]

Bonjour à tous,

 

suite à une suppression des connexions internet dans nos services depuis noel . . . j' ai réussi à avoir une connexion sur CADxp, ouf.

et à 2 mois de partir en retraite . . .

 

voilà, je cherche un lisp pour V2002, qui me donnerais le milieu d'une polyligne et d'y insèrer un bloc ou un texte.

 

J'ai bien bricolé un lisp qui divise par 2 la polyligne , cherche le X et Y du point, efface le point . . . etc mais c'est hard.

 

Bonne journée.

[(gile)]

Salut,

 

Une petite routine qui retourne le milieuu de la polyligne qui lui est passé comme argument.

 

Exemple :

 

(setq pl (car (entsel))

pt (mid-pl pl)

)

 

(defun mid-pl (pl)
 (vl-load-com)
 (vlax-curve-getPointAtDist
   pl
   (/ (vlax-curve-getDistAtParam
 pl
 (vlax-curve-getEndParam pl)
      )
      2.0
   )
 )
) 

[bonuscad]

Salut Richard,

 

et à 2 mois de partir en retraite . . .

 

Et bien bonne retraite, (y'en a qui ont de la chance de ne pas voir leur date reculer...)

 

Profites en bien et envoi nous une carte postale sur CadXp ;)

[richard-c]

çà ne marche pas

 

voici la réponse d'AutoCAD 2002 :

 

[surligneur] Commande: (mid-pl)

; erreur: nombre d'arguments insuffisants[/surligneur]

 

 

 

A+

[bonuscad]

Il te faut UN argument pour la fonction (mid-pl) en l'occurence ici le nom (ename) de l'entité.

 

L'exemple de (gile):

Exemple :

 

(setq pl (car (entsel))

pt (mid-pl pl)

)

 

ici pl représente le nom de l'entité polyligne.