Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
Pages: 1
- Sujet précédent - affectation d'1 modèle constitué de faces 3D ds 1 variable(vba_autocad - Sujet suivant
#1 Wed 16 February 2011 16:20
- charles74
- Juste Inscrit !
- Date d'inscription: 16 Feb 2011
- Messages: 3
affectation d'1 modèle constitué de faces 3D ds 1 variable(vba_autocad
Bonjour,
J'ai un petit problème en programation et j'espère que vous pourrez m'aider !
J'utilise l'éditeur VBA sous autocad-covadis 2009.
Comme le montre le code ci-dessous, j'arrive à importer et dessiner un dxf représentant des faces triangulées 3D. Le problème est que ma variable model_theorique de type Acad3DFace est vide. Je souhaiterai avoir dedans mon modèle de faces 3D pour pouvoir faire des intersections entre le modèle et par exemple des droites.
voici le code :
Code:
'Définition des paramètres d'importation
Dim importFile As String
Dim InsertPoint(0 To 2) As Double
Dim scalefactor As Double
importFile = nom_fichier.Value
InsertPoint(0) = 0#: InsertPoint(1) = 0#: InsertPoint(2) = 0#
scalefactor = 2#
'Importation du fichier
Dim model_theorique As Acad3DFace
Set model_theorique = ThisDrawing.Import(importFile, InsertPoint, scalefactor)Merci de votre aide !
Charles
Hors ligne
#2 Thu 17 February 2011 08:40
- charles74
- Juste Inscrit !
- Date d'inscription: 16 Feb 2011
- Messages: 3
Re: affectation d'1 modèle constitué de faces 3D ds 1 variable(vba_autocad
Bonjour,
Aucune réponse... Suis-je pas clair ou est-ce impossible avec ce type d'objet?
Merci
Charles
Hors ligne
#3 Thu 17 February 2011 21:20
- Patrice
- JeSuisCharlie
- Date d'inscription: 16 Sep 2005
- Messages: 4794
Re: affectation d'1 modèle constitué de faces 3D ds 1 variable(vba_autocad
Hello
Tu postes hier a 16h20 et tu attends deja une reponse aujourd'hui a 8h40 !
N'est ce pas un peu trop rapide !?
Tout d'abord il faut savoir que les gens qui repondent sur ce forum (comme sur bien d'autres forums)
prennent sur leur temps PERSO pour essayer d'aider la communaute ...
Donc si on n'a pas une reponse "immediate", soit personne n'a eu le temps de traiter et de repondre,
soit les gens qui lisent ta demande ne savent pas repondre !
Ce forum Georezo sur les logiciels Autodesk (MAP, CIVIL, MGES, FDO, Raster Design, etc)
est surtout lu par des specialistes du SIG / Carto / VRD / etc avec CES produits Autodesk !
Ta question est une question PUR AutoCAD et en plus Programmation "un peu pointu" sous VBA
donc je te propose de reposter ton probleme sur le forum francophone www.cadxp.com ...
ou il y a qq "grosses pointures" en programmation !
L'autre forum auquel je pense c bien sur le fameux www.theswamp.org MAIS c un forum US/English !
En tout cas, Good Luck, GeoBye, Pat
(Autodesk Expert Elite Team)
Hors ligne
#4 Thu 17 February 2011 22:02
- charles74
- Juste Inscrit !
- Date d'inscription: 16 Feb 2011
- Messages: 3
Re: affectation d'1 modèle constitué de faces 3D ds 1 variable(vba_autocad
bonjour,
Merci de votre réponse, je vais donc rediriger ma question.
Je sais que les réponses sur les forums sont effectuées par des personnes qui prennent sur leurs temps libre. Cependant, j'avais peur de ne pas être clair dans mon problème, voir de ne pas être au bon endroit. Désolé d'avoir eu pour vous un comportement déplacé.
j'ai trouvé aujourd'hui peut être un élément de réponse en passant par une sélection et visiblement, les faces triangulées 3D seraient dedans.
Code:
'création de la sélection qui contiendra les faces 3D du modèle
Dim model_theorique As AcadSelectionSet
Set model_theorique = ThisDrawing.SelectionSets.Add("SELECTION")
'Recherche des entités dans le dessin et affectation dans ssobjs
ReDim ssobjs(0 To ThisDrawing.ModelSpace.Count - 1) As AcadEntity
Dim f As Integer
For f = 0 To ThisDrawing.ModelSpace.Count - 1
Set ssobjs(f) = ThisDrawing.ModelSpace.Item(f)
Next
'Ajout de la série d'objet à la sélection model_theorique
model_theorique.AddItems ssobjsbonne soirée
Charles
Hors ligne
Pages: 1
- Sujet précédent - affectation d'1 modèle constitué de faces 3D ds 1 variable(vba_autocad - Sujet suivant
