Discussion :

[bellh124]

Bonjour,
J'ai un fichier DXF que je voulais l'importer dans le logiciel Ansys Q3D extractor , à chaque fois ce fichier est modifié en termes de nombre des polylines
par exemple :fichier1

quand je l'importe dansle logiciel Ansys Q3d extractor j'ai obtenu 69 cond
fichier2:

quand je l'importe dans Q3d extractor j'ai obtenu 72 cond
voila le code que j'ai fait pour une seule fichier mais je voulu qu'il détecte et teste automatiquement les conds qui s'intersectent el les fusionnent entre eux puique j'ai plusieurs fichiers DXF différentes n'ont pas le meme nombre de conds

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim oAnsoftApp
   Dim oDesktop
   Dim oProject
   Dim oDesign
   Dim oEditor
   Dim oModule
   Set oAnsoftApp = CreateObject("Q3DExtractor.ScriptInterface")
   Set oDesktop = oAnsoftApp.GetAppDesktop()    
   oDesktop.NewProject    
   Set oProject = oDesktop.GetActiveProject
   oProject.InsertDesign "Q3D Extractor", "Q3DDesign1", "", ""    
   Set oDesign = oProject.SetActiveDesign("Q3DDesign1")
   Set oEditor = oDesign.SetActiveEditor("3D Modeler")
oEditor.ImportDXF Array("NAME:options", "FileName:=",  _
  "C:/Users/jawhar/Desktop/dfg/wi3.dxf", "Scale:=", 0.001, "AutoDetectClosed:=",  _
  true, "SelfStitch:=", true, "DefeatureGeometry:=", false, "DefeatureDistance:=",  _
  0, "RoundCoordinates:=", false, "RoundNumDigits:=", 4, "WritePolyWithWidthAsFilledPoly:=",  _
  false, "ImportMethod:=", 1, "2DSheetBodies:=", false, Array("NAME:LayerInfo", Array("NAME:0", "source:=",  _
  "0", "display_source:=", "0", "import:=", true, "dest:=", "0", "dest_selected:=",  _
  false, "layer_type:=", "signal"), Array("NAME:cond", "source:=", "cond", "display_source:=",  _
  "cond", "import:=", true, "dest:=", "cond", "dest_selected:=", false, "layer_type:=",  _
  "signal")))
Set oEditor = oDesign.SetActiveEditor("3D Modeler")
oEditor.Unite Array("NAME:Selections", "Selections:=",  _
  "cond_1,cond_2,cond_3,cond_26,cond_27,cond_39,cond_40,cond_52,cond_59,cond_60,c" & _ 
  "ond_4,cond_5,cond_28,cond_41,cond_53,cond_7,cond_29,cond_30,cond_42,cond_61,co" & _ 
  "nd_9,cond_8,cond_43,cond_6,cond_54"), Array("NAME:UniteParameters", "KeepOriginals:=",  _
  false)
oEditor.Unite Array("NAME:Selections", "Selections:=",  _
  "cond_18,cond_19,cond_34,cond_35,cond_47,cond_48,cond_57,cond_64,cond_17,cond_2" & _ 
  "0,cond_21,cond_58,cond_67,cond_36,cond_49,cond_22,cond_65,cond_69,cond_38,cond" & _ 
  "_51,cond_25,cond_24,cond_23,cond_50,cond_37"), Array("NAME:UniteParameters", "KeepOriginals:=",  _
  false)
oEditor.Unite Array("NAME:Selections", "Selections:=",  _
  "cond_31,cond_44,cond_10,cond_11,cond_12,cond_13,cond_14,cond_32,cond_45,cond_5" & _ 
  "6,cond_63,cond_66,cond_68,cond_55,cond_62"), Array("NAME:UniteParameters", "KeepOriginals:=",  _
  false)
oEditor.Unite Array("NAME:Selections", "Selections:=",  _
  "cond_16,cond_15,cond_33,cond_46"), Array("NAME:UniteParameters", "KeepOriginals:=",  _
  false)

voila ce qe je veux

Aidez moi svp