Curlygoth

ca roule merci quand même ^^

OK et pas T comme je lis sur ma barre de commande... je me demande s'il n'y aurais pas un problème avec MAP 2022 Car ça marche sur Autocad 2015 (classique) et pas sur Autocad MAP 2022. je fais un fichier test pour vous ? TEST_VBA.dvbCURLY.lsp j'ai fais un dvb et un lisp. qui l'appel j'ai le meme problème

a oui pardon : donc ok et merci luna mais rien de spécial :

Donc (le dvb est chargé dans mes projet) et et donc j'ai essayer de mettre le code dans L'iDE de VLISP mais : F8 est grisé :-s Merci en tout cas @(gile) PS : J'ai réessayé avec autocad 2015 et ça marche... (c'est la version 2022 MAP qui a un problème ?)

Bonjour, Je relance un peu ce topic car les commandes ne fonctionne plus... une variable qui à bougé peut etre ? Je suis passé sur AUTOCAD MAP 2022 : j'ai un lancement.lsp qui se charge (pas de soucis) il y a ces deux lignes merci @(gile) Quand je tape GAZ dans ma ligne de commande (le dvb se charge mais le code C:\\K2M\\ACAD\\GAZ.dvb!AFF.AFF ne se lance pas) :s (defun c:GAZ () (vl-vbaload "C:\\...\\GAZ.dvb") (vl-vbarun "Aff.aff") (princ) ) du coup, je suis reparti sur mes boutons mais ça commence à faire beaucoup XD

en script je saurais pas faire @rebcao peut etre ?

pour ne pas te prendre trop la tete avec les : " en VBA utilse le Chr(34) 😉

J'ai trouvé ça : https://fr.tuto.com/blog/2019/07/15-sites-pour-trouver-des-textures-3d-gratuites.htm après je pense qu'apprendre photoshop pourra te permettre de faire des choses encore mieux 😉

tu as vraiment besoin d'un filtre les objets sur tes présentations ?

valeurs des attributs dans mes textbox ? ben c'est le nom de la textbox ^^

ThisDrawing.ActiveLayout = ThisDrawing.Layouts("NOM Présentations") 'tu vas aller vers ta présentation donc 1 ligne pour aller vers cette page et une autre a la fin pour revenir à la présentataiosn de base si besoin 😉 ensuite, tu n'as qu'a parcourir les blocs de la présentation (je te conseil de faire des fonctions car sinon tu t'en sortira pas 😉

ta sélection set c'est ca : sset ta selection c'est une "liste" d'objet sélectionné pouqruoi ne pas boucler dessus ? for i = 0 to sset.count - 1 'ton code pour chaque sset(i) par exemple du coup : attribs = sset(i).GetAttributes 'etc... next i

je te conseil de travail en listebox pour gérer mes calques dans mes présentations : mais tu pourrais avoir une forme similaire avec en haut les presentataion et en bas la liste des blocs de la présentations ajouté grace à un événement ^^ et pour récupérer les blocs d'un espace papier : il faut le rendre actif et boucler sur les objets du paperspace 😉

Salut, Alors sache pour pour compter les nombres de blocs dans les présentations il faut qu'elle soit active pour utilié le thisdrawing.paperspace.count-1 et boucler dessus ensuite fait des lists de nom ou ce que tu veux pour faire Me.LB_Bloc_Source.list = TA liste tu verras que tu vas gagner en temps ^^ alors prneds juste les blocs du layouts actif 😉 via thisdrawing.activelayout car moi dans ton code tu parcours toutes tes présentations

A l'édit moins de bug de doublons ^^'

pour un bloc : attribs=objENT.GetAttributes For ATT = LBound(attribs) To UBound(attribs) attribs(ATT).TagString 'nom de l'etiquette de l'attribut attribs(ATT).TextString ' valeur de l'attribut Next ATT donc je te conseil de mettre une vcondition pour remplir le bon attribut : attribs=objENT.GetAttributes For ATT = LBound(attribs) To UBound(attribs) if attribs(ATT).TagString = NOM_ATTRIBUT_A_REMPLIR then 'nom de l'etiquette de l'attribut attribs(ATT).TextString ' valeur de l'attribut else end if Next ATT HS : je te conseil même de vérifier si tu a bien sélectionner un bloc au lieu de mettre on error resume next if objENT.objectname <> "AcDbBlockReference" then exit sub et de définir ta variable pour voir les methode et propriété : dim blockref as acadblockreference pour ensuite faire : set blockref =objENT

Doublons encore ???

Je fonctionne beaucoup avec des listes intelligentes ou base de données (l'idée c'est que dès qu'il y a un éléments supplémentaires que le programme ne connais pas l'utilisateur paramètre "la données/ l'objet" et est enregistrée, une fois que tu reviens (pour une autre dessin) mes collègues vont pouvoir chosir une données préalablement entrée et modifier les paramètres si besoin pour eux... (une base par défault / une base par utilisateur) c'est long à mettre en place, la base n'est jamais terminée, mais au moins elle est alimentée continuellement 😉 et surtout pas de doublons ! @Luna et du coup c'est enregistrer dans le dessin ? (j'aimerais effectivement nommer ou mettre une/des donnée sur des polylignes) (histoire de connecter des polylignes entre elle)

J'ai une autre méthode : 0°) Sélection du bloc 1°) Je sélectionne la polyligne et j'en extrait le point de sélection (utile pour valider le segment à vérifier) 2°) Je recherche sur quel segment de ma polyligne est mon point de sélection et j'en définis la fonction affine avec les deux points. 3°) je peux donc définir avec ça si le bloc est au dessus ou en dessous de la polyligne 😉 https://moonbooks.org/Articles/Créer-un-algorithme-pour-vérifier-si-un-point-et-au-dessus-ou-au-dessous-dune-droite/

bonne année à tous ! Que le dessin et autodesk soit favorable !

des avis ? des critiques ? pour cette première version ?

tu prends le dwg, tu l'ouvres tu sauvegarde juste pour lancé la macro ! Tu choisi si tu veux joué le 501 ou le 301, tu valides ensuite tu choisis le niveau entre 1 et 10 si tu mets 100 tu auras niveau 10. puis tu cliques sur la cible pour arriver à zéro en faisant le moins de lancé possible (tu commence à 301 pts si tu fais 20 pts il t'en restera 281 à faire) etc etc A la fin, si tu arrive pile a zéro tu gagnes si tu as une valeur négative tu perds

heu... je pensais plus plus à : tu publies en pdf ou image hein ^^

Fait une présentations avec une fenêtre, calibre ta fenêtre, tu peux meme Enregistrer ton dessin en gabarit (pourquoi pas) ensuite sois tu mets tes plans en ref et tu geres les calques pour tes 2 présentations soit tu importes ta présentation vers tes fichiers

ouf.. merci je suis pas fou