Transformer des cercles en points.

[Anonymous]

Bonjour,

Je suis sur AutoCAD LT 2010 et je cherche à mettre des points dans les cercles sans devoir les mettres à la main un par un.

En effet, j'utiliser mon esquisse autoCAD pour la copier sur Solidworks, j'ai crée des cercles sur autoCAD mais solidworks ne prenant en compte que les points pour une repetition par esquisse je me doit de mettre des points dans les cercles sur autocad pour pouvoir les copier.

J'ai parcouru divers forums, certains donnent la solution via un LISP mais impossible de le charger correctement, de plus je ne suis pas codeur pour deux sous donc j'ai du mal a comprendre les lignes de codes . . .

Donc ma question est simple :

Et ce que quelqu'un possede un programme, une macro, etc.... qui permet de mettre des points dans des cercles, ou de transformer les cercles en points ?

En esperant avoir etait claire et en vous remerciant d'avance.

Cordialement,

[braudpat]

Hello

Welcome to the Autodesk/AutoCAD Forums !

Ma reponse ne va pas te plaire : je ne vois aucune solution !!

Car l'une des differences entre un AutoCAD LT 20xx et un "vrai" AutoCAD 20xx, c'est par exemple qu'il n'y a AUCUN moyen de programmtion serieux dans un AutoCAD LT , donc point de : Lisp, VLisp, VBA, VBNet, DotNet, ARX, Java, etc ...

Donc une "bonne petite" routine en Lisp/VLisp (comme tu as sans doute trouve sur un site quelconque) ne pourra jamais se charger (ni s'executer) sur ton ACAD LT !!

Sorry ...

LA SANTE, Bonheur, Reussite, Meilleurs Voeux, Bye, Pat

[Anonymous]

Merci pour votre réponse rapide et votre accueil.

Ah mince . . . je suis donc condamné à les mettre à la main.

Et donc je vous retourne la même question sur un 'vrai' autoCAD comment je pourrais donc faire ?

Car les LISP que j'ai trouvé ne fonctionne pas . .Enfin, ils ne fonctionnent pas sur un LT. Je n'ai pas essayé sur un 'vrai' autoCAD, donc il faudrait que je réessai en effet . . .

En tout cas si quelqu'un à un LISP fiable ou une macro pour transformer les cercles en points ou pour mettre des points dans les cercles je suis preneur ! 😃

Encore merci.

Et meilleurs voeux à vous aussi !

[otobox]

Salut.

Si c'est placer des points sur le cercle, tu peux essayer de passer par un réseau polaire.

JM

[braudpat]

Hello

Tu trouveras ci-joint une Routine Lisp "C2P" (Cercle To Point) !

Chargement par : APPLOAD

Commande au clavier : C2P

Mais il te faut un VRAI AutoCAD (ou version Metier d'AutoCAD) pour la charger et l'executer !!

Bye, Pat

PS: Eventuellement si tu es genereux, tu es autorise a m'octroyer un Compliment (Kudos)

ainsi je vais pouvoir m'enrichir virtuellement ...

[olivier.eckmann]

Bonjour,

je ne sais pas si sous LT l'outil d'extaction de données existe, mais si c'est oui, tu peux extraire les centres de tes cercles sous forme de fichier CSV, puis avec les explications de Pat (http://georezo.net/forum/viewtopic.php?id=51628), on convertit ce fichier en Scrit qui peut s'exécuter sous LT.

Olivier

[braudpat]

Hello Olivier

Point d'Extraction des Donnees avec un AutoCAD LT !

Et c bien dommage !?

Bye, Pat

[mainfo]

Bonjour à toutes et à tous

1 - retracer des Arcs à la place des cercles (ou les couper en deux pour reconstruire l'autre partie en arc)

2 - Pedit pour transformer ces arcs en polyligne et les joindre.

3 - la commande Mesurer tu selectionnes ta polyligne, tu met 0.1 et auras un point tous 10cm

voilà la base, c'est de pouvoir convertir tes cercles en polyligne et utiliser la commande "Mesurer".

@+

Michel a

[Anonymous]

Merci à vous pour toutes ces réponses.

Aucunes ne me convient malheuresement ^^'

J'ai donc réaliser mes points à la main un par un . . . : /

En tout cas merci pour votre réactivité ! =D

[braudpat]

Hello

Desole de n'avoir pas pu plus t'aider !?

Bye, Pat

[Anonymous]

C'est déja super d'avoir apporté autant de réponse ! 😃

Mais bon ... C'est vrai qu'etant sur un LT les solutions sont limitées malheuresement.

Cordialement,

[youyouzitane]

Ta routine va du tonnerre, tu n’aurais pas une autre qui fait l’inverse :

Point en cercle défini : ou exploser les points

Merci

[braudpat]

Hello

Welcome to the Autodesk/AutoCAD Forums !

Suite a ta demande, voici une Routine Lisp P2C pour generer des Cercles sur les Points selectionnes !

Routine : P2C

Chargement par APPLOAD

Bye, Pat

[youyouzitane]

impeccable

un grand merci

[braudpat]

Hello

Mais c normal bien que je ne sois plus developpeur en Lisp depuis longtemps !

J'ai en stock de tres nombreuses routines (principalement recuperees sur de multiples forums)

dont je fais profiter la communaute ...

<Humour ON>

Par contre celle qui doit me donner le tirage du prochain Loto

je n'ai jamais reussi a la faire marcher correctement !?

<Humour OFF>

Bon WE, Bye, Pat

[youyouzitane]

Re bonjour

et dans la meme logique

des points au milieu d une selection de lignes?

[CADaSchtroumpf]

Ceci ?

(defun c:PointAtMidLine (/ js n key ent dxf_ent)
  (princ "\nSélectionner les lignes où placer un point à leur milieu")
  (setq js (ssget '((0 . "LINE"))))
  (cond
    (js
      (initget " Oui Non _Yes No")
      (setq key (getkword "\nEffacer l'entité source [Oui/Non]? <Non>: "))
      (if (not key) (setq key "No"))
      (repeat (setq n (sslength js))
        (setq
          ent (ssname js (setq n (1- n)))
          dxf_ent (entget ent)
        )
        (entmake
          (list
            
            '(0 . "POINT")
            '(100 . "AcDbEntity")
            (assoc 67 dxf_ent)
            (assoc 410 dxf_ent)
            (assoc 8 dxf_ent)
            (if (assoc 62 dxf_ent) (assoc 62 dxf_ent) '(62 . 256))
            (if (assoc 6 dxf_ent) (assoc 6 dxf_ent) '(6 . "ByLayer"))
            (if (assoc 48 dxf_ent) (assoc 48 dxf_ent) '(48 . 0.0))
            (if (assoc 370 dxf_ent) (assoc 370 dxf_ent) '(370 . 0))
            '(100 . "AcDbPoint")
            (cons 10 (mapcar '* (mapcar '+ (cdr (assoc 10 dxf_ent)) (cdr (assoc 11 dxf_ent))) '(0.5 0.5 0.5)))
            (if (assoc 39 dxf_ent) (assoc 39 dxf_ent) '(39 . 0.0))
            (assoc 210 dxf_ent)
          )
        )
        (if (eq key "Yes") (entdel ent))
      )
    )
    (T (princ "\nSélection non valide ou vide."))
  )
  (prin1)
)

[youyouzitane]

impeccable c est exactement ce que j ai besoin

merci