VBA AutoCAD

10

sep

2011

Bonjour de grosse difficultés pour poster sur votre forum ....Il semble qu'il y ait une limite , je ne parviens pas à poster tout mon message Même avec les balises de code .En bref ma polyligne ne se dessine pas pourtant mon code ne plante pas non plus

 Public Sub Testalakazam()
 
Call chercfich
 
End Sub
 
Sub dessineuneligne(tableauindicedate, tableau, compteur, tableautotal)
 
    Dim plineObj As AcadPolyline
    Dim points() As Double 'creer un tableau de points vide
    ReDim points(compteur) 'dimensionne le tableau pour qu'il contienne tous les points
 
    Dim i A

Libellés : VBA AutoCAD

27

juil

2011

Récupération des polylines

Bonjour, Je suis débutant en VBA AutoCad, et je essaye de faire un programme pour me donner le nombre de polyline (fermer et contenant une étiquette non vide). voila le code que j'ai fait:

dim i as integer
i=0
'Parcourir tous les élément du dessin
    For Each object In ThisDrawing.ModelSpace
    'Verifier si c'est une polyligne
        If TypeOf object Is AcadPolyline Then
        Dim element As AcadPolyline
         element = object
            'vefrifier si c'est une polyline fermer et avec une etiquette non vide
            If (element.Closed = True) Then

Libellés : VBA AutoCAD

06

apr

2011

Récupération de propriétés automatiques dans VBA Architecture

Bonjour, Je programme avec VBA dans Autocad Architecture 2011 Je souhaite récupérer une propriété automatique d'un espace, issue du style de l'espace.

Libellés : VBA AutoCAD

14

nov

2010

Detection si espace objet ou espace papier

Bonjour Maxence,

Je viens à nouveau solliciter ton savoir.

Je cherche à détecter (en VB) si un plan (Autocad) est ouvert dans l'espace objet ou dans l'espace papier.
D'après ce que j'ai compris, les espaces objet & papier sont considérés comme des blocs.
Cependant, lorsque je fais un "For each" de tous les "Blocks" du dessin ouvert et que je mets la condition si le block est l'espace objet ("ModelSpace"), et bien, aucun bloc n'est détecté.

N'y aurait-il pas une autre façon (plus simple) de procéder?

Qu'en penses-tu?

Merci d'avance de ta collaboration.

Cordialement.

Libellés : VBA AutoCAD

1 commentaire

03

nov

2010

Récup. info entité d'un bloc autocad

Bonjour,

Voilà, je cherche à récupérer (codé en VBA) le centre d'un cercle se trouvant dans un bloc (Autocad), ce bloc ayant été, au préalable, sélectionné par l'utilisateur.
J'arrive bien (Normal! me direz-vous...c'est simple) à récupérer le nom de ce bloc, à contrôler qu'il s'agit bien d'un bloc, mais ne peux obtenir d'info sur les entités le composant.

Dois-je exploser le bloc, passer par un jeu de sélection...?

Je débute en VBA...Dur!

Je vous remercie d'avance de votre collaboration.

Cordialement.

Libellés : VBA AutoCAD

2 commentaires

22

juil

2010

objectid32 autocad 2010 64 bits

Bonjour
Depuis que j'ai passer à la version Autocad 64 bits je n'ai plus le même résultat pour objectID.

sub test
Dim obj As AcadObject, vPt As Variant

'' Selectionné l'object
ThisDrawing.Utility.GetEntity obj, vPt, vbLf + "Sélection du block "

msgbox CStr(obj.ObjectID32)

end sub

Il me donne comme reponse 44 et ça deverait être comme chose comme 8796087806000

Quelqu'un a une idée?

Merçi!

Libellés : VBA AutoCAD

1 commentaire

17

may

2010

Couleur d'un calque

Bonjour,

Je souhaiterais modifier la couleur d'un calque dans une macro VBA.

Pour créer le calque j'ai utilisé :

Dim Layer2 As AcadLayer
Set Layer2 = AutoCAD.AcadApplication.ActiveDocument.Layers.Add("POINTS_LEVES")

Ensuite je n'arrive pas à donner une couleur au calque créé.

Merci pour votre aide.

md

Libellés : VBA AutoCAD

1 commentaire

30

apr

2010

Annulé une commande VBA si l'utilisateur appuis sur ESC

Bonjour

J'ai chercher et chercher mais j'ai rien trouvé pour faire un truc en VBA du style que s'il est inscrit dans la fenêtre de commande Command: *Cancel* alors......

Je programme avec VB6 pour créer mes codes en VBA. Je dois, dans autocad 2002, appeler mon exécutable afin de faire fonctionner mon code VBA.

Mon problème est que de cette facon je ne suis pas capable de fermer complétement mon programme lorsque l'utilisateur annule ma commande. Je cherche un moyen que si l'utilisateur appuis sur ESC pendant que ma commande s'exécute alors....Fermeture de mon application.

Libellés : VBA AutoCAD

10

dec

2009

c urgent besoin d'aide à propos de vba

bonjour, svp je veux savoir comment créer une barre déroulante qui contient les blocks et les traits les logos etc déja crée avec le code vb sous autocad merci ? é aussi besoin d'un cour vba

Libellés : VBA AutoCAD