Netparty

Bonjour à tous Un cherchant sur le forum j'ai trouvé ce bout de code (defun c:att ( / obj-txt chn obj-att att-tag att-val obj-blc blc-val) (setq obj-txt (nentsel "\n Choisir le texte de reference : ")) (setq chn (cdr (assoc 1 (entget (car obj-txt))))) (setq obj-att (nentsel "\n Choisir l'attribut à modifier : ")) (setq att-tag (cdr (assoc 2 (entget (car obj-att))))) (setq att-val (cdr (assoc 1 (entget (car obj-att))))) (alert (strcat "\nEtiquette de l'attribut : " att-tag ".\n" "Valeur de " att-tag " : " att-val ".\n" "Nouvelle valeur de " att-tag " : " chn ".")) (command "_attedit" "oui" "" att-tag att-val (car obj-att) "v" "r" chn "") (entdel (car obj-txt)) ) Il fonctionne très bien, mais il faut a chaque modification relance le code. Comment faire pour que le coller soit en boucle. Merci d'avance et bonne journée

Bonjour à tous Je rencontre un problème en insérant un lien hypertexte sur un objet. J'aimerais que mon lien sois relatif, donc je coche l'option "Utiliser un lien relatif pour le fichier". Mais quand je clique pour suivre le lien j'ai un message erreur "Bad extension for file" par contre si je ne choisi pas chemin relatif le fichier s'ouvre. Auriez-vous une idée Merci d'avance et bonne journée

@Curlygoth Et avec un script est-il possible d’exécuter une macro ? Bonne journée

Merci

Re-bonjour @Curlygoth@Luna J'ai encore une petite question J'ai adapté mon code est cela fonctionne super bien. J'ai placé dans Thisdrawing Private Sub AcadDocument_Activate() '' MON CODE End Sub Mais j'aimerai que cela fonctionne sur une version Lt Y a t-il une possibilité de le faire ? Merci d'avance Bonne journée

Bonjour @Curlygoth, @Luna Merci à vous deux pour votre aide Bonne journée

Bonjour J'aimerais que le code s’exécute quand j'ouvre un fichier dwg spécifique Bonne journée

Bonjour à tous J'ai créé une petite macro dans mon fichier DWG qui me permet d'ouvrir Onenote pour y indiquer toutes les modifications que j'apporte à mon plan. Mais est-il possible que cette macro s’exécute directement que j'ouvre mon fichier. Merci d'avance pour votre aide. Bonne journée

Bonjour à tous Est-il possible a l'ouverture d'un fichier DWG d'ouvrir automatique un fichier Excel Merci d'avance Bonne journée

Bonjour @Steven C'est top, un grand merci bonne journée

Bonjour à tous Je cherche de l'aide pour la modification d'un bloc, j’essaie de créer un bloc qui représente un câble jusque là pas de soucis. Mais quand je déplace le point B du bloc j'aimerais limiter la longueur à 2m et la je coince. Merci d'avance pour votre aide Bonne journée à tous Cable.dwg

Bonjour @Luna Merci pour ta réponse Bonne journée

Bonjour à tous J'essaye de créer un bloc qui contient un bloc dynamique. Mais quand je sélectionne mon bloc, je ne sais pas interagir sur mon bloc dynamique imbriqué. Est-ce que cela est possible ? Merci d'avance Bloc dynamique dans un bloc.dwg

Bonjour Luna Merci je regarde à cela

Bonjour @lecrabe merci, mais j'ai beaucoup de bloc et j'aimerais que cela se fasse automatiquement pour chaque bloc

Bonjour à tous Je cherche le moyen d'exporter chaque bloc de mon dessin au format JPG. J'ai essayé JPGOUT mais il exporter le dessin entier. Merci d'avance

Bonjour à tous J'ai dans mon fichier rvt un lien externe vers mon architecture 3d, mais quand je transfère mon fichier sur le Bim360 je perd mon lien vers l'architecture. Auriez-vous une idée comment je dois procéder pour ne pas perdre mon lien externe. Merci Bonne journée à tous

Super je te remercie

Bonjour @(gile) J'ai testé le code mais j'ai l'erreur suivante :

Bonjour à tous Je reviens sur mon projet J'ai modifier mon bloc test en lui ajouter un paramètre de visibilité du coup mon bloc est dynamique et mon code n'a pas l'air de fonctionner il ne sélectionne pas mon bloc dynamique. Auriez-vous une idée pour palier à ce problème. Merci

@Luna@didier@Curlygoth@(gile) Bonjour à tous, Ce petit message pour vous remercier de votre aide pour la réalisation de mon tout petit projet. Mon projet n'est pas encore terminé mais il est fonctionnel donc je le partage cela pourrait peut-être aider d'autre personne du forum ou même donner des idées d'améliorations. Principe de fonctionnement : Dans la partie gauche on clique 2 fois sur la présentation dans laquelle se trouve le bloc source pour afficher ces valeurs (le bloc source s'appelle "CARTOUCHE") On fait de même dans la partie droite. Ainsi à l'aide du bouton copier ">>" on copie la valeur de l'attribut (pour l'instant je n'ai qu'un bouton mais par la suite il y aura un bouton pour chaque attribut), ensuite on colle cette valeur dans l'attribut destination de son choix. Si je doit déplacer le sujet vers une autre rubrique pour le partage n'hésiter pas à me le dire. Bonjour journée à tous Cartouche_Attribut-To-Attribut.dvb

@gile Merci cela fonctionne

Oui car je veux récupérer l'info du bloc de la présentation active

Bonjour @gile J'ai testé mais j'ai erreur suivante :

Bonjour @didier@Curlygoth J'approche tu but, j'ai réussi à récupérer les infos des attributs dans les Textbox de mon formulaire. Private Sub SelectionDeBlocsparNom() Dim sset As AcadSelectionSet Dim gpCode(2) As Integer Dim dataValue(2) As Variant Dim groupCode As Variant Dim dataCode As Variant Set sset = ThisDrawing.SelectionSets.Add("JeuSel") gpCode(0) = 0 dataValue(0) = "INSERT" gpCode(1) = 2 dataValue(1) = "bloctest" gpCode(2) = 67 dataValue(2) = 0 groupCode = gpCode dataCode = dataValue sset.Select acSelectionSetAll, , , groupCode, dataCode sset.Highlight (True) For Each Elem In sset Array1 = Elem.GetAttributes Attribut1 = Array1(0).TextString Attribut2 = Array1(1).TagString Attribut3 = Array1(2).TagString Attribut4 = Array1(3).TagString Next UserForm1.TextBox1 = Attribut1 UserForm1.TextBox2 = Attribut2 UserForm1.TextBox3 = Attribut3 UserForm1.TextBox4 = Attribut4 'Set sset = Nothing ' suppression du jeu de sélection End Sub J'ai remplacé : dataValue(2) = 0 en dataValue(2) = 1 Pour récupérer les blocs de l'espace papier, mais j'ai plusieurs présentation et il ne prendre que l'info de la dernière présentation. Comment spécifier que je doit prendre les infos sur la présentation active? Merci