Communauté
Bonjour,
Je cherche un lisp ou bien un vba excel qui va insérer un bloc Autocad qui va me permettre d'insérer un listing de points ( Points topo levés ) : le but est d'avoir le point - L'altitude levé - l'écart entre les deux
Le titre du sujet a été modifié par un modérateur pour faciliter la recherche. Titre original:
Re: [ATE] Des spécialistes AutoCAD à votre écoute le jeudi 8 février 2024
Bonjour,
Tu trouveras dans le lien ci-dessous une méthodologie pour générer un script de commande d'insertion de bloc traité dernièrement.
A+ Yoan
Yoan AUBRY
Pour répondre un peu plus spécifiquement à ta question il faudrait que tu nous communique :
- le nom du bloc à insérer (et si possible nous le communiquer pour les tests)
- la manière d'obtention de tes informations d'altitude et d'écart car elle ne sont actuellement pas présente dans la capture d'écran que tu as fourni.
Je suppose que la première colonne correspond au numéro de point (auto-incrémenté), X en deuxième colonne , Y en troisième colonne.
La quatrième colonne correspond au Z? à l'écart?
En attente de ton retour
Yoan AUBRY
Hello @Topo94_
Connais tu la merveilleuse Routine Lisp/VLisp "IXL" du regrette Patrick_35 qui insere un Bloc depuis un XLS bien prepare ?
SVP tu regardes bien l Image jointe qui te montre ce que doit contenir le XLS ...
Je l ai encore utilise cette semaine pour inserer des centaines de Blocs (Poubelle) sur la Cartographie de Vesoul !
Mon record avec cette Routine, c plus de 10 000 Chambres Telecom sur Cherbourg !
Le traitement avait ete un peu long et j avais coupe en 2 le fichier XLS donc 2 traitements
... Les gens que je formais ont "pleure" quand ils ont vu le resultat ...
Bien ajouter le chemin OU tu vas stocker les fichiers IXL pour les ajouter au chemin de SUPPORT de ton ACAD !
Bye, Pat
---- Mode d emploi ----
01) BON j ai decouvert un Micro-Bug "pas grave" ... Probl de la Rotation !
( C en fait lie aux Unites Geometre du DWG Grade+Nord+etc et donc de Covadis )
( Le contournement sera tres facile ! )
02) TOUT d abord tu vas stocker tes LSP+DCL+etc dans un dossier specifique du genre < BONUSLSP >
03) Tu vas ajouter ce chemin a tes chemins de Support de ton ACAD / ACAD MAP 201X-202X
... Voir Image jointe ...
04) Tu vas decompresser le ZIP (LSP+DCL) joint dans ce Dossier < BONUSLSP >
05) Tu verras dans le ZIP une Image JPG qui te donne qq Indications
sur le XLS EXIGE par la routine IXL !
( MAIS je te redonne par ecrit TOUS les prerequis ! )
06) Fichier XLS avec la 1ere Ligne TITRE et dans les Titres de Colonne
( que des Lettres / Chiffres / "_" et RIEN d AUTRE ! )
Les 1eres colonnes (A-G) SONT IMPOSEES
A partir de la Colonne H , c les N ATTRIBUTs du Bloc voulu !
( que des Lettres / Chiffres / "_" et RIEN d AUTRE ! )
A partir de la Ligne/Rangee 2-N , c les DONNEES
ATTENTION 1 : TOUTES les Colonnes doivent etre de Type "TEXTE" dans Excel
ATTENTION 2 : TOUTES les valeurs numeriques ( X Y Z ANGLE ECHELLE )
doivent etre avec un POINT DECIMAL (et non pas une Virgule) !
ATTENTION 3 : pas de cellule VIDE dans les Colonnes ATTRIBUT si valeur non remplie
DONC on va mettre un "." decimal , c assez discret !
Tu pourras toujours plus tard dans ACAD selectionner TOUS les Blocs
et voir les Attributs communs vides avec un "." et supprimer le Contenu !
07) AVANT de lancer le traitement, on va contourner le Bug de la Rotation !
Commande : UI < Entree >
Remettre : Type Angle = Degres decimaux ,
DECOCHER Sens horaire puis "Direction" et remettre le ZERO a l EST !
OK - OK
ALORS seulement on peut lancer le traitement ...
08) Chargement de la routine "IXL" avec APPLOAD comme d habitude ...
09) Au clavier : IXL < Entree >
Tu vas chercher le XLS puis tu choisis le bon Onglet puis TRAITEMENT ...
10) Bien entendu le/les bon(s) Bloc(s) (avec les BONs Attributs) sont deja inseres dans le DWG
ou bien sont presents dans les Chemins de recherche SUPPORT de ton ACAD / ACAD MAP / etc
Et tu lances ... ALORS ??
11) A la fin avant d enregistrer ...
Commande : UI < Entree >
Remettre : Type Angle = Grades ,
COCHER Sens horaire puis "Direction" et remettre le ZERO au NORD !
OK - OK
Patrice ( Supporting Troops ) - Autodesk Expert Elite
If you are happy with my answer please mark "Accept as Solution" and if very happy please give me a Kudos (Felicitations) - Thanks
If you are happy with my answer please mark "Accept as Solution" and if very happy please give me a Kudos (Felicitations) - Thanks
Patrice BRAUD
Bonjour,
Les SCRIPTS sont effectivement une solution pour régler pas mal de problèmes d'optimisation et d'automatisme... J'utilise depuis très longtemps des SCRIPTS ce qui rend toutes mes Applications 100% compatibles avec les versions LT puisque je n'utilise pas de LISP... Même si avec la LT 2024 on peut, mais ça ne changera mes habitudes !
Je développe de très nombreuses "petites" Applications basées sur le couple "diabolique" EXCEL-AutoCAD et AutoCAD-EXCEL qui génère le SCRIPT et dans AutoCAD, il n'y a plus qu'à l'exécuter...
Voici un fichier EXCEL que j'utilise pour traiter des listes de POINTS avec différentes infos ! (N° de Point, Type de Point, X, Y, Z, etc. EN cliquant sur MODIFIER LA BASE 0x... il suffit de remplacer les valeurs par les nouvelles et revenir sur la 1ere feuille et cliquer sur la DISQUETTE pour générer le SCRIPT...
Ce fichier est isolé et sorti de mes Applications, il se peut qu'il "tousse au début" ! 😊 Les MACROS EXCEL vont écrire dans un dossier qui doit exister et aura le chemin suivant :
C:\_MNU_sur_C_NOMENC-DEVIS\
Il est possible d'utiliser un autre chemin, dans ce cas, il suffit de corriger le chemin dans les MACROS EXCEL...
Christian
Bonjour @Topo94_
On est d'accord qu'insérer des points est relativement simple et bien documenté.
Que ce soit script ou LSP.
Ce que je ne comprends pas dans la demande, c'est d'insérer la différence d'altitude entre deux points.
De quels points parle-t-on ?
Y-a-t'il des doublons de points en XY dans le listing ? et ce sont ces doublons qu'il faut traiter ?
Amicalement
Liens vers les forums
Vous n'avez pas trouvé ce que vous recherchiez ? Posez une question à la communauté ou partagez vos connaissances.
Publier dans les forums
