Centre d\'un arc

[chris_mtp]

Bonjour à tous.

 

Est il possible à partir d'un simple clic sur un arc de cercle de tracer une polyligne qui passe par une extrémité de l'arc, le centre de l'arc et l'autre extrémité de l'arc ? Ceci dans le but de repérer plus facilement le centre des arcs et ainsi placer un bloc type point topo au centre de l'arc.

 

Je suis en ce moment sur un projet de ZAC et c'est vraiment long de repérer les centres des arcs un après l'autre.

 

J'ai cherché. Le seul lisp qui s'approche de ce qu'il me faut sont les lips de gile mais qui permettent uniquement de trcar l'arc à partir du centre et du rayon mais pas l'inverse en fait.

 

Merci beaucoup par avance..

 

Chris

[(gile)]

Salut et bienvenue,

 

Un petit LISP vite fait, qui, j'espère répond à ta demande.

 

Il faut entrer acp, puis sélectionner les arcs ou faire Entrée, Espace ou clic droit pout tous.

 

(defun c:acp (/ ss)
 (and
   (princ "\nSéletionnez les arcs ou [b].")
   (or
     (setq ss (ssget (list '(0 . "ARC") (cons 410 (getvar "ctab")))))
     (setq
ss (ssget "_X" (list '(0 . "ARC") (cons 410 (getvar "ctab"))))
     )
   )
   (setq n -1)
   (while (setq arc (ssname ss (setq n (1+ n))))
     (setq elst (entget arc)
    cen	 (cdr (assoc 10 elst))
    rad	 (cdr (assoc 40 elst))
     )
     (entmake
(list
  '(0 . "LWPOLYLINE")
  '(100 . "AcDbEntity")
  '(100 . "AcDbPolyline")
  '(90 . 3)
  '(70 . 0)
  '(43 . 0.0)
  (cons 38 (caddr cen))
  (cons 10 (polar cen (cdr (assoc 50 elst)) rad))
  (cons 10 cen)
  (cons 10 (polar cen (cdr (assoc 51 elst)) rad))
  (assoc 210 elst)
)
     )
   )
 )
 (princ)
) 

[PHILPHIL]

hello

 

heuu ca serait pas plus rapide un tit lisp qui met directement un point topo a tous les centres de cercle ou arc selectionnés ???

 

heuu gile tu devais pas prendre un week end sans autocad et lisp ??? :)

 

phil

 

[chris_mtp]

:cool: bIEN JOUE

ca fonctionne plutot pas mal.

J'vais essayé de modifier un lisp qui trace la bissetrice d'un angle mais trop long comme méthode.

Ca fait depuis cet aprem que je suis sur ce pb.

Merci encore.

John de NC

[bonuscad]

heuu gile tu devais pas prendre un week end sans autocad et lisp ???

 

C'est vrai qu'il est impressionnant, si on lui demandait de raconter ses rêves ?....

 

Allez (gile) installes toi sur le fauteuil :calim: :D

[(gile)]

Mais moi je ne suis pas forcément sur AutoCAD pendant la semaine, des fois je fais du "vrai travail" qui fait suer et qui salit !...

[PHILPHIL]

hello

 

Mais moi je ne suis pas forcément sur AutoCAD pendant la semaine, des fois je fais du "vrai travail" qui fait suer et qui salit !...

 

je t'envie mais peut etre pas tous les jours de la semaine :D :D

 

mais ca a du bon

 

phil

[chris_mtp]

Justement Gile

Tu as de l'or entre les mains

tu peux te mettre à l'ombre quand tu veux

:casstet: :cool:

A plus, John de NC

[bonuscad]

Tu as de l'or entre les mains

 

Je dirais même plus (comme dupont et dupond) de l'or en BARRE...