Message posté par : Fabrice (fduberger(a)dax.fr) ---------------------------------------- Merci Top ---------------------------------------- Le message est situé https://georezo.net/forum/viewtopic.php?pid=368128#p368128 Pour y répondre : autodesk_sig_fr(a)ml.georezo.net ou reply de votre messagerie Pour vous désabonner connectez-vous sur le forum puis Profil / Abonnement -- Association GeoRezo - le portail géomatique https://georezo.net

Message posté par : Patrice ---------------------------------------- Hello Fabrice Voici une routine "FIESTA" qui insere un POINT graphique a l Intersection de TOUT (Line, Arc, 2DPLine, etc) Voir les 2 lignes : (mapcar '(lambda (pt) (entmake (list '(0 . "POINT") (cons 10 pt) ))) (bv:ListInters (ssget))) ;; Point ;; (mapcar '(lambda (pt) (entmake (list '(0 . "CIRCLE") (cons 10 pt) (cons 40 3.14) ))) (bv:ListInters (ssget))) ;; Circle R=3.14 Actuellement la routine insere un POINT mais si tu changes la ligne commentee, elle peut inserer un CIRCLE de R=3.14 Par contre je ne sais pas la modifier pour inserer un Bloc ! Dans ton dossier <BONUSLSP> tu as la toutine "P2B" pour inserer un Bloc sur un Point ... Donc en 2 manipulations, tu auras ton Bloc !! SVP tu nous dis si cela te convient !? GeoBye, Pat ---------------------------------------- Le message est situé https://georezo.net/forum/viewtopic.php?pid=367767#p367767 Pour y répondre : autodesk_sig_fr(a)ml.georezo.net ou reply de votre messagerie Pour vous désabonner connectez-vous sur le forum puis Profil / Abonnement -- Association GeoRezo - le portail géomatique https://georezo.net