PhilBat

Rebonjour, peut être pas clair en effet Pour résumer : * la touche 'Suppr' lance la commande par défaut '_.erase' (avec sélection des objets avant) * le bouton 'effacer' de la barre d'outils "modifications' lance la commande '_erase' (avec sélection des objets avant ou apres) de mémoire le caractère '_' appel la commande dans une autre langue et '.' la commande de base (non redéfinie) Donc le but c'est de pouvoir redéfinir le touche 'Suppr' comme le bouton 'effacer' (avec defun) a+ Phil

Bonjour, dans AutoCAD la touche 'Suppr' du clavier lance la commande suivante : _.erase a condition d'avoir déjà sélectionné un objet. Existe t-il une méthode pour redéfinir cette commande (lancer la même commande 'effacer' de la barre d'outils 'modifications') Le but est d'éviter d'effacer certains blocs d'un dessin (dommage qu'on ne puissance pas les verrouiller à la sélection sans utiliser le principe des calques) J'ai essayé la variable 'PICKFIRST' à 0, mais cela se répercute sur toutes les commandes. Merci d'avance Phil

merci pour votre réponse, il est fort possible que mon problème soit bien un défaut de syncronisation lors de l'utilisation de la commande "SendStringToExecute" comment y remédier ? Salutations Phil

Bonjour, au lancement de chaque dessin sous autocad j'utilise le fichier acaddoc.lsp pour lancer une routine dll créee sous visual basic 2008 mais le problème c'est que je fais appel à des variables systèmes autocad (setsystemvariable) et je lance des instructions (sendcommand) dans autocad en vain car tant que le dessin n'est pas entièrement initialisé je n'es accès à rien me semble t-il. j'aurai aimé trouver un fichier lisp qui se lance une foi le dessin totalement initialisé et chargé. merci a+ Philippe

Bonjour, je désire fermer le dessin actuellement ouvert grâce un bouton dans une 'form' j'utilise la commande suivante : ThisDrawing.Close() mais cela provoque un message d'erreur indiquant que "le dessin est en cours" Ce 'ThisDrawing' provoque l'appel de la routine suivante : Public ReadOnly Property ThisDrawing() As AcadDocument Get Return Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument End Get End Property Comment faire pour résoudre ce problème Merci d'avance Philippe

Bonjour à tous je voudrais sélectionner un bloc de façon automatique (pas de sélection écran car je connais son nom donc j'utilise une sélection par filtre) qui pourrais aussi bien se trouver dans l'espace objet que dans l'espace papier et récuperer son nom (onglet ep) pour le dernier cas. comment faire en VB net merci Philippe

Merci pour votre réponse j'ai depuis avancé dans mon problème et je me suis apercu que la version 1.3 n'était pas "compatible". La version 2.0 marche mieux dans VB 2008. Bref c'est la galère car très peu d'info sur internet concernant ce problème a+ Phil

Bonjour à tous je désire avoir un apercu d'un fichier dwg grâce au fichier dwgthumbnail.ocx (version 1.3) situer dans le répertoire windows\system32 Cela marche bien sous VBA mais pas en VB NET. (j'ai bien utilisé la commande "regsvr32 c:\windows\system32\dwgthumbnail.ocx" pour le cas du VBA) Il est bien présent dans la boite à d'outils mais provoque un message d'erreur lors de l'insertion dans une "form" --> "Echec de l'importation du contrôle ActiveX, Assurer vous qu'il est correctement inscrit..." Apres recherche dans les propriétés du projet, il y a deux lignes de références (autocad dwgthumbnail control module) non référencées. Comment faire ? Phil

Bonjour, Designcenter créer des fichiers avec l'extension PNG dans le répertoire ...Support\ToolPalette\Palettes\Images pour générer les icones dans une palette, et bizarrement, dans les cas de figures où le problème se pose, je constate que l'arrière plan n'est pas transparent (visualisation dans photoshop) si je l'efface le problème est résolue, mais je me vois mal reprendre 200 icones avec PhotoShop Qu'elle en est la raison ? Pour plus de compréhension je joint deux fichiers : 1x18etanche32.png --> ne marche pas (créé automatiquement) 1x18etanche64.png --> marche (rectifié par photoshop) Salutations Phil

Bonjour, je souhaite juste afficher une fenêtre d'attente (avec message 'Veuillez patienter ...') en attendant qu'une fonction se termine... Cordialement Phil

