SVP - Copier un bloc perpendiculairement le long d'une polyligne a chaque intersection avec une autre polylign

Bonjour,
j'ai besoin d'aide moi simple projeteur autocad ferroviaire.
Qui peu m'aider a créer un LISP qui ressemble a un "réseau" sauf que les écartement sont aléatoirement.

01/
Dans un premier temps
un LISP qui créer à chaque intersection un « blocs avec un attribut»
avec une incrémentation dans l’attribut du bloc de « zéro » à …
perpendiculairement le long d’une polyligne (Axe de la voie)
-
Pk Voie 1 (référence du projet) projeté sur les autres voies
(par un réseau d'un mètre d'une ployligne qui croise les axes des autres voies)
les voies ne sont pas forcéments parallèles
et non espacés de un mètre,
« réseau utile seulement sur la voie 1 »
Réseau inutile sur les autre voies

Pièce jointe 516032

Pièce jointe 516033

Pièce jointe 516037


02/
Dans un second temps
Un autre LISP ci joint
(j'utilise actuellement : ATTLISTING.lsp, ExtractAttBlocs.lsp)
a mixer et compléter
des informations des bloc avec srtout "l’angle",
x,y,z,
handle,
nom du calque,
nom du bloque,
le nombre de bloc

soit la totalité du DWG
ou
soit par sélection.

Puis l’ouverture automatiquement avec Excel après la requête.

Exemple de ma demande :
Pièce jointe 516041



Merci