Remplacer un point par un bloc ?

[gillespj]

Bonjour,

 

Par une fonction ou un lisp, est-il possible de remplacer un point par un bloc ? et vice versa ?

 

ex :

Sur un fichier il y a 100 arbres représentés par 100 points. Je souhaite remplacer chaque point par un bloc "ARBRE"

 

 

Peut-on déplacer automatiquement des points vers une polyligne par un accrochage objet "perpendiculaire" et ce en définissant la périmétre de recherche par le point ?

 

Merci.

[Matt666]

Est-ce que tes points sont dans un calque précis ? Ou tous les points existants doivent être remplacés ?

 

[gillespj]

Oui, le fichier est bien organisé.

 

Les points et les polylignes sont dispatchés dans chaque calque bien définis.

[Bred]

Salut,

Par une fonction ou un lisp, est-il possible de remplacer un point par un bloc ? et vice versa ?

;;; Remplace Nodal par Bloc demandé
(defun c:pt-blc (/ sel i nb)
 (vl-load-com)
 (princ "\n Choix des points :")
(or (setq sel (ssget '((0 . "POINT"))))
 (setq sel (ssget "_X" '((0 . "POINT")))))
 (setq nb (getstring T (strcat "\n Entrez le nom du bloc <"(getvar "INSNAME")">:")))
 (if (equal nb "") (setq nb (getvar "INSNAME")))

 (repeat (setq i (sslength sel))
   (command "_insert" nb (cdr (assoc 10 (entget (ssname sel (setq i (1- i))))))
     1 1 0)
   (vla-delete (vlax-ename->vla-object (ssname sel i)))
   )
 (princ (strcat "\n " (rtos (sslength sel)) " Points remplacé par Bloc "(getvar "INSNAME")""))
 (princ)
 )


;;;Remplace Bloc Selectionné par Nodal
(defun c:bloc-pt (/ sel i)
 (vl-load-com)
 (princ "\n Choix des Blocs :")
(or (setq sel (ssget '((0 . "INSERT"))))
 (setq sel (ssget "_X" '((0 . "INSERT")))))

 (repeat (setq i (sslength sel))
   (command "_point" (cdr (assoc 10 (entget (ssname sel (setq i (1- i)))))))
   (vla-delete (vlax-ename->vla-object (ssname sel i)))
   )
 (princ (strcat "\n " (rtos (sslength sel)) " Blocs remplacé par Point."))
 (princ)
 )

 

[Edité le 13/12/2007 par Bred]

[Bred]

Peut-on déplacer automatiquement des points vers une polyligne par un accrochage objet "perpendiculaire" et ce en définissant la périmétre de recherche par le point ?

Est-ce que ce lisp de (gile) ne te conviendrais pas ?

 

(Ecrire une demande par post !!!)

[gillespj]

Le lisp de gile créé une ligne entre le point et la polyligne alors que j'aimerais que le point se déplace sur la polyligne.

[(gile)]

Peut-on déplacer automatiquement des points vers une polyligne par un accrochage objet "perpendiculaire" et ce en définissant la périmétre de recherche par le point ?

 

J'ai répondu à cette question dans l'autre sujet.

[gillespj]

Merci, ça fonctionne.

 

Peut-on rajouter dans le script une "fonction" requête (nom du bloc ?)

[Bred]

Re,

Peut-on rajouter dans le script une "fonction" requête (nom du bloc ?)

je pense que c'est de mon code que tu veux parler... (et oui, c'est le problème avec plusieurs demande dans un même message ... ;) )

C'est fait, j'ai modifié le code pour qu'un nom de bloc soit demandé (ou par défaut le bloc insérer précedement)

[richard-c]

bonjour,

 

je suis sous V2002.

 

voila ce que me retourne AutoCAd après avoir lancé pt-arb :

 

[surligneur] Commande: ; erreur: no function definition: VLAX-ENAME->VLA-OBJECT[/surligneur]

 

il a quand même dessiné le 1er bloc.

 

A+

[Bred]

Salut Richard-c,

Sous 2002 les fonctions visual-lisp ne doivent pas être chargé automatiquement.

Il faut donc lui demander de le faire.

Il faut rajouter (vl-load-com) en début de code.

J'ai modifié les codes ci-dessus en conséquence.

 

 

[richard-c]

merci,

et poutant je savais (et l'avais dejà fait) qu'il falait ajouté cette fonction.

 

A+