Voilà j'ai trouvé : Sub Example_Layouts() ' This example will access the Layouts collection for the current drawing ' and list basic information about the Layouts in the drawing. Dim Layouts As AcadLayouts, Layout As AcadLayout Dim msg As String ' Get layouts collection from document object Set Layouts = ThisDrawing.Layouts msg = vbCrLf & vbCrLf ' Start with a space ' Get the names of every layout in this drawing For Each Layout In Layouts msg = msg & Layout.Name & vbCrLf Next ' Display a list of available layouts MsgBox "There are " & Layouts.Count & " layouts in " & _ ThisDrawing.WindowTitle & ":" & msg End Sub a+ Philippe

Bonjour je cherche à lister les noms (onglets) de toutes les présentations (espaces papiers) d'un dessin dans une zone de liste modifiable par exemple (combobox). Merci Philippe

Bonjour, est-il possible de faire afficher à l'écran une fenêtre d'attente en attendant qu'un processus se termine.Elle doit bien sur disparaitre quand celui-ci est terminé. (programmation en VBA) Merci Philippe

Bonjour, suite à la création d'une palette d'outils en partant d'un fichier dwg intégrant tous les blocs nécessaires (Designcenter) je constate que les icones crées de manière automatique ne correspondent pas à la réalité du bloc (c.a.d. manque des lignes...). Après analyse, le problème vient des proportions du bloc (+ long que large par ex.) ce qui provoque la disparition de trait à cause de la résolution constante de l'icone 32x32 ou 64x64 (forme carré). comment résoudre ceci. Merci d'avance Phil

Bonjour à tous je cherche à détecter en vba si un bloc est dans l'espace objet ou dans l'espace papier et si possible savoir le nom de ce dernier (présentation). Merci d'avance Phil a+

Bonjour à tous Je désire migrer du VBA au VB NET et je suis déjà confronté à des problèmes qui était pour moi simple en VBA Je cherche une solution pour inserer un bloc dans un dessin et éventuellement avoir accès aux attributs. Comment peux t-on avoir accès aux blocs contenus dans un dessin ? La plupart des exemples trouvés expliquent pour la création d'entitée (ligne, cercle, polyligne....) Merci d'avance Phil.

Bonjour, Comment faire pour utiliser le système Treeview (ou tout autre moyen) afin de lister des unitées, des répertoires et des fichiers (dwg). En faite, c'est pour faire une fenêtre de dialogue personnalisée pour une recherche de fichier AuCAD. Il y a bien un processus pour faire afficher la fenêtre par défaut de windows mais cela ne suffit pas j'ai d'autres informations à afficher. Merci

Bonjour, ah oui, bonne idée, l'utilisation d'un bloc "spline". Je voulais faire les choses dans les règles de l'art en utilisant vraiment la fonction spline avec modification des tangentes (pas réussi). Donc j'ai adopté et adapté la solution du bloc avec décomposition et déplacement dans le calque courant et cela marche sans se prendre la tête. Merci encore à tous Salutations

Désolé, pour moi, l'utilisation d'une spline, c'est forcément pour faire une "courbe" sinon j'utiliserai une simple ligne. Je m'excuse encore, c'était tellement logique pour moi mais pas pour tout le monde... (la hauteur de l'onde -> une valeur par défaut modifiable) a+ Salutations

Merci pour vos réponses Mais le problème .... ce n'est pas une spline rectiligne que je veux (sinon aucun intérêt). il faudrait comme une petite ondulation (sinusoïde) entre mes deux blocs... amicalement

Pour clarifier la chose, les deux 1er points sont les coordonnées d'insertions de deux blocs et je voudrais tracer une spline (automatique) entre ceux-ci en les sélectionnant uniquement. à bientôt ...

ah oui, exacte pour le troisième point qui est le milieu de la ligne imaginaire dont les extrémités sont les deux 1er points. Déterminé de façon automatique lui aussi a+ Phil

Bonjour, En saisissant les coordonnées de deux points à l'écran je voudrais tracer une spline entre ceux-ci et de façon automatique (routine LSP) Merci Phil.

Bonjour, je cherche à créer une fenêtre qui me permet de naviguer entre les unités (Disque Dur ...) et entre les répertoires dans le but de pouvoir sélectionner un fichier AutoCAD et par la même occasion de visualiser ses caractéristiques (mémorisé dans un fichier à part) pour finalement l'ouvrir dans autocad. Merci à bientôt Phil

Bonjour à tous Je voudrais créer une fenêtre de dialogue afin de sélectionner un disque dur, un répertoire et enfin un fichier DWG. Une foie le fichier sélectionné, des données apparaissent indiquant des caractéristiques du fichier (ceux -ci sont facilement accessible via un autre fichier portant le même nom). Ensuite via un bouton "OUVRIR", Je lance l'ouverture du document. Je sais qu'il existe une procedure pour afficher une boite de dialogue de sélection de fichier (CreateObject("MSComDlg.CommonDialog")par exemple), mais cela ne suffit pas. Merci d'avance. Philippe