Points sur blocs

[dyabs]

Salut à tous, je cherche un lisp qui permette de créer un point graphique au point d'insertion de blocs.

 

Il existe un lisp qui met des points au centre des cercles (http://www.cadxp.com/sujetXForum-11123.htm) mais je n'arrive pas à le modifier!

 

Ca serait sympa qu'un crac du lisp y jette un oeil.

 

Merci d'avance.

[Tramber]

Ca ne marche pas si tu remplaces :

(cons 0 "CIRCLE")

par :

(cons 0 "INSERT")

?

 

[Bred]

Salut,

un petit truc rapide :

 (defun c:ptb (/ Q sel x ent_b)

  (initget 0 "T")
  (setq Q (getkword "\n Tous les Blocs < T > ou < Sélec >: "))
  (if (= Q nil)     
    (setq sel (ssget '((0 . "INSERT" ))))
    (setq sel (ssget "_X" '((0 . "INSERT" ))))
    )
(setq x 0)
(if sel (progn
(repeat (sslength sel)
(setq ent_b (ssname sel x))
(command "_point" (trans (cdr (assoc 10 (entget ent_b))) 0 1))
(setq x (+ x 1))
)
)
)
(princ)
)

 

... attention, les points ne sont insérer qu'à l'insert des blocs imbriqués, pas à tout les point d'insert des blocs dans le bloc imbriqué !...

 

Si ça te va comme ça, tant mieux (parceque le coup des blocs imbriqués, (gile) m'a épuisé (amicalement) avec !!! et je n'en suis toujour pas revenu !)

 

-------------

j'édite

grillé par Tramber ! je suis encore trop lent !

[Edité le 29/9/2006 par Bred][Edité le 29/9/2006 par Bred]

 

[Edité le 29/9/2006 par Bred]

[dyabs]

:laugh: Exactly ce que je voulais faire

Les deux soluces fonctionnent nickel ....

 

Respect Bred & Tramber

 

Encore merci.

 

Faudrait que je prenne quelques cours de lisp car ya pas photos çà aide!!!

Et j'ai hate de pouvoir rendre la monnaie en aidant un autre ACADIEN... :yltype:

 

 

[Bred]

Re'

Par respect pour ceux qui m'ont appris ici à "lisper", j'ai éditer le lisp en réponse 2 afin que les points s'insert quelque soit le SCU (la fonction "trans").

 

J'ai rajouté aussi la possibilité de faire un choix entre tout les blocs (T) de la collection ou faire une sélection....

[(gile)]

Salut Bred,

 

Juste une petite remarque, le point d'insertion d'une référence de bloc n'est pas défini dans le SCG, mais dans le SCO.

Je pense qu'il vaut mieux faire :

 

(command "_point" (trans (cdr (assoc 10 (entget ent_b))) ent_b 1)) 

 

Tu peux voir ce sujet.

[Bred]

Raaaaa... je suis allé encore trop vite....

C'est la logique même que le point d'insertion dans l'entité d'un bloc soit dans le SCO.....

encore une fois merci, (gile)....

 

La réponse 2 avec correction proposé par (gile) :

 

 (defun c:ptb (/ Q sel x ent_b)

(initget 0 "T")
(setq Q (getkword "\n Tous les Blocs < T > ou < Sélec >: "))
(if (= Q nil)
(setq sel (ssget '((0 . "INSERT" ))))
(setq sel (ssget "_X" '((0 . "INSERT" ))))
)
(setq x 0)
(if sel (progn
(repeat (sslength sel)
(setq ent_b (ssname sel x))
(command "_point" (trans (cdr (assoc 10 (entget ent_b)))[b]  ent_b 1[/b] ))
(setq x (+ x 1))
)
)
)
(princ)
